dynamic range selection
 

if column b is empty but i want to select the cell in column b next to
the last cell with value in column a, how can i select the empty cell
in column b.


Range("A1").Select
Selection.End(xlDown).Select
??

Thanks


--
JohnDK
------------------------------------------------------------------------
JohnDK's Profile: http://www.excelforum.com/member.php...fo&userid=7184
View this thread: http://www.excelforum.com/showthread...hreadid=485700

dynamic range selection
 

Try this

Sub test()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Cells(lr, "B").Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"JohnDK" wrote in message
...

if column b is empty but i want to select the cell in column b next to
the last cell with value in column a, how can i select the empty cell
in column b.


Range("A1").Select
Selection.End(xlDown).Select
??

Thanks


--
JohnDK
------------------------------------------------------------------------
JohnDK's Profile: http://www.excelforum.com/member.php...fo&userid=7184
View this thread: http://www.excelforum.com/showthread...hreadid=485700

dynamic range selection
 

Ron, thanks, i appreciate it.

If i want to select the corresponding cell in column c as well how
would i have to change the column index to include that cell.?

Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Cells(lr, "B").Select

???cells(lr,"B:C").Select???


--
JohnDK
------------------------------------------------------------------------
JohnDK's Profile: http://www.excelforum.com/member.php...fo&userid=7184
View this thread: http://www.excelforum.com/showthread...hreadid=485700

dynamic range selection
 

One way:

Sub test()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(lr, "B"), Cells(lr, "C")).Select
End Sub

Regards
Rowan

JohnDK wrote:
Ron, thanks, i appreciate it.

If i want to select the corresponding cell in column c as well how
would i have to change the column index to include that cell.?

Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Cells(lr, "B").Select

???cells(lr,"B:C").Select???