Double Delete

T

TGalin

I have this macro

Dim myLastRow As Long
Dim r As Long
Dim c As Range
myLastRow = ActiveSheet.Cells(10000, 4).End(xlUp).Row
For r = myLastRow To 1 Step -1
Set c = ActiveSheet.Range("D" & r)
If c.Value = "Back" Then
c.EntireRow.Delete
End If
Next r

What can I add to this macro so that it in addition to deleting the entire
row if it finds "Back" in Column D, it also deletes the entire row above it?
 
R

Rick Rothstein

Change this line...

c.EntireRow.Delete

to this...

c.Offset(-1).Resize(2).EntireRow.Delete
 
T

TGalin

You were correct. I tested it. Thank you.

Rick Rothstein said:
Change this line...

c.EntireRow.Delete

to this...

c.Offset(-1).Resize(2).EntireRow.Delete
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top