Hi,
I’m fairly newto generating macros. I’ve been using record macros, but it’s not workingexactly the way I would like it to.
1. On tab “KIT”, select cell “O2”
2. Copy (In the example the text in O2, is “test”)
3. Go to tab “PLAN”, select column “B:B”
4. Find & paste
5. Close Find Pop-Up
6. Scroll to the left
This is what it’s recording. I’m not sure how to changethe Find “test” to Find whatever text is in cell O2.
Sheets("KIT").Select
Range("O2").Select
Selection.Copy
Sheets("PLAN").Select
Columns("B:B").Select
Selection.Find(What:="test", After:=ActiveCell,LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 11).Range("A1").Select
Any help with this would be greatly appreciated!
Thanks in advance!
Laurinda
I’m fairly newto generating macros. I’ve been using record macros, but it’s not workingexactly the way I would like it to.
1. On tab “KIT”, select cell “O2”
2. Copy (In the example the text in O2, is “test”)
3. Go to tab “PLAN”, select column “B:B”
4. Find & paste
5. Close Find Pop-Up
6. Scroll to the left
This is what it’s recording. I’m not sure how to changethe Find “test” to Find whatever text is in cell O2.
Sheets("KIT").Select
Range("O2").Select
Selection.Copy
Sheets("PLAN").Select
Columns("B:B").Select
Selection.Find(What:="test", After:=ActiveCell,LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 11).Range("A1").Select
Any help with this would be greatly appreciated!
Thanks in advance!
Laurinda