EĞER YOK İSE MESAJ VERSİN

[cocoa35]

İyi akşamlar üstatlar, Ekli örnek dosyada UserForm1 ListBox1 deki listeden seçtiğim kişi adına sayfa açıp Cari hesap kartı o sayfaya düzenletebiliyorum Aynı userForm1 de tek tık ile seçtiğim müşterinin Cari Hesap kartını UserForm2 üstündeki ListBox1 'e getirtebiliyorum.Benim sorunum Eğer seçilmiş olan isim adında herhangi bir sayfa yok ise Mesaj versin örneğin Bu isimde Cari hesap kartı yoktur diye Ekli örnek dosyada hepsini yapıyor ancak mesajı bir türlü verdirtemedim! siz bir el atsanız lütfen

 

[AdemCan]

Userform1 deki Cari Hesap Kartını Getir başlıklı buton kodlarını değiştiriniz.

Private Sub CommandButton2_Click()
Dim s As Worksheet

For Each s In Worksheets
    If s.Name = TextBox5 Then GoTo cikis
Next
    MsgBox "Cari Kart Yok", , ""
    Exit Sub
cikis:
    UserForm2.Show
End Sub

 

[cocoa35]

Teşekkürler Adem bey gayet iyi oldu

 

[AdemCan]

Rica ederim.