clif
02-15-2012, 10:07 PM
How to do the loop for find text in a particular column ?
Columns("W:W").Select
Selection.Find(What:="abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
Selection.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "bdc"
Columns("W:W").Select
Selection.Find(What:="abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
Selection.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "bdc"