I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it reaches
the last row. The range is variable based on the data I import from another
file. Is this doable?

Thanks,

James

JStone0218,

I have plagiarized this from J.E. McGimpsey


For Each cell In Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)

Do whatever it is you want to do on your column A of data.

Next cell

The For Each statement says in effect,

Start in A1,
Count the number of rows
now xlUP from the bottom (number of rows)

So you have defined the bottom row.

Hope that helps.

Regards,
Kevin

"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James

Hello James,

'You can use .SELECT instead of Application.Goto
Application.Goto Range("A65536").End(xlUp).Offset(1)
or

Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)

I think it is faster than looping cells.


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James

Kevin,

Thanks, this worked great!

James

"Kevin Stecyk" wrote in message
...
JStone0218,

I have plagiarized this from J.E. McGimpsey


For Each cell In Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)

Do whatever it is you want to do on your column A of data.

Next cell

The For Each statement says in effect,

Start in A1,
Count the number of rows
now xlUP from the bottom (number of rows)

So you have defined the bottom row.

Hope that helps.

Regards,
Kevin

"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James

Hi Donnie,

You are most welcome--glad it worked for you.

Regards,
Kevin


"Donnie Stone" wrote in message
...
Kevin,

Thanks, this worked great!

James

"Kevin Stecyk" wrote in message
...
JStone0218,

I have plagiarized this from J.E. McGimpsey


For Each cell In Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)

Do whatever it is you want to do on your column A of data.

Next cell

The For Each statement says in effect,

Start in A1,
Count the number of rows
now xlUP from the bottom (number of rows)

So you have defined the bottom row.

Hope that helps.

Regards,
Kevin

"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until
it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James