G
Guest
Hi All.........
I am in need of a macro beyond my skill level, if someone please. I want to
do a FIND on column A and have a pop-up ask the user for a number to find,
then find it and color the whole row gold, then goto column A of that
row..........my efforts at recording brings in specific cell locations which
will not work for multiple searches.
Here's my recorded macro.......
Sub FindVendorNumber()
Columns("A:A").Select
Selection.Find(What:="a01309", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Rows("781:781").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("A781").Select
End Sub
Any help would be much appreciated.........
Vaya con Dios,
Chuck, CABGx3
I am in need of a macro beyond my skill level, if someone please. I want to
do a FIND on column A and have a pop-up ask the user for a number to find,
then find it and color the whole row gold, then goto column A of that
row..........my efforts at recording brings in specific cell locations which
will not work for multiple searches.
Here's my recorded macro.......
Sub FindVendorNumber()
Columns("A:A").Select
Selection.Find(What:="a01309", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Rows("781:781").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("A781").Select
End Sub
Any help would be much appreciated.........
Vaya con Dios,
Chuck, CABGx3