Looping in columns

[YCJ]

Hi there

I'm currently working on a loop to move from one column to another. Example:

For a = 1 To UBound(file)
Cells(2, 3 + a - 1).Select
Next a
(This is incomplete, I know this loop makes no sense. )

I'm well aware that this is just moving from one cell to another from left to right.
What I'm trying to achieve is something like, Cells(2, 3 + a - 1 : 100, 3 + a - 1), but i know this is incorrect and invalid. Btw, I used 3 + a - 1 because my work starts from the 3rd column, putting it this way makes it easier for myself and others to see what am I trying to do with the columns.

I know this would be easy if I'm working it in rows, since i can put it like Range("A" & 2 + a), but in this case, changing columns, i can't add the 'a' to the 'A', since A + 1 doesn't equal to B in this case. Any ideas? Any help would be very much appreciated.

Thanks for your time,
CJ

 

[pedie]

Trying to help, do you mean something like this?

[/FONT]
[FONT=Courier New]Sub LoopinColumns_TilllastColumn()
Dim lc As Long
Dim i As Long
lc = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 1 To lc
 MsgBox i
Next i
End Sub

 

[YCJ]

Hmmm, thanks for your reply.

But, what I'm trying to do is like selecting from A2 to A100, then copy it, then pasting it somewhere else, and then move on to B2 to B100. I have done the part involving copying and pasting, but I'm kinda stucked in the switching from A2 to A100 --> B2 to B100 --> C2 to C100...... part. As you can see in my first post,

For a = 1 To UBound(file)
Cells(2, 3 + a - 1).Select
Next a

I will loop depending on my UBound, since the 'a' variable is involve in other procedures in this very same loop, I would like to implement it in this action as well, because the amount of columns I have to go is the same as my UBound value.

Hope you understand what I'm saying, i know it's kinda puzzling. @.@

Thank you for your precious time,
CJ

 

[YCJ]

Hi there

Thank you all for your time, I've solved the problem. Sorry if I have wasted any of your time, trying to help me out.

Thanks,
CJ

 

[pedie]

CJ, please share your solution

 

[YCJ]

Okay then,

For a = 1 To UBound(file)Range(Cells(2, 3 + a - 1), Cells(100, 3 + a - 1)).Select
Selection.Copy
Next

Of course, I still have coding after the copy part, but it is too lengthy, so that is pretty much how I move from one column to another.

CJ

 

[YCJ]

For a = 1 To UBound(file)
Range(Cells(2, 3 + a - 1), Cells(100, 3 + a - 1)).Select
Selection.Copy
Next

 

[pedie]

Thanks you!

 

[YCJ]

Lol no, Thank YOU...appreciate your helping hand..

 

[YCJ]

Hi guys

Now I have another question, refering above, I used

Range(Cells(2, 3 + a - 1), Cells(100, 3 + a - 1)).Select

to select a particular column, what if I need to select another column at the same time? What can i do with it?

CJ