Listbox

[zeliha]

Arkadaşlar ekteki dosyada listboxta listeleme yapmak istiyorum.Sizden istediğim ilk satır listboxta kaybolmasın.Yani başlık olarak kalsın.Birde yazdığım kodlarda hata varsa düzeltmenizi rica ederim
Çok teşekkürler.

 

[Levent Menteşoğlu]

Commandbutona yazdığınız kodlarla listboxa veriler additem ile yüklenmektedir. Bu durumda başlık satırını sabit tutamazsınız. Eğer verilerinizi rowsource ile listboxa yüklerseniz bu durumda başlık sabitlenebilir. Aşağıdaki kodları ilgili nesnelere kopyalayarak deneyin.

Userforma (bu kodlar listboxun özelliklerini belirler)

[vb:1:1144e1301c]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 9 'sütun sayısı
ListBox1.ColumnHeads = True 'sütun başlığını sabitler
ListBox1.ColumnWidths = "40;30;30;50;60;60;50;30;50" 'sütun genişlikleri
ListBox1.TextAlign = 2 'metinlerin merkezde yazılması
End Sub
[/vb:1:1144e1301c]

Commanbuttona (bu kodlarda listboxa rowsource ile yükleme yapar)

[vb:1:1144e1301c]Private Sub CommandButton1_Click()
ListBox1.RowSource = "sayfa1!a2:i" & [a65536].End(3).Row
End Sub
[/vb:1:1144e1301c]

Burada [a65536].End(3).Row ifadesi sonkayıtlı satırı bulmak içindir. Böylece tabloya her eklenen veri için alt sınırı tanımlamanız gerekmez.

 

[rainstar]

slm arkadaşlar yeni başlık eklemek istemedim o yüzden soruyu buraya yazmayı düşündüm umarım cevap alırım... şimdeden sağolun


Private Sub UserForm_Activate()
With ComboBox1
.RowSource = "d2:d65536"
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
With ListBox1
.ColumnCount = 15
.ColumnWidths = "70;70;70;70;70;70;70;70;70;70;70;70;70;70;70;70;70;70;70;70"
.ColumnHeads = True
.RowSource = "d2:r65536"
End With
end sub


ve birde


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1 = Cells(ListBox1.ListIndex + 2, "d")
ComboBox2 = Cells(ListBox1.ListIndex + 2, "e")
ComboBox3 = Cells(ListBox1.ListIndex + 2, "b")
ComboBox4 = Cells(ListBox1.ListIndex + 2, "c")


komutları var ama listbox'ın birinci sırasını tıkladığımda sorun yok ancak ikinci sıra tıkladığında verileri getirmiyor nerde yanlışlık olabilir...