Bill_Biggs
Well-known Member
- Joined
- Feb 6, 2007
- Messages
- 1,216
I have a psuedo code here I am trying to figure out an actual macro for. The macro needs to go through about a hundred words in a range, locate them, and perform a function on the first row after the term
Then it needs to do it over and over again, changing the word it is looking for each time.
For i = 1 To Range.Cells.Count
Cells.Find(What:="FREQ_High", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Perform procedure
next i
End
What I really need help with is where to put the range and how so that each time the macro loops, it gathers the next term in the range? By the way, the range is located on Sheet 1 A1:A100.
Thanks
Then it needs to do it over and over again, changing the word it is looking for each time.
For i = 1 To Range.Cells.Count
Cells.Find(What:="FREQ_High", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Perform procedure
next i
End
What I really need help with is where to put the range and how so that each time the macro loops, it gathers the next term in the range? By the way, the range is located on Sheet 1 A1:A100.
Thanks