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.
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.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.