Listbox da veriler eksik geliyor

[okankoc25]

Listbox daki veriler eksik bir biçimde geliyor ayrıca ara yapıp listbox a gelen verilerin texbox lara yansıması da eksik yanılmıyorsam textbox9 un verilerine kadar geliyor kodlardaki hatayı bir türlü anlayamadım.Yardımcı olursanız inanın beni çok sevindirirsiniz.

 

[hamitcan]

Hata, ListBox kolon sayısının bir(1) görünmesinden kaynaklanıyor zannedersem. Properties içinden ColumnCount sayısını arttırın.

 

[okankoc25]

Denedim olmadı mümkünse sen yapabilirsen dosya üzerinde göstetirsen çok sevinirim.

 

[okankoc25]

Arkadaşlar bir yardım.

 

[okankoc25]

şu sorunu çözecek kimse yok mu?

 

[hamitcan]

Aşağıdaki değişikliği yaptım, bir deneyin.

Private Sub UserForm_Initialize()
    Dim satir As Long
    Dim sutun As Integer, i As Integer
    satir = Sayfa2.Range("A65536").End(3).Row
    sutun = Sayfa2.Cells(1, Columns.Count).End(1).Column
    With ListBox1
        [COLOR=RED].ColumnCount = 10[/COLOR]
            For i = 1 To sutun
                genis = genis & CLng(Sayfa2.Columns(i).Width) & ";"
            Next i
        .ColumnWidths = genis
        .RowSource = "ALMANYA!A2:AL" & satir
        .ColumnHeads = True
    End With
End Sub

 

[okankoc25]

eline sağlık arkadaşım süpersin.senden bir şey daha istesim ayıp olur mu bilmiyorum.Arama yaptıktan sonra textboxlara veri eksik geliyor bunuda çözer inan çok sevineceğim

 

[hamitcan]

Ben bir fark göremedim ama...

 

[okankoc25]

Userformu açtığında direkt ara yap mesela textbox 9 den daha veri olanların ismi veya tc sini gir o zaman görebilirsin.Textbox 9 sonrasını vermiyor.

 

[hamitcan]

AddItem özelliği ile kısıtlı sayıda sütun eklenebilir, daha fazlası için RowSource özelliğini kullanmalısınız. Bunun ile ilgili forumda örnekler bulabilirsiniz.

 

[hamitcan]

Benzer bir konu...
List özelliği ile yapılmış bir örnek.
http://www.excel.web.tr/archive/index.php/t-81879.html

 

[okankoc25]

bir tane örnek yazsan...

 

[okankoc25]

Hamitcan bir tane örnek yazabilir misin?Çünkü verilen örneğe göre yaptım ama olmadı.Aşağıdaki kodu kullandım.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 12
For SUT = 1 To Cells(65536, "A").End(3).Row
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
ListBox1.List(S, 1) = Cells(SUT, "B")
ListBox1.List(S, 2) = Cells(SUT, "C")
ListBox1.List(S, 3) = Cells(SUT, "D")
ListBox1.List(S, 4) = Cells(SUT, "E")
ListBox1.List(S, 5) = Cells(SUT, "F")
ListBox1.List(S, 6) = Cells(SUT, "G")
ListBox1.List(S, 7) = Cells(SUT, "H")
ListBox1.List(S, 8) = Cells(SUT, "I")
ListBox1.List(S, 9) = Cells(SUT, "J")
'ListBox1.List(S, 10) = Cells(SUT, "K")
'ListBox1.List(S, 11) = Cells(SUT, "L")
S = S + 1
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Önerilen linkteki ilk mesajdaki kodun zaten hata verdiği belirtilmiş. Linkteki 2 nolu mesajdaki yapıyı uygulamalısınız.

Ya da verilerinizi diziye aldıktan sonra ilgili nesneye yükleyebilirsiniz. Bunun içinde forumda Listbox+Redim ifadesi ile arama yapabilirsiniz.