I have a list of ID numbers listed in a column on one worksheet. I want to find a subset of these ID numbers in another worksheet, copy the entire row associated with the ID number and paste the row it into yet another worksheet.
This is my first attempt at writing some vba code and any help would be greatly appreciated as I really don't want to do all this by hand.
Here is what I have have tried so far:
Sub copypaste()
Dim mySelect As String
ActiveCell.Select
mySelect = Selection.copy
Windows("file.xls").Activate
Columns("C:C").Select
Selection.Find(What:="mySelect", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
EntireRow.Select
Application.CutCopyMode = False
Selection.copy
Windows("file").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Bookmarks