ComboBox taki içeriğe göre uyarı verdirmek

[zorro14]

arkadaşlar ekli dosyada yeni kayıt tuşuna bastığımda combobox1 in içeriği boşken uyarı verdiriyorum fakat ikinci bir uyarı verdirmem gerekiyor Combobox1 in içeriği Sheets(2) isimli sayfadan farklı bir şey ise örneğin Sayfa 1, Sayfa2 ise aynı uyarıyı vermesini istiyorum acil yardım arkadaşlar lütfen

 

[Kemal Demir]

  If ComboBox1 = Empty Or ComboBox1.Text <> "Sheets(2)" Then
            MsgBox "YEN&#304; KAYIT &#304;&#199;&#304;N SHEETS (2) &#304;S&#304;ML&#304; SAYFAYI SE&#199;MEL&#304;S&#304;N&#304;Z  !!", vbCritical, "UYARI"
            ComboBox1.SetFocus
            Exit Sub
    End If
        Unload Me
        UserForm2.Show

Yukarıdaki gibi değiştiriniz.

 

[zorro14]

oldu teşekkür ederim ben hep and ile denemiştim bir türlü olmuyordu ellerine bilgine sağlık teşekkürler

 

[zorro14]

peki arkadaşlar şimdide silinen sayfayı sildikten sonra comboboxtaki listede görmemek için nasıl bir kod yazabilirim ilginize şimdiden teşekkür ederim

 

[zorro14]

arkadaşlar 2. bir sorunumda ekli dosyada silinen sayfayı sildikten sonra comboboxtaki listede görmemek için nasıl bir kod yazabilirim ilginize şimdiden teşekkür ederim

 

[zorro14]

yokmu arkadaşlar 2. soruna bir yardım edecek

 

[Korhan Ayhan]

Selamlar,

Silme işlemini yapan butona ait kodunuzun End Sub satırından önce aşağıdaki kodu eklerseniz istediğiniz sonuca ulaşabilirsiniz.

UserForm_Initialize

Yani aşağıdaki şekilde olmalı kodunuz.

Private Sub CommandButton3_Click()
    ' Silmek için Yapılan Uyarı ve Silme
    If ComboBox1 = Empty Then
       MsgBox "SİLİNECEK PERSONELİ SEÇMELİSİNİZ  !!", vbCritical, "UYARI"
       ComboBox1.SetFocus
       Exit Sub
       End If
    Application.DisplayAlerts = False
    mesaj = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ !!", vbYesNo)
    If mesaj = vbNo Then Exit Sub
    ActiveSheet.Delete
        MsgBox ComboBox1.Text & "   İSİMLİ PERSONEL KAYDI S İ L İ N M İ Ş T İ R !!", vbInformation + vbOKOnly, "KAYIT GÜNCELLENDİ"
    Exit Sub
    [COLOR=red]UserForm_Initialize[/COLOR]
End Sub

 

[zorro14]

tam dediğiniz yere dediğiniz kodu yazdım ama nedense olmadı hocam yaaaa bir türlü comboboxa aldırdığım sayfalar silindikten sonra eksilmiyor acaba nedendir. dosyada deneyerek yapabilirmisiniz

 

[Orion1]

Command butonda initializeden önce exit sub yaparak prosedürden çıkmışsınız.Doslası ile initialize çalıştırılmıyordu.
Initialize olayına ben kırmızı renkli satırı ekledim.
Dosyanız ekte.

Private Sub UserForm_Initialize()
  ' Sayfaları Comboboxa aktarma
Dim i, k As Integer
[B][COLOR="Red"]ComboBox1.Clear[/COLOR][/B]
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
ActiveSheet.Select
End Sub

 

[zorro14]

Teşekkür ederim evren gizlenhocam ellerinize bilgilerinize sağlık