formülde hata almıyorum ama çalışmıyor

[egemynet]

merhaba arkadaşlar aşağıdaki işlemde bir hata da almıyorum ama çalışmıyor da acaba neresini yanlış yapıyorum?

c4-c11 arası yazdığım plaka varsa mesaj versin istiyorum

Sub SearchText()
Dim SearchString, SearchChar, MyPos
SearchChar = "20 DL 293"
For Each cell In Range("c4:c11")
SearchString = cell.Text
MyPos = InStr(SearchString, SearchChar)


BUL = Range(cell.Address).Value

If MyPos > 0 Then

If SearchChar = BUL Then
MsgBox "palaka var"
Else
MsgBox "palaka yOK"
End If

End If
Next
End Sub

Yardımcı olursanız sevinirim. Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Forumda konu silmek diye birşey yoktur. Her çözüme kavuşturulan soru silinirse o çözüme ihtiyacı olanlar nerden ulaşacak. :???:

Alternatif kodlar:

Sub KOD()

Plaka = "20BHR96"

Set BUL = Range("C4:C11").Find(Plaka, , xlValues, xlWhole)
If Not BUL Is Nothing Then
MsgBox " Var "
Else
MsgBox " Yok "
End If

End Sub

. . .

 

[egemynet]

Sizin kodlar daha kısa ve öz olmuş teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Plaka hep sabit mi ?
Değişken ise inputbox ile her defasında farklı plaka girilerek aratma sağlanabilir.

. . .

 

[egemynet]

Plaka sabit değil hüseyin bey dediğiniz gibi input la aratarak sorgulatıyorum zaten tesekkür ederim ancak söyle bir şey lazım oldu inputa plakaya otomatik tamamlatamadım yani ilk birkaç harfini yazınca kayıtlı plakalardan oto tamamlasın istedim ama acemilik başa bela