diziler konusu

[şehiriçi]

Merhaba arkadaşlar ,
hba isimli sayfadaki istediğim verileri listbox1 nesnesine diziler yapısı ile aktarırken Run-time error '424': Object required hatası aldım.
Aktarmasını istediğim veriler şöyle ,
eğer 7. sütun "f " ve 8. sütun "t" den farklı ise , listbox1 nesnesine satır ve isim adını yazdırmak , saygılarımla.

 

[Ziynettin]

Bu şekilde kullanın.

Private Sub UserForm_Initialize()
    Dim son, x, h As Long
    Dim hba As Worksheet
    Dim g()
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "30;80"
    Set hba = Sheets("hba")
    son = hba.Cells(Rows.Count, 1).End(xlUp).Row
    g = hba.Range("A2:H" & son).Value
    Dim dizi()
    For x = 1 To UBound(g)
        If g(x, 7) = "f" And g(x, 8) <> "t" Then
            h = h + 1
            ReDim Preserve dizi(1 To 2, 1 To h)
            dizi(1, h) = h
            dizi(2, h) = g(x, 1)
        End If
    Next x
    
    If h > 0 Then
        ListBox1.Column = dizi
    Else
        ListBox1.Clear
    End If
End Sub

 

[şehiriçi]

Ziynettin by çok teşekkürler .