[Solved] Transpose Problem

[don1829]

Hello!

I'm just new here and having a problem with my program.

Here is may example input in excel:

column1----------------->column2
G1---------------------> 12-14-16
G2---------------------> 30-33-36

I would like to have my output like this on other column:


column3-------------->column4
G1------------------------>12
G1------------------------>14
G1------------------------>16
G2------------------------>30
G2------------------------>33
G2------------------------>36

I already satisfy column 4 but having a problem with column 3, can you please help me.

Thanks in advance,

Don

[Steffen Thomsen]

Please Login or Register  to view this content.

[shaukat]

could you first tell how do manage to get columnn 4, then I will send you full script

[don1829]

@Steffen
Thanks, I will try to use your code later and let you know what happen.

@shaukat

ok here is the code I use.
Column 1 location is in "Column A"
Column 2 location is in "Column K"
Column 3 location should be in "Column L"
Column 4 location should be in "Column M"

I already manage Column 4 by the following code:

'Set rList = Range("k1", Range("k" & Rows.Count).End(xlUp)) ' list
'lRow = 1
'For Each rCell In rList
' If rCell <> "" Then
' vText = Split(rCell, "-")
' Range("M" & lRow).Resize(1 + UBound(vText)).Value = Application.Transpose(vText)
' lRow = lRow + UBound(vText) + 1
' End If
'Next rCell

[Steffen Thomsen]

A little update of the code
uRows2 need to go indside the loop

Please Login or Register  to view this content.

[don1829]

A little update of the code
uRows2 need to go indside the loop

Please Login or Register  to view this content.

Steffen your code works but it thus not start the way it should be (like G1 ---->12) instead it start on the second number (like G1 ------>14). I tweak alittle to satisfy my code by using my code above, delete the input except the 1st row and then use your code.

Btw, VBA read the program as "WorksheetFunction" not as "WorksheetFunctions".

Thanks for the help.

[Steffen Thomsen]

Glad i could help.

Sorry for the miss-spelling, wrote it out of memory!

Steffen Thomsen