Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to insert headers..need coding help
Hi. I have some very large spread sheets that I need to insert headers
into. I figure I can do an If...then statement but I'm not getting it to work. Here is what I have: Sub Headers() Dim Counter As Double Counter = 1 If Cells(Counter, 1) = "01" Then Cells.Insert shift:=xlDown 'do the splitting here, like Cells(Counter, 1).FormulaR1C1 = "Record Type" Cells(Counter, 2).FormulaR1C1 = "Process Date/Time" Cells(Counter, 3).FormulaR1C1 = "Customer Number" Cells(Counter, 4).FormulaR1C1 = "Customer Name" Cells(Counter, 5).FormulaR1C1 = "Enrollment Type" Cells(Counter, 6).FormulaR1C1 = "Filler" End If 'Increment the Counter By 1 Counter = Counter + 1 End Sub So every time the first cell has an 01 in it I want to insert a row that has the header titles in it. However, when I run this macro nothing happens. I'm not sure what I am missing. Can you help? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Way to insert a footer in an entire workbook w/o altering headers | Excel Discussion (Misc queries) | |||
Insert work sheet with Custom headers | Excel Discussion (Misc queries) | |||
Implant macro coding into ASP coding | Excel Programming | |||
VBA-How to insert vba code file in a project using coding rather than manual import | Excel Programming | |||
Coding a button or hyperlink to insert a predfined row | Excel Programming |