Find the last Row in a Range
Sheet1.Range("k" & Lastrow).Value = UserForm1.ListBox1.Value
you can also get the lastrow with
lastrow = cells(rows.count,11).End(xlup).row
--
Regards,
Tom Ogilvy
"TK" wrote in message
...
Trying to write to the last row in a range. The following code works down
to
( The next line fails ....
Thanks:
Private Function FindLastRow()
Dim R As Long
R = 2
Do While R < 65536 And Len(Cells(R, 11).Text) 0
R = R + 1
Loop
FindLastRow = R
End Function
Private Sub ListBox1_Click()
Lastrow = FindLastRow - 1
MsgBox Lastrow
Sheet1.Range("k1").Value = UserForm1.ListBox1.Value
( The next line fails - how should it be written?)
Sheet1.Range("kLastrow").Value = UserForm1.ListBox1.Value
End Sub
|