hi, I need to find the next empty row in my data range, but it has
several empty rows throughout it.
I need to be able to measure from the bottom of a worksheet upwards, on
column B
and then select the next empty row

any ideas?


--
matpj
------------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=481003

Part of your solution will probably need this code:

Find the very last used cell in a Column:

Sub LastCellInColumn()

Range("A65536").End(xlup).Select

End Sub

Since you know "B" is the column with the last data, change the code to
read:

Range("B65536").End(x1up).Select

Perhaps one of the more experienced members of this group can show us
how to use this...


--
Campbellj4
------------------------------------------------------------------------
Campbellj4's Profile: http://www.excelforum.com/member.php...o&userid=28506
View this thread: http://www.excelforum.com/showthread...hreadid=481003

Use this code:Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A"
Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub

places cursor in cell A99999 where 99999=the first row below the las
entry in column

--
swatsp0

-----------------------------------------------------------------------
swatsp0p's Profile: http://www.excelforum.com/member.php...fo&userid=1510
View this thread: http://www.excelforum.com/showthread.php?threadid=48100

Part of your solution will probably need this code:

Find the very last used cell in a Column:

Sub LastCellInColumn()

Range("A65536").End(xlup).Select

End Sub

Since you know "B" is the column with the last data, change the code to
read:

Range("B65536").End(x1up).Select

Perhaps one of the more experienced members of this group can show us
how to use this...


--
Campbellj4
------------------------------------------------------------------------
Campbellj4's Profile: http://www.excelforum.com/member.php...o&userid=28506
View this thread: http://www.excelforum.com/showthread...hreadid=481003

Use this code:Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub

places cursor in cell A99999 where 99999=the first row below the last
entry in column A


--
swatsp0p


------------------------------------------------------------------------
swatsp0p's Profile: http://www.excelforum.com/member.php...o&userid=15101
View this thread: http://www.excelforum.com/showthread...hreadid=481003