Insert row numbers

[sjharri]

Hi,

I need to insert row numbers to a csv file that is generated from a
spreadsheet of data. Thought I could user NumberRows() but not sure if
this is correct.

Could someone tell me the best way to insert row numbers for each row
of data. The amount of data varies each time the csv file is generated.

Thanks
Steve

 

[Guest]

This task is easier in the worksheet than VBA. Pick an un-used column and
enter:

=ROW() and copy down

 

[sjharri]

Thanks for the reply however it must be done in VBA.

 

[Dave Peterson]

I'd insert a new row A.

Then pick out a column that always has data:

Option Explicit
Sub testme02()
Dim wks As Worksheet
Dim LastRow As Long
Set wks = ActiveSheet
With wks
.Range("a1").EntireColumn.Insert
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
With .Range("a1:A" & LastRow)
.Formula = "=row()"
.Value = .Value
End With
End With
End Sub

 

[Dave Peterson]

I'd insert a new COLUMN A.

I'd insert a new row A.

Then pick out a column that always has data:

Option Explicit
Sub testme02()
Dim wks As Worksheet
Dim LastRow As Long
Set wks = ActiveSheet
With wks
.Range("a1").EntireColumn.Insert
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
With .Range("a1:A" & LastRow)
.Formula = "=row()"
.Value = .Value
End With
End With
End Sub

 

[sjharri]

I am getting the message invalid or unqualified reference for the .rows
in the following line.

LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

Any ideas?

Thanks

 

[sjharri]

All working thanks!!!!

I am getting the message invalid or unqualified reference for the .rows
in the following line.

LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

Any ideas?

Thanks