Delete Cells when error
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. |
Delete Cells when error
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. |
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. |
Delete Cells when error
Mike has provided a nice solution. However, I would recommend
removing the select line. It is good coding practice to not select anything if not absolutely necessary. You could replace this: If IsError(Cells(ictr, 4).Value) Then Range("D" & ictr & ":E" & ictr).Select Selection.Delete Shift:=xlUp End If With this: If IsError(Cells(ictr, 4).Value) Then _ Range("D" & ictr & ":E" & ictr).Delete Shift:=xlUp Karen53 wrote: 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. |
All times are GMT +1. The time now is 08:59 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com