Listboxda Şartlı Listeleme

[hakanbolat]

Arkadaşlar Örneği Gönderiyorum,İncelerseniz sevinirim, Listboxda fatura numarasına göre aratıp sonra listbox'a yüklüyorum ama listede ya fatura numarasını yada satırı eksik listeliyor..

 

[veyselemre]

[vb:1:8d6c52e83f]Private Sub CommandButton1_Click()
On Error Resume Next
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = 0 & ";" & 95 & ";" & 55 & ";" & 50 & ";" & 30 & ";" & 50 & ";" & 35 & ";" & 10
i = 0
For j = 2 To [B65536].End(3).Row
If Cells(j, 2) = tt Then
ListBox1.AddItem
ListBox1.Column(0, i) = Cells(j, 1)
ListBox1.Column(1, i) = Cells(j, 7)
ListBox1.Column(2, i) = Format(Cells(j, 8), "##,###.00")
ListBox1.Column(3, i) = Format(Cells(j, 9), "##,###0.0000")
ListBox1.Column(4, i) = Cells(j, 10)
ListBox1.Column(5, i) = Format(Cells(j, 11), "##,###.00")
ListBox1.Column(6, i) = Format(Cells(j, 12), "##,###.00")
ListBox1.Column(7, i) = Format(Cells(j, 13), "##,###.00")
i = i + 1
End If
Next
End Sub
[/vb:1:8d6c52e83f]

 

[hakanbolat]

Veyselemre kodu denedim çalışıyor,ilgin için teşekürrler..