Excel Newbie7
New Member
- Joined
- Nov 18, 2013
- Messages
- 9
Hello All,
I have a problem that I just can't seem to figure out.
After using a vlookup formula, and a if then statment I found out that there are duplicates on my other sheets. I want to use a Macro to use the duplicate value in search and find to locate the item and highlight it on my other sheet. I have searched the web but can't find anything on this.
I can't seem to paste my coppied cell into the what in the find.
Sub Macro15()
'
' Macro15 Macro
'
'
Selection.Copy
Sheets("BAC Box").Select
Cells.Find(What:="Selection.paste", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Thanks you,
I have a problem that I just can't seem to figure out.

After using a vlookup formula, and a if then statment I found out that there are duplicates on my other sheets. I want to use a Macro to use the duplicate value in search and find to locate the item and highlight it on my other sheet. I have searched the web but can't find anything on this.
I can't seem to paste my coppied cell into the what in the find.
Sub Macro15()
'
' Macro15 Macro
'
'
Selection.Copy
Sheets("BAC Box").Select
Cells.Find(What:="Selection.paste", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Thanks you,