How do I get the row number?
 

Hi,
The code snippet below will copy data from a certain row plus other info to
a different sheet.
I would like it to include the row number (at the end) of the row copied
from for ease of identification in the future. Any ideas welcomed.

.Range("B" & lngNewRow).Value = Sheets("claims").Range("D" & lngRowNo)
.Range("C" & lngNewRow).Value = Sheets("claims").Range("E" & lngRowNo)
.Range("H" & lngNewRow).Value = UserForm8.TextBox1.Text
.Range("I" & lngNewRow).Value = UserName()
.Range("J" & lngNewRow).Value = Format(Date, "dd mmm")
.Range("K" & lngNewRow).Value = Format(Time, "hh:mm")
.Range("L" & lngNewRow).Value = rownumber()

Thanks
--
Traa Dy Liooar

Jock

How do I get the row number?
 

Jock,

Isn't it lngRowNo you want

..Range("L" & lngNewRow).Value = lngRowNo


Mike

"Jock" wrote:

Hi,
The code snippet below will copy data from a certain row plus other info to
a different sheet.
I would like it to include the row number (at the end) of the row copied
from for ease of identification in the future. Any ideas welcomed.

.Range("B" & lngNewRow).Value = Sheets("claims").Range("D" & lngRowNo)
.Range("C" & lngNewRow).Value = Sheets("claims").Range("E" & lngRowNo)
.Range("H" & lngNewRow).Value = UserForm8.TextBox1.Text
.Range("I" & lngNewRow).Value = UserName()
.Range("J" & lngNewRow).Value = Format(Date, "dd mmm")
.Range("K" & lngNewRow).Value = Format(Time, "hh:mm")
.Range("L" & lngNewRow).Value = rownumber()

Thanks
--
Traa Dy Liooar

Jock