Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
This is part of the long thread with the subject Vlookup & Copy. I
finally have an idea on what is needed to solve this problem after stepping through the code. 1. I need this section to output the results on another Sheet=Sheet3. 2. ID & Employee should be swapped. Each Employee has a number of ID's. 3. Is it possible to do another match for the Col C:sheet1 to the results/output of Col A? If there is a match copy all of that ROW from Col C:Col O on the same row as that matching Employee. 4. Is it possible to do #3 the same time as the Matching is being done to Sheet2? Sub MatchingRows() ' ' NOTE: The macro assumes there is a header in the both worksheets ' The macro starts at row 2 and sort data automatically ' ScreenUpdating = False 'get first empty row of sheet1 With Sheets("Sheet1") LastRow = .Range("A" & Rows.Count).End(xlUp).Row NewRow = LastRow + 1 End With 'find matching rows in sheet 2 With Sheets("Sheet2") RowCount = 2 Do While .Range("A" & RowCount) < "" ID = Trim(.Range("A" & RowCount)) Employee = Trim(.Range("B" & RowCount)) 'compare - look for ID in Sheet 1 With Sheets("Sheet1") Set c = .Columns("A").Find(what:=ID, _ LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) If Not c Is Nothing Then 'add to end of sheet 1 .Range("A" & NewRow) = ID .Range("B" & NewRow) = Employee NewRow = NewRow + 1 End If End With RowCount = RowCount + 1 Loop End With Thanks for your help... |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Matching Rows | Excel Discussion (Misc queries) | |||
Matching rows in 2 sheets and copying matching rows from sheet 1 t | Excel Programming | |||
Sum rows above me matching critiera... | Excel Programming | |||
Sum Rows with a matching date | Excel Discussion (Misc queries) | |||
select only non-matching rows | Excel Programming |