Inserting cells using VBA

[Sreedhar]

Hi,

I want a macro that inserts cells at column "F" and shifts the cells right
<IF> the cell value at column "H" meets certain criteria.

something like:
For each cell in Range(H1:H3500")
If IsNumeric(cell.value) Then 'only numbers, nulls
excluded
''''Insert three cells at "F" and shift right
End If
Next cell

Thanks

 

[Joel]

For RowCount = 1 To 3500
If IsNumeric(Range("H" & RowCount).Value) Then
Range("F" & RowCount).Insert Shift:=xlToRight
End If
Next RowCount

 

[Per Jessen]

Hi

Try this:

Dim cell As Range
For Each cell In Range("H1:H3500")
If IsNumeric(cell.Value) Then 'only numbers, nulls excluded
cell.Resize(1, 3).Insert Shift:=xlShiftToRight
End If
Next cell

Regards,
Per

 

[Sreedhar]

Thanks. that works.
--
Sreedhar

For RowCount = 1 To 3500
If IsNumeric(Range("H" & RowCount).Value) Then
Range("F" & RowCount).Insert Shift:=xlToRight
End If
Next RowCount