Search method VBA

[dhutirth]

I'm new here so at the beginning hello to everyone <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
I have one problem with my EXCEL application. Earlier my application was written without VBA but now I’m trying to master my VBA skills and I’m rewriting everything. I don't now how to write this in VBA code:<o></o>
<o> </o>
For example in cell A1 a have this function<o></o>
<o> </o>
If(isnumber(search(B1;C1) );"you have a cat"; if(isnumber(search(B2;C1));"you have a dog";"you have something else"))<o></o>
<o> </o>
B1 = "cat"
B2 = "dog"
C1 = "long text with a word cat (or dog)" <o></o>
<o> </o>
This function should search for at least two different words in long text. The text will always contain word "dog" or "cat". All those words are of course only examples <o></o>
<o> </o>
A will by appreciate for any help<o></o>
<o> </o>

 

[saltkev]

Hi

Note Sure I understood your requirements, however try this. It can be run under comand button or spread sheet event.

Dim firstsearch, secondsearch

firstsearch = Range("b2").Text ' hold text value from range B1
secondsearch = Range("b3").Text ' hold text value from range B1

For Each animal In Range("b2:B7") ' Range to be searched
    If animal = firstsearch Then ' first search
    
      animal.Offset(0, 1).Value = "You Have a Cat"
      
      ElseIf animal = secondsearch Then ' second search
        animal.Offset(0, 1).Value = "You Have a Dog"
       Else ' anything else
       
             
          animal.Offset(0, 1).Value = "You Have Something Else"
      End If
      
Next animal

regards

 

[dhutirth]

Thx for reply. I already solve my problem. I used this code:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

With Arkusz1.Cells(1, 3)
    Set Find = .Find(what:="cat")
End With
 
If Find Is Nothing Then
 
    With Arkusz1.Cells(1, 3)
        Set Find = .Find(what:="dog")
    End With
 
    If Find Is Nothing Then
        Arkusz1.Cells(1, 1) = "you have something else"
    Else
        Arkusz1.Cells(1, 1) = "you have a dog"
    End If
 
Else
Arkusz1.Cells(1, 1) = "you have a cat"
End If

But i'll also check Yours