Hi folks,
i have 4 columns of data that vary in length to copy to one column and i cant figure out a loop to get the 2,3 or 4 columns copied to the bottom of the first
i have this so far
Dim x As Integer
Dim y As Integer
x = 1
y = 2
Do Until Worksheets("Sheet4").Range("A" & x) = ""
Worksheets("XML").Range("A" & y) = Worksheets("Sheet4").Range("A" & x)
y = y + 1
x = x + 1
Loop
any guidance much appreciated.
Carl
i have 4 columns of data that vary in length to copy to one column and i cant figure out a loop to get the 2,3 or 4 columns copied to the bottom of the first
i have this so far
Dim x As Integer
Dim y As Integer
x = 1
y = 2
Do Until Worksheets("Sheet4").Range("A" & x) = ""
Worksheets("XML").Range("A" & y) = Worksheets("Sheet4").Range("A" & x)
y = y + 1
x = x + 1
Loop
any guidance much appreciated.
Carl