How to get the last valid (non blank) cell index?
Let's assume that your data is Activesheet.UsedRange:
Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1
MsgBox ("last row " & nLastRow)
nLastColumn = r.Columns.Count + r.Column - 1
MsgBox ("last column " & nLastColumn)
nFirstRow = r.Row
MsgBox ("first row " & nFirstRow)
nFirstColumn = r.Column
MsgBox ("first column " & nFirstColumn)
--
Gary''s Student - gsnu2007d
" wrote:
I have data in 100 rows through 120 colunms. How can i get the index
100 and 120? I mean last valid data index.
|