listbox1'den listbox2 koşullu aktarma

[AKTAY27]

selam arkadaşlar

listbox1'de veri listesi var
tarih - fat. no- vb. gibi 9.kolon tutar kolonu, toplam 11 kolon var.

benim istediğim listbox2'ye listbox1'in 9.kolonunda tutarı 440 ytl altında olanların listesinin listbox2 ye almak.

 

[Orion1]

selam arkadaşlar

listbox1'de veri listesi var
tarih - fat. no- vb. gibi 9.kolon tutar kolonu, toplam 11 kolon var.

benim istediğim listbox2'ye listbox1'in 9.kolonunda tutarı 440 ytl altında olanların listesinin listbox2 ye almak.

İşte kodlar.

Dim i As Long, k As Byte, a As Long
ListBox2.Clear
ReDim myarr(1 To 11, 1 To 1)
For i = 0 To ListBox1.ListCount - 1
    If CDbl(ListBox1.Column(8, i)) < 440 Then
        a = a + 1
        ReDim Preserve myarr(1 To 11, 1 To a)
        For k = 1 To 11
            myarr(k, a) = ListBox1.Column(k - 1, i)
        Next k
    End If
Next i
If a > 0 Then ListBox2.Column = (myarr)

 

[AKTAY27]

teşekkürler evren gizlen
Allah Razı Olsun

 

[Orion1]

teşekkürler evren gizlen
Allah Razı Olsun

Rica ederim.
İyi çalışmalar.