Help! Searching for text with more than one criteria

[Sethaholic]

Hi,

I have a text file that is formatted in a way like this:

Department #
Responsible person:
labor distribution

Here is my code so far:

Sheets("Sheet3").Select
Range("A1").Select
Open "C:\Documents and Settings\Kevin\desktop\ebc440.txt" For Input As #1
texttofind = "DEPARTMENT 33290"
Do Until EOF(1)
Line Input #1, data
If InStr(1, data, texttofind) Then
ActiveCell.Offset(r, 0) = data
r = r + 1
End If
Loop
Close

How do I code it so that I can add more criteria like "labor" and "responsible person" and not just the department 33290". Please help, thanks in advance!

[optionbase1]

you can use the AND function in the IF statement at the top to define multiple instances of the INSTR(...) test (or the OR function etc..)


i.e.

If InStr(1, data, texttofind) AND InStr(1, data, texttofind2) Then
...
...
ENDIF

where texttofind2 is your second search criteria.

if you want to seach for a string but don't know what you will be looking for when writing the code then a simple INPUT box statement can receive you text without the need for a dialogbox with all the associated code:

texttofind = INPUTBOX ("Enter Search Text")