- Hot Topics
Excel Genius Needed: code to find duplicates across tabs
Greetings, I have some code that attempts to locate duplicate entries, not within a worksheet, but across worksheets and then post sheet name of found dup in a sheet called "Instructions". Code: Sub SDupDel() Dim ColumnNumber1 As Integer Dim ColumnNumber2 As Integer Dim Found1 As Range Dim Found2 As Range Dim NumtoCol As String 'Application.ScreenUpdating = False FirstWS = 1 + 1 LastWS = Worksheets.Count - 2 Worksheets(FirstWS).Activate Set Found1 = Cells.Find(What:="Ticket_Carrier", After:=ActiveCell, :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, False, SearchFormat:=False) Found1.Select ColumnNumber1 = Selection.Column NumtoCol = ConvertToLetter(ColumnNumber1) 'RI = Range("a65536").End(xlUp).Row Log1_Range = Range(NumtoCol & "65536").End(xlUp).Row For WkSht_Range = FirstWS To LastWS '< Worksheets(WkSht_Range).Activate LI1 = Range(NumtoCol & "65536").End(xlUp).Row
This question generated 21 answers. To proceed to the answers, click here.
This thread is current as of June 25, 2014.
For more resources for Microsoft Excel:
This article includes the following tags:
- Microsoft Excel