Userform çalışırken koşul ile CommandButton Gizle/Göster

[yselimyilmaz]

Arkadaşlar;

Ekli dosyamdaki userformu çalıştırırken ListBox1 boş ise CommandButton5 in görünmesini, dolu ise görünmemesini istiyorum.
(ListBox1 DATA1 sayfası A sütunundaki kodlardan TextBox1 e girince oluşuyor)

If ListBox1.ListCount > 0 Then
CommandButton5.Visible = False
Else
CommandButton5.Visible = True
End If

Bu kodlamayı TextBox1_Exit, UserForm_Initialize() gibi olayların içeriğine yazınca yapabiliyorum. Benim istediğim Buton, Texbox vb olayların içinde değilde Userform çalışırken devamlı anlık sorgulayarak butonu gösterip göstermemesi.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Muzaffer Ali]

UserForm1'in kod editörüne aşağıdaki kodları ekleyin.

Private Sub ListBox1_Change()
    If ListBox1.ListCount = 0 Then
        CommandButton5.Visible = True
    Else
        CommandButton5.Visible = False
    End If
End Sub

 

[yselimyilmaz]

Cevabınız için teşekkürler, kod editörü nedir? Onu anlamadım. Modülemi yazmam gerekiyor kodları

 

[Muzaffer Ali]

UserForm1'in kodlarının yazılı olduğu sayfa.

 

[yselimyilmaz]

Kusura bakmayım dalgınlıktan insan bildiğinide unutuyor. Şimdi dışardayım dönünce ilk fırsatta kodlarınızı deneyeceğim. Tekrar teşekkürler

 

[yselimyilmaz]

Sayın dalgalıkur;

Verdiğiniz kodları yazdım, bir eksik sorunsuz çalıştı.
Listbox'dan CommandButton2 (Seçili Satırı Sil) ile satır silerek içeriği boşalttığımda CommandButton5 kaybolmadı.

Bu sorunuda;

CommandButton olayına "Call ListBox1_Change" kodunu ilave ederek düzelttim.

Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
ListBox1.RemoveItem ListBox1.ListIndex
Call ListBox1_Change
End Sub