Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DELETE ROW 3 MATCHING CRITERIA
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
DELETE ROW 3 MATCHING CRITERIA
Sub deleterows()
Dim lastrow as Long, i as Long set lastrow = cells(rows.count,1).End(xlup).row for i = lastrow to 1 step -1 if cells(i,1).value = cells(i,2).value and cells(i,3).value = "delete" then rows(i).delete end if Next End Sub -- Regards, Tom Ogilvy "FIRSTROUNDKO via OfficeKB.com" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
DELETE ROW 3 MATCHING CRITERIA
Thanks Don
Don Guillett wrote: Tom read it correctly. Mine is comparing ROWS not COLUMNS try Sub deleteifsame() [quoted text clipped - 31 lines] Darren -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200605/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Matching criteria and summing | Excel Worksheet Functions | |||
MAX value matching multiple criteria | Excel Worksheet Functions | |||
Matching Text with With Certain Criteria | Excel Worksheet Functions | |||
How can find a value using two different matching criteria? | Excel Worksheet Functions | |||
delete all matching rows | Excel Discussion (Misc queries) |