VBA for Selecting Last Row in Range
On Sunday, October 25, 2020 at 12:05:51 PM UTC-7, Peter T wrote:
"David Godinger" wrote in message
Yes, getting the last cell of text or numbers in one column is easy, but
that's not what I'm asking for.
OK try this -
Sub test()
Dim rngData As Range
Dim rngFound As Range
Set rngData = Range("B2:J20")
Set rngFound = rngData.Find("*", rngData.Cells(1), xlValues, , xlByRows,
xlPrevious)
If rngFound Is Nothing Then
MsgBox rngData.address & " is empty"
Else
MsgBox rngFound.Address
End If
End Sub
Peter T
OK, great! The message box found the correct cell. Could you please add a line to select that cell?
|