G
Guest
It keeps on keeping the same data in my macro.
There is an identifier # on each sheet. It was supposed to type the number
into the find box and then go to the 2nd sheet and find that number. Next to
that number is a name and it was supposed to copy over that name back on the
1st sheet. But the # in the find box never changes. I don't know how to
copy a new one in there each time I run the macro.
Sub Macro24()
'
' Macro24 Macro
' Macro recorded 11/7/2006 by jjt
'
' Keyboard Shortcut: Ctrl+g
'
Sheets("Sheet1").Select
Selection.Copy
Cells.Find(What:="987987", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Sheets("Sheet2").Select
Selection.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
Application.CutCopyMode = False
Selection.Cut
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Sheet2").Select
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("Sheet1").Select
End Sub
There is an identifier # on each sheet. It was supposed to type the number
into the find box and then go to the 2nd sheet and find that number. Next to
that number is a name and it was supposed to copy over that name back on the
1st sheet. But the # in the find box never changes. I don't know how to
copy a new one in there each time I run the macro.
Sub Macro24()
'
' Macro24 Macro
' Macro recorded 11/7/2006 by jjt
'
' Keyboard Shortcut: Ctrl+g
'
Sheets("Sheet1").Select
Selection.Copy
Cells.Find(What:="987987", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Sheets("Sheet2").Select
Selection.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, -1).Range("A1").Select
Application.CutCopyMode = False
Selection.Cut
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -2).Range("A1").Select
Sheets("Sheet2").Select
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("Sheet1").Select
End Sub