Delete Cells when error
Yea!!! Thank you Mike!
"Mike H" wrote:
Karen,
Try,
Sub marine()
FrowinD = 1
With Sheets("Table")
LrowinD = .Cells(.Rows.Count, "D").End(xlUp).Row
For ictr = LrowinD To FrowinD Step -1
If IsError(Cells(ictr, 4).Value) Then
Range("D" & ictr & ":E" & ictr).Select
Selection.Delete Shift:=xlUp
End If
Next
End With
End Sub
Mike
"Karen53" wrote:
Hi,
what am I doing wrong here? I need to delete cells D & E if there is an
error in D.
With Sheets("Table")
LrowinD = .Cells(.Rows.Count, "D").End(xlUp).Row
For iCtr = LrowinD To FrowinD Step -1
With .Cells(LrowinD, "D")
If IsError(.Value) Then
.Cells(LrowinD, "D:E").Select
Selection.Delete Shift:=xlUp
End If
End With
Next
End With
Thanks for yor help.
|