Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
I have an excell workbook that has 2 sheets i use them for part #'s and i
want to have all of the part #s that have the same part # on bolth sheets to be put on a new sheet sheet 3 is there a way to do this?? |
#2
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
One way:
Run this macro. I assumed your part numbers are in Column A in both sheets and you want the numbers in the third sheet to be in Column A. I also assumed your sheets are named "One", "Two", and "Three". Change these as necessary. HTH Otto Sub CopyDups() Dim rColAOne As Range Dim rColATwo As Range Dim Dest As Range Dim i As Range Sheets("One").Select Set rColAOne = Range("A2", Range("A" & Rows.Count).End(xlUp)) With Sheets("Two") Set rColATwo = .Range("A2", .Range("A" & Rows.Count).End(xlUp)) End With Set Dest = Sheets("Three").Range("A2") For Each i In rColAOne If Not rColATwo.Find(What:=i.Value, LookAt:=xlWhole) Is Nothing Then i.Copy Dest Set Dest = Dest.Offset(1) End If Next i End Sub "Srenfro" wrote in message ... I have an excell workbook that has 2 sheets i use them for part #'s and i want to have all of the part #s that have the same part # on bolth sheets to be put on a new sheet sheet 3 is there a way to do this?? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
compare worksheets | Excel Discussion (Misc queries) | |||
Compare | Excel Worksheet Functions | |||
How do I compare cells and if FALSE compare to next cell in EXCEL | Excel Worksheet Functions | |||
Compare & Delete | Excel Discussion (Misc queries) | |||
compare | Excel Worksheet Functions |