Listbox 10 dan fazla sutün eklemiyor

[crpzz37]

Selamun Aleyküm

Dim ürünsayısı As Integer
ürünsayısı = WorksheetFunction.CountA(Worksheets("depo hareketleri").Range("a:A"))
Dim i As Integer
For i = 2 To ürünsayısı
ListBox1.AddItem Worksheets("depo hareketleri").Range("a" & i) 'ürün kodu
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("depo hareketleri").Range("b" & i) 'ürün türü
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("depo hareketleri").Range("c" & i) 'ürün adı
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("depo hareketleri").Range("d" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 4) = Worksheets("depo hareketleri").Range("e" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 5) = Worksheets("depo hareketleri").Range("f" & i) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 6) = Worksheets("depo hareketleri").Range("g" & i) 'çıkı
ListBox1.List(ListBox1.ListCount - 1, 7) = Format(Worksheets("depo hareketleri").Range("h" & i), "dd.mm.yyyy") 'tarih
ListBox1.List(ListBox1.ListCount - 1, 8) = FormatCurrency(Worksheets("depo hareketleri").Range("ı" & i), 2) 'fiyat
ListBox1.List(ListBox1.ListCount - 1, 9) = CDbl(Worksheets("depo hareketleri").Range("J" & i))
ListBox1.List(ListBox1.ListCount - 1, 10) = Worksheets("depo hareketleri").Range("K" & i) 'FİRMA
Next i
End Sub

en sondaki satırı ekleyene kadar listbox ım çalışmaktaydı ama 11. sütunu ekledikten sonra hata veriyor ve çalıştıramıyorum yardımınız için şimdiden Allah razı olsun

 

[Orion1]

Additem metoduyla en fazla 10 sütun ekleyebilirsiniz.
Daha çok sütun olsun istiyorsanız rowsource metodunu kullanmalısınız.

 

[crpzz37]

sayın @Orion1

LİSTBOX A BUŞEKİLDE LİSTELEME YAPIYORUM VE ALTTAKİ ŞEKİLDE GİBİ TEXTBOX İLE ARAMA İLE İÇERİSİNDEN SÜZÜYORUM ROW SOURCE İLE LİSTBOXA VERİ ALDIĞIM ZAMAN TEXTBOX İLE ARAMA YAPTIRAMIYORUM BU KONUDA YARDIMCI OLABİLİRMİSİNİZ.

Dim ürünsayısı As Integer
ürünsayısı = WorksheetFunction.CountA(Worksheets("depo hareketleri").Range("a:A"))
Dim i As Integer
For i = 2 To ürünsayısı
ListBox1.AddItem Worksheets("depo hareketleri").Range("a" & i) 'ürün kodu
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("depo hareketleri").Range("b" & i) 'ürün türü
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("depo hareketleri").Range("c" & i) 'ürün adı
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("depo hareketleri").Range("d" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 4) = Worksheets("depo hareketleri").Range("e" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 5) = Worksheets("depo hareketleri").Range("f" & i) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 6) = Worksheets("depo hareketleri").Range("g" & i) 'çıkış
ListBox1.List(ListBox1.ListCount - 1, 7) = Format(Worksheets("depo hareketleri").Range("h" & i), "dd.mm.yyyy") 'tarih
ListBox1.List(ListBox1.ListCount - 1, 8) = FormatCurrency(Worksheets("depo hareketleri").Range("ı" & i), 2) 'fiyat
ListBox1.List(ListBox1.ListCount - 1, 9) = CDbl(Worksheets("depo hareketleri").Range("J" & i))
ListBox1.List(ListBox1.ListCount - 1, 10) = Worksheets("depo hareketleri").Range("K" & i) 'FİRMA
Next i
End Sub

"BU ŞEKİLDE TEXTBOXTAN ARAMA YAPIYORUM"

ListBox1.Clear
Dim aranan, arananuzunlugu, urun2, urunuzunlugu, var, urunsayısı As Variant
aranan = TextBox15.Value
arananuzunlugu = Len(aranan)
urunsayısı = WorksheetFunction.CountA(Worksheets("depo hareketleri").Range("a:a"))
For ii = 1 To urunsayısı
urunuzunlugu = Len(urun2)

urun2 = Worksheets("depo hareketleri").Range("b" & ii) 'marka

For i = 1 To urunuzunlugu
If Mid$(urun2, 1, arananuzunlugu) = aranan Then
    var = 1
    End If
    
Next i

If var = 1 Then


ListBox1.AddItem Worksheets("depo hareketleri").Range("a" & ii)
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("depo hareketleri").Range("b" & ii)
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("depo hareketleri").Range("c" & ii)
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("depo hareketleri").Range("d" & ii)
ListBox1.List(ListBox1.ListCount - 1, 4) = Worksheets("depo hareketleri").Range("e" & ii) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 5) = Worksheets("depo hareketleri").Range("f" & ii) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 6) = Worksheets("depo hareketleri").Range("g" & ii) 'çıkış
ListBox1.List(ListBox1.ListCount - 1, 7) = Format(urun5, "dd.mm.yyyy") 'tarih
ListBox1.List(ListBox1.ListCount - 1, 8) = FormatCurrency(Worksheets("depo hareketleri").Range("ı" & ii), 2) 'fiyat
ListBox1.List(ListBox1.ListCount - 1, 9) = CDbl(Worksheets("depo hareketleri").Range("j" & ii)) 'çıkış
ListBox1.List(ListBox1.ListCount - 1, 10) = Worksheets("depo hareketleri").Range("K" & ii) 'FİRMA

var = 0
End If
Next ii

 

[Orion1]

Boş bir yeni sayfa açın.
Veri alacağınız yerde otomatik filtre yapın.
Sonucunu kopyalayıp yeni sayfaya yapıştırın.
Ondan sonra o sayfadan listbox için rowsource yöntemi ile yapıştırılan verilerin hepsini listboxa alın.

 

[Orion1]

örnek dosya yollarsanız,üzerinde çalışma yapılabilir.

 

[crpzz37]

@Orion1 dediğiniz gibi yaptım çok teşekkürler Allah razı olsun

 

[Orion1]

@Orion1 dediğiniz gibi yaptım çok teşekkürler Allah razı olsun

Rica ederim.
iyi çalışmalar.