ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Macro to compare two list (https://www.excelbanter.com/excel-programming/366871-macro-compare-two-list.html)

DGillham[_8_]

Macro to compare two list
 

Hi!

I have two worksheets. On the Master list I have a list of cars wit
their Registration numbers and vehicle details, the other has jus
registrations only. I wish to compare the two lists, and remove fro
the Master list
any vehicle that is on the registration list only.

I've been able to use the Macro from the Microsoft website, but thi
only removes the duplicate registration numbers, not the entire ro
relating to this registration number. Has anyone any idea how I modif
this macro to delete the row, not just the cell?

Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer

' Turn off screen updating to speed up macro.
Application.ScreenUpdating = True


' Get count of records to search through (list that will be deleted).
iListCount = Sheets("Master").Range("A1:A2500").Rows.Count

' Loop through the "master" list.
For Each x In Sheets("Sheet2").Range("A1:A2500")
' Loop through all records in the second list.
For iCtr = 1 To iListCount
' Do comparison of next record.
' To specify a different column, change 1 to the column number.
If x.Value = Sheets("Master").Cells(iCtr, 1).Value Then
' If match is true then delete row.
Sheets("Master").Cells(iCtr, 1).Delete xlShiftUp
' Increment counter to account for deleted row.
iCtr = iCtr + 1
End If
Next iCtr
Next
Application.ScreenUpdating = True
MsgBox "Done!"
End Sub

Thanks in advance
Darre

--
DGillha
-----------------------------------------------------------------------
DGillham's Profile: http://www.excelforum.com/member.php...fo&userid=1370
View this thread: http://www.excelforum.com/showthread.php?threadid=56016


ppyxl[_8_]

Macro to compare two list
 

Rows(iCtr).Delete Shift:=xlU

--
ppyx
-----------------------------------------------------------------------
ppyxl's Profile: http://www.excelforum.com/member.php...fo&userid=3611
View this thread: http://www.excelforum.com/showthread.php?threadid=56016


DGillham[_10_]

Macro to compare two list
 

Thanks for that, much appreciated. Taking it one step further, how
could I get it to remove this row, paste it onto another worksheet and
then resume the file comparison process?

Thanks again

Darren


--
DGillham
------------------------------------------------------------------------
DGillham's Profile: http://www.excelforum.com/member.php...o&userid=13707
View this thread: http://www.excelforum.com/showthread...hreadid=560164



All times are GMT +1. The time now is 07:38 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com