Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
evaluting cell contents for "type" and add row if the cell is bla
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
evaluting cell contents for "type" and add row if the cell is bla
Hi April,
What about : If IsEmpty(ActiveCell.Value) Then HTH Carim |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
nested Cell("contents", w/ cell contents reference) | Excel Worksheet Functions | |||
how to increase size of "name box" and "contents of cell " displa. | New Users to Excel | |||
VBA setting formula for a cell causes "Wrong data type" error | Excel Discussion (Misc queries) | |||
When I type "BVE" in a cell, it automatically chanegs to"BE"..Why | Excel Discussion (Misc queries) | |||
if one cell has "X" textin contents, then pull cell "Y"... | Excel Worksheet Functions |