Listbox'a alınan verileri saydırma

[cem yılmaz]

Merhabalar..

Listbox'a aldığım verilerin kaç adet olduğunu textbox1 içine yazdırmak istiyorum.

 

[abdi]

ustad denermisin

Private Sub CommandButton1_Click()
Me.Caption = "LİSTBOX VERİ SAYDIRMA... "
    With ListBox1
        .ColumnCount = 1
        .List = Sheets("Sayfa1").Range("A1:a25").Value
    End With

TextBox1.Value = ListBox1.ListCount
End Sub

 

[cem yılmaz]

Evet Sn. Abdi teşekkürler.İstediğim gibi