TextBox0 - Düşeyara

[Hantor]

TextBox0 içerisine aramak istediğim bir şey yazdığımda TextBox78 içerisine kayıt MEVCUT gelmesini istiyorum bu mümkün müdür.
Yani aramak istediğim ibare var ise Mevuct yok ise Mevcut Değil ibaresi yazmasını istiyorum.

 

[YUSUF44]

Aramak istediğiniz veri nerde aranacak?

 

[Hantor]

Excel de "GKayit" Sayfasında "C1;C" Hücresinde olacak oluru varmıdır.

 

[Muzaffer Ali]

Merhaba.

Sayın Yusuf online olmadığı için cevap vermedi herhalde.

Aşağıdaki kod ile yapabilirsiniz.

Private Sub TextBox0_Change()
    If TextBox0.Text = "" Then
        TextBox78.Text = ""
    ElseIf Worksheets("GKayit").Range("C:C").Find(What:=TextBox0.Text, LookAt:=xlWhole) Is Nothing Then
        TextBox78.Text = "MEVCUT DEĞİL "
    Else
        TextBox78.Text = "MEVCUT"
    End If
End Sub

 

[Hantor]

Elinize sağlık hocam çok teşekkür ederim.