| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extracting data from one sheet unless it is also on a second w
Joel - thanks very much. Works like a charm!
Victoria "joel" wrote: Sub CopyUnique() Set Sht1 = Sheets("Sheet1") Set Sht2 = Sheets("Sheet2") Set Sht3 = Sheets("Sheet3") 'set New row to the row hwre to copy on sheet 3 NewRow = 2 With Sht1 RowCount = 2 Do While .Range("A" & RowCount) < "" EmpID = .Range("A" & RowCount) With Sht2 Set c = .Columns("A").Find(what:=EmpID, _ LookIn:=xlValues, lookat:=xlWhole) End With If c Is Nothing Then .Rows(RowCount).Copy _ Destination:=Sht3.Rows(NewRow) NewRow = NewRow + 1 End If RowCount = RowCount + 1 Loop End With End Sub -- joel ------------------------------------------------------------------------ joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=157530 Microsoft Office Help . |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Extracting Specific Data from one sheet to another. | Excel Worksheet Functions | |||
| Extracting data from one sheet into another | Excel Worksheet Functions | |||
| data validation works in one sheet but not another | New Users to Excel | |||
| Please help. Extracting data from one sheet to another | New Users to Excel | |||
| help extracting data from an excel sheet | Excel Worksheet Functions | |||
Threaded Mode
