Find a value with a given condition(VBA FIND)

[JST013]

So I am trying to use .find() to to locate a string and write an adjacent string on a different worksheet if a cell adjacent to the string meets a criteria. If I find a string and the cell meets the criteria I am done at that point. I don't need to look any further.

mouthful...


this is what I have so far....

dim ws as worksheet
set ws = thisworkbook.sheets("Sheet1")
for each thing in [Table[Column 1]][INDENT]With thing

[/INDENT]
[INDENT=2]set found = .cells.find(what:=thing)

If Not found Is Nothing

[/INDENT]
[INDENT=3]Do Until found Is Nothing

[/INDENT]
[INDENT=4]frow = found.Row
fcol = found.Column
gotcha = ws.Cells(foundrow, 2)

**********
[/INDENT]
[INDENT=3]Loop

[/INDENT]
[INDENT=2]End If

[/INDENT]
[INDENT]End With

[/INDENT]
next thing

so gotcha is my adjacent string...in the next column over is where I want to test the criteria...

Not sure how to go about setting my criteria... if ws.cells(foundrow,3) <> meet critera...then what can I do to keep searching?

also...if i wanted the search to start at the bottom of the list...am I doing this correctly?

Thank you I know I'm very confusing...infact I confuse myself

 

[dmt32]

Hi,
you need to use FindNext Method - a working example can be found in your VBA Helpfile under "FindNext"

Dave