getting the adress on the last row

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi
can i with
Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))

Get the last rows adress
like if the last post i have is in A11 then
get the adress A11

Reagrds
Alvin
 
Try this

set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))

With myRange2
i = .rows.count
j = .myRange2.cells(i,0).address
end with
 
To display the horizontal and vertical bounds on a range:


Sub Macro1()
Dim s As String
Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))
s = myRange2.Address
MsgBox (s)
With myRange2
nLastRow = .Rows.Count + .Row - 1
nLastColumn = .Columns.Count + .Column - 1
nFirstRow = .Row
nFirstColumn = .Column
End With
MsgBox ("first row " & nFirstRow)
MsgBox ("last row " & nLastRow)
MsgBox ("first column " & nFirstColumn)
MsgBox ("last column " & nLastColumn)
End Sub
 
Back
Top