listbox column işlemi

[marimar]

merhaba arkadaşlar uğraştım bir türlü beceremedim.
sayfanın a stunundaki veriler 20 den büyükse listbox column1'e b stunundaki veriyi column2'ye c stunundaki veriyi column3'e d stunundaki veriyi almak istiyorum.
teşekkürler.

 

[Orion1]

merhaba arkadaşlar uğraştım bir türlü beceremedim.
sayfanın a stunundaki veriler 20 den büyükse listbox column1'e b stunundaki veriyi column2'ye c stunundaki veriyi column3'e d stunundaki veriyi almak istiyorum.
teşekkürler.

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim i  As Long, sat As Long, x As Long
ListBox1.ColumnCount = 3
sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    If Cells(i, "A") > 20 Then
        ListBox1.AddItem
        ListBox1.List(x, 0) = Cells(i, "B").Value
        ListBox1.List(x, 1) = Cells(i, "C").Value
        ListBox1.List(x, 2) = Cells(i, "D").Value
        x = x + 1
    End If
Next
End Sub