Soru uyarı verdirme

[sirkülasyon]

Öncelikle Kadir Geceniz mübarek olsun.

Userform textbox1 de yer alan TC kimlik no "BULUNAN" sayfasında var ise LABEL14' e aranılan TC bulunanlar sayfasında mevcuttur uyarısını nasıl verdirebilirim?

 

[Korhan Ayhan]

Bilmukabele..

Kendinize uyarlarsınız.

Private Sub TextBox1_Change()
    Dim Bul  As Range
    If Len(TextBox1) = 11 Then
        Set Bul = Sheets("BULUNAN").Cells.Find(TextBox1, , , xlWhole)
        If Not Bul Is Nothing Then
            Label14.Caption = "Aranılan TC NO bulunanlar sayfasında mevcutur."
        Else
            Label14.Caption = "Aranılan TC NO bulunamadı!"
        End If
    End If
End Sub