Thread
:
DELETE ROW 3 MATCHING CRITERIA
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
DELETE ROW 3 MATCHING CRITERIA
try
Sub deleteifsame()
On Error Resume Next
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If UCase(Cells(i, "c")) = "DELETE" And _
Cells(i - 1, 1).Value = Cells(i, 1).Value And _
Cells(i - 1, 2).Value = Cells(i, 2).Value Then
Cells(i - 1, 1).Resize(2).EntireRow.Delete
End If
Next i
End Sub
--
Don Guillett
SalesAid Software
"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe wrote in message
news:5fa64777931de@uwe...
HI!
I am loooking fo a macro that will delete 2 rows based a delete being in
the
2nd row and the data in col A ans B being the same.
i.e before
Car Bus net 1 USD
Car Bus delete NOFAIR
Car Train net 2 USD
Plane Walking net 5 USD
Plane Bus delete NOFAIR
after
Car Train net 2 USD
Plane Walking net 5 USD
Plane Bus delete NOFAIR
Thanks in Advance
Darren
--
Message posted via
http://www.officekb.com
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett