PDA

View Full Version : problem writing after last used row



mehdoush
07-05-2009, 02:22 AM
hey guys,

i want to write a note after the last row used in an excel sheet, for example write "Task Complete".

thnks in advance
regards

mdmackillop
07-05-2009, 02:49 AM
Sub Complete()
Dim Rw As Long
Rw = Cells.Find("*", Cells(1, 1), searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Cells(Rw + 1, 1) = "Task Complete"
End Sub

mehdoush
07-05-2009, 04:43 AM
thanks so much mdmackillop ;)

regards