Listboxta maksimum sutun

[mtbi00]

Merhaba,

Oluşturduğum userformun içine listbox ekledim. Rowsource ile bilgi aktarınca sorun olmuyor ama tek tek yüklemeye kalktığımda 10 satira kadar bilgi alıyor. 11 satırda hata veriyor. Tek tek yüklemek istememin nedeni şartlara göre listbox içinde RemoveItem komutuyla bilgi silmek. Rowsource olayını kullandığım zaman RemoveItem çalışmıyor. Kodu aşağıdaki gibidir. Yardımlarınız rica olunur.

Private Sub UserForm_Initialize()
Set wsb = Workbooks.Open(ThisWorkbook.Path & "\Data\BANKA.XLSM")
ss = wsb.Sheets("BANKAANASAYFA").Range("a1000000").End(3).Row
sat = 0
With frm_bankgoster.lst_bankagoster
.ColumnCount = 11
' .ColumnHeads = True
.ColumnWidths = "0;45;90;0;20;80;80;80;150;60;50"
' .RowSource = "BANKAANASAYFA!A2:K" & ss
For i = 2 To ss
.AddItem
.List(sat, 0) = wsb.Sheets("BANKAANASAYFA").Range("a" & i)
.List(sat, 1) = wsb.Sheets("BANKAANASAYFA").Range("b" & i)
.List(sat, 2) = wsb.Sheets("BANKAANASAYFA").Range("c" & i)
.List(sat, 3) = wsb.Sheets("BANKAANASAYFA").Range("d" & i)
.List(sat, 4) = wsb.Sheets("BANKAANASAYFA").Range("e" & i)
.List(sat, 5) = wsb.Sheets("BANKAANASAYFA").Range("f" & i)
.List(sat, 6) = wsb.Sheets("BANKAANASAYFA").Range("g" & i)
.List(sat, 7) = wsb.Sheets("BANKAANASAYFA").Range("h" & i)
.List(sat, 8) = wsb.Sheets("BANKAANASAYFA").Range("i" & i)
.List(sat, 9) = wsb.Sheets("BANKAANASAYFA").Range("j" & i)
.List(sat, 10) = wsb.Sheets("BANKAANASAYFA").Range("k" & i) => Bu satırı kaldırırsam sorun yok. Ama bu satırı çalıştırmıyor.
sat = sat + 1
Next i
End With
frm_bankgoster.txt_bankasayisi = frm_bankgoster.lst_bankagoster.ListCount
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi deneyin.

Test()
    .ColumnCount = 26
    .List = wsb.Sheets("BANKAANASAYFA").Range("A2:Z" & ss).Value
End Sub

 

[ÖmerBey]

Merhaba,
Döngüyü iptal edip doğrudan veri almayı deneyebilirsiniz.

ListBox1.List = Sayfa1.Range("A1:K24").Value

Mantığında olmalı...
Sizin kodlarınıza uyarlamaya çalıştım ama dosyanız olmadığı için deneyemeyeceğim.
Yaklaşık şöyle bir şey olacak:

frm_bankgoster.lst_bankagoster.List = wsb.Sheets("BANKAANASAYFA").Range("A2:K" & ss).Value

 

[mtbi00]

Merhaba,
Döngüyü iptal edip doğrudan veri almayı deneyebilirsiniz.

ListBox1.List = Sayfa1.Range("A1:K24").Value

Mantığında olmalı...
Sizin kodlarınıza uyarlamaya çalıştım ama dosyanız olmadığı için deneyemeyeceğim.
Yaklaşık şöyle bir şey olacak:

frm_bankgoster.lst_bankagoster.List = wsb.Sheets("BANKAANASAYFA").Range("A2:K" & ss).Value

Hocam merhaba,

Benim esas istediğim listboxtaki verilerden istenileni sadece listboxtan silmek. Listboxtan veri silmek RemoveItem komutu ile yapılıyor diye biliyorum. Bu şekilde olunca RemoveItem çalışmıyor. Ama döngüyle yüklenince RemoveItem çalışıyor. O yüzden bunu sormak istedim.

 

[ÖmerBey]

Bu şekilde olunca RemoveItem çalışmıyor.

Bu bilginin doğruluğundan emin misiniz?
Veriler Rowsource ile alınmıyor.

 

[mtbi00]

Bu bilginin doğruluğundan emin misiniz?
Veriler Rowsource ile alınmıyor.

Bu bilginin doğruluğundan emin misiniz?
Veriler Rowsource ile alınmıyor.

Hocam tekrar merhaba,

Haklısınız. Dediğiniz gibi yapınca çalıştı. Çok teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...