A
april
i want to add rows if the contents of a cell in the row is blank. i am using
this macro. i want the macro to go down column c to look for blank cells -
if it encounters a blank cell, i want to insert a row. getting an error
message with the "if statement"
thanks in advance for the help
-- range("c9").Select
Count = 0
Do Until Count = 200
ActiveCell.Offset(1, 0).Select
If ActiveCell.FormulaR1C1 = "=CELL(""type"" = "b")" Then
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Count = Count + 1
Loop
End Sub
aprilshowers
this macro. i want the macro to go down column c to look for blank cells -
if it encounters a blank cell, i want to insert a row. getting an error
message with the "if statement"
thanks in advance for the help
-- range("c9").Select
Count = 0
Do Until Count = 200
ActiveCell.Offset(1, 0).Select
If ActiveCell.FormulaR1C1 = "=CELL(""type"" = "b")" Then
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Count = Count + 1
Loop
End Sub
aprilshowers