عد عامود معين فى الليست بوكس

[RafMizraim]

السلام عليكم لو سمحت كنت عايز كود لعد عامود معين فى الليست بوكس. بمعنى لو عندى ليست بوكس مكون من ٦ أعمدة عايز اعد البيانات اللى موجودة فى العامود الرابع بس مثلا لوحده . Excel vba

 

 

[lionheart]

Private Sub UserForm_Initialize()
    ListBox1.List = Range("A2:C11").Value
End Sub

Private Sub CommandButton1_Click()
    Dim c As Integer, i As Integer, t As Double
    Rem First Column In ListBox = 0
    c = 0
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i, c) <> Empty Then t = t + 1
    Next i
    MsgBox t
End Sub

 

[lionheart]

You can directly use this line if you don't care about empty items

MsgBox ListBox1.ListCount

 

[RafMizraim]

بشكرك جدا ع الرد و الكود الجامد