Listboxa Gelen Veriyi Saydırma

[metin_0606]

Arkadaşlar paylaşmış olduğum çalışmada kimlik süreleri geçen personelin isim listesini listboxa getirtiyorum. Gelen veri sayısını Userform da bir yere yazdırmak istiyorum. Bu label1 in başlık kısmına da olabilir yada userfom üzerinde ayrı bir label içinede olabilir. çalışma mevcut makrosu ile çalışmaktadır. Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Buyurun.

    MsgBox "Listelenen :" & UserForm1.ListBox1.ListCount

 

[metin_0606]

Buyurun.

    MsgBox "Listelenen :" & UserForm1.ListBox1.ListCount

Evren hocam listelenen 0 yazdı bunu msgbox şeklinde değilde Userform1 e Label2 açıp onun içine yazdırabilirmiyiz

 

[Orion1]

Userforma bir tane label ekleyin.

    UserForm1.Label2.Caption = "Listelenen :" & UserForm1.ListBox1.ListCount
If var = True Then
        UserForm1.Label1.Caption = "ASAGIDA ISMI BELIRTILEN PERSONELLERIN KİMLİK SURELERI BITMISTIR."
        UserForm1.Show
    End If
End Sub

 

[metin_0606]

Userforma bir tane label ekleyin.

    UserForm1.Label2.Caption = "Listelenen :" & UserForm1.ListBox1.ListCount
If var = True Then
        UserForm1.Label1.Caption = "ASAGIDA ISMI BELIRTILEN PERSONELLERIN KİMLİK SURELERI BITMISTIR."
        UserForm1.Show
    End If
End Sub

Teşekkür ederim Evren hocam tam istediğim gibi oldu zihnine sağlık