G
Gene Augustin
I'm trying to insert Item numbers in cells next to rows that have data in
the data column.
BEFORE AFTER
COL A Col A Col B
DATA ITEM DATA
99 1 99
98 2 98
97 3 97
84 4 84
34 5 34
The macro selects the proper numerical row value for FirstRow and LastRow,
inserts the Column name (Item) and inserts the series starting number ( 1 ),
but I get a global error for the Range statement, and the series doesn¹t
run.
How to change?
Sub AddItemNumber()
Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
LastRow = ActiveCell.End(xlDown).Row
ActiveCell.EntireColumn.Insert
ActiveCell.Value = "Item"
ActiveCell.Offset(1).Value = 1
FirstRow = ActiveCell.Row + 1
Range("FirstRow" & "LastRow").Select
ŒRange(³FirstRow:LastRow²).Select
ActiveCell.DataSeries Rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
End Sub
the data column.
BEFORE AFTER
COL A Col A Col B
DATA ITEM DATA
99 1 99
98 2 98
97 3 97
84 4 84
34 5 34
The macro selects the proper numerical row value for FirstRow and LastRow,
inserts the Column name (Item) and inserts the series starting number ( 1 ),
but I get a global error for the Range statement, and the series doesn¹t
run.
How to change?
Sub AddItemNumber()
Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
LastRow = ActiveCell.End(xlDown).Row
ActiveCell.EntireColumn.Insert
ActiveCell.Value = "Item"
ActiveCell.Offset(1).Value = 1
FirstRow = ActiveCell.Row + 1
Range("FirstRow" & "LastRow").Select
ŒRange(³FirstRow:LastRow²).Select
ActiveCell.DataSeries Rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
End Sub