listbox a 22 kolon eklemek

[musculus2]

Listbox a additem yöntemi ile 10 dan fazla kolon eklenmiyor.Forumda dizi ya da rowsource yöntemi ile eklenebileceğini öğrendim ama kendime adapte edemedim.Yardım edebilir misiniz ?

 

[Orion1]

userformun activate olayındaki kodları aşağıdaki kodlarla değiştiriniz.

Private Sub UserForm_Activate()
TextBox18.Value = Format(Now, "dd.mm.yyyy")
With ListBox1
.RowSource = ""
.ColumnCount = 21
.ColumnWidths = "80;120;50;1;110;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60"
.ColumnHeads = True
.RowSource = "A3:V" & Cells(Rows.Count, "A").End(xlUp).Row
End With
End Sub

 

[kemal turan]

Merhaba,
userformu açıp listbox u seçtğinizde solda özellikler kısmında;
Rowsource=Sheet1!b3:v2000
ColumnHeads = 22
ColumnWidths = 80pt;120pt;49,95pt.... sutun mesafelerini yazarsanız isteğiniz olur.
Dosyanız ekte dir.

 

[kemal turan]

Pardon Sn.Orıon hocam,
cevabınızı görmedim.
Selametle

 

[musculus2]

Teşekkür ederim.

 

[ahmetkostek]

Merhaba ,


Aşağıdaki kod için de yardımcı olabilir misiniz 18 kolon listelemek istiyorum ama 10 kolonu geçmiyor en sondaki olanda hata veriyor.


Bu formatı değiştirmek istemiyorum çünkü combobox ile listbox da arattırma yapıyorum
Ne yapmam gerekiyor kolon sayısını arttırmak için




Sub zimmetfiltre()
Dim veri As Worksheet
Set veri = Sheets("zimmet_takip")

ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "40;150;80;100;100;40;150;120;100;100"





ToplamSatir = veri.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ToplamSatir
If Range("f" & i).Value Like TextBox_sicil.Value & "*" Then
liste = ListBox1.ListCount
ListBox1.AddItem

ListBox1.List(liste, 0) = Range("A" & i).Value
ListBox1.List(liste, 1) = Range("B" & i).Value
ListBox1.List(liste, 2) = Range("c" & i).Value
ListBox1.List(liste, 3) = Range("d" & i).Value
ListBox1.List(liste, 4) = Range("e" & i).Value
ListBox1.List(liste, 5) = Range("f" & i).Value
ListBox1.List(liste, 6) = Range("g" & i).Value
ListBox1.List(liste, 7) = Range("h" & i).Value
ListBox1.List(liste, 8) = Range("ı" & i).Value
ListBox1.List(liste, 9) = Range("j" & i).Value
'ListBox1.List(liste, 10) = Range("k" & i).Value 'saat
End If
Next i
End Sub

 

[Korhan Ayhan]

Burada benzer konu için cevaplar var..

Listboxdaki Kolon sayısının adeti?

Merhaba arkadaşlar daha önce görmüştüm ama şimdi aratmama rağmen göremedim benim listboxumda 12 kolon var combobox ile listboxda süzme işlemi yaptırıyorum ancak süzme işlemini yaptıktan sonra listboxdaki tüm kolonları göstermiyor yani listboxa alınan sayfada 12 kolon olmasına rağmen süzme...

www.excel.web.tr

listbox sutun sayısı artırmak

Selamlar.. Öncelikle Vba Konusunu Yeni Öğrenmeye çalışıyorum. hatam olursa Kusura bakmayın Lütfen.. Kendi Çapımda Bir Fatura Kesme Parogramı hazırladım. Verileri İlgili Dosyalara aktarmak gerekiyor. ListBox sa verileri girdikten sonra hesaplama yaptırıp,diğer dosyalara aktarıyorum. sıkıntım şu...

www.excel.web.tr

 

[ahmetkostek]

Burada benzer konu için cevaplar var..

Listboxdaki Kolon sayısının adeti?

Merhaba arkadaşlar daha önce görmüştüm ama şimdi aratmama rağmen göremedim benim listboxumda 12 kolon var combobox ile listboxda süzme işlemi yaptırıyorum ancak süzme işlemini yaptıktan sonra listboxdaki tüm kolonları göstermiyor yani listboxa alınan sayfada 12 kolon olmasına rağmen süzme...

www.excel.web.tr

listbox sutun sayısı artırmak

Selamlar.. Öncelikle Vba Konusunu Yeni Öğrenmeye çalışıyorum. hatam olursa Kusura bakmayın Lütfen.. Kendi Çapımda Bir Fatura Kesme Parogramı hazırladım. Verileri İlgili Dosyalara aktarmak gerekiyor. ListBox sa verileri girdikten sonra hesaplama yaptırıp,diğer dosyalara aktarıyorum. sıkıntım şu...

www.excel.web.tr

Cevaplara baktım ama aradığımı bulamadım yukarıdaki paylaştığım kodlar değişmede nyapılabilir mi ? Çünkü 3 combobox ile filtreleme yaptırıyorum

 

[Korhan Ayhan]

AddItem metodu ile en fazla 10 sütun ekleyebilirsiniz. Verdiğim linklerde bu konu geçiyordu.

Daha fazla bilgi için forumda Listbox+Redim ifadeleri ile arama yapabilirsniz. Bolca örnek var.