Userform Listbox düzenlenmesi hakkında yardım

[emrebenn]

Merhaba
Ekteki linkte kendime uyarlamaya çalıştıgım fir userform exceli var.Aşağıda belirtecegim konularda yardımınızı rica ederim.
1:Listbox ın Data sayfasındaki sutunların hepsni görücek şekilde düzenlenmesi.
2:Listbox mümkünse süzme veya filitreleme özelliginin eklenmesi(çok elzem degil olursa iyi olur)
2: - DTPpicker 2 ve 3 ün check box larının seçili gelmemesini ben seçince
Yardımlarınızı rica ederim.

 

[çıtır]

Additem metodu ile 10 sütundan fazla alamazsınız .30 sütunuz var sanırım.Aşağıdaki kodu 30 kadar devam ettirrerek Listbox da görüntülersiniz.

Dim Sons, Satir As Long
Sons = Sheets("Data").Range("b65536").End(xlUp).Row
   ReDim Dizi(Sons - 9, 30)
GKKlistbox.Clear
For Satir = 9 To Sons
    Dizi(Satir - 9, 0) = Sheets("Data").Cells(Satir, 2)
    Dizi(Satir - 9, 1) = Sheets("Data").Cells(Satir, 3)
    Dizi(Satir - 9, 2) = Sheets("Data").Cells(Satir, 4)
    Dizi(Satir - 9, 3) = Sheets("Data").Cells(Satir, 5)
    Dizi(Satir - 9, 4) = Sheets("Data").Cells(Satir, 6)
    Next Satir
GKKlistbox.List() = Dizi()

 

[Orion1]

RowSource ile 9 sütundan fazla alamazsınız.30 sütunuz var sanırım.Aşağıdaki kodu 30 kadar devam ettirrerek Listbox da görüntülersiniz.

Sayın çıtır,diliniz sürçtü herhalde,
Rowsource yöntemi ile 9 sütundan fazlasını alabilir demek istediniz herhalde.
Çünkü additem metodu ile 10 sütundan fazla alamazsınız.

 

[çıtır]

Evet haklısınız.Sanırım uyku hali devam ediyor.Uyanamadım.

 

[emrebenn]

SN Çıtır Önerdigi şekilde kod düzenlemeyi beceremedim Dosya üzerinde düzeltme yapabilirmisiniz acaba .

 

[çıtır]

SN Çıtır Önerdigi şekilde kod düzenlemeyi beceremedim Dosya üzerinde düzeltme yapabilirmisiniz acaba .

Üzgünüm.Yapılması gerekeni açık bir şekilde yazdım.Dosyanızda pekçok kod mevcut.Başka bir yardımda bulunamayaçağım.