Listbox kolon başlıkları hk.

[mumugul]

Merhaba,

Sayfadan çekilecek veri olmayınca kolon başlıkları sütün başlıklarını gösteriyor.
Asıl kolon başlığı olması gereken başlık satırı ise listbox' a ilk kayıt oluyor.
Hatta boş bir satır da listbox' a yansıyor.
Bu durumu bu şekilde nasıl düzeltebiliriz, yardımcı olur musunuz?

Saygılarımla...

 

[turist]

Deneyin.

Private Sub UserForm_Initialize()
Dim son As Long: son = Worksheets("Sayfa1").Range("A65536").End(xlUp).Row
If son < 2 Then son = 2
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "50;50;50;50;50"
ListBox1.RowSource = "Sayfa1!A2:E" & son
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları kullanın.

Private Sub UserForm_Initialize()
    Dim SatirSay As Long
    ListBox1.ColumnHeads = True
    ListBox1.ColumnCount = 5
    ListBox1.ColumnWidths = "50;50;50;50;50"
    SatirSay = Worksheets("Sayfa1").Range("A65536").End(xlUp).Row
    If SatirSay < 2 Then SatirSay = 2
    ListBox1.RowSource = "Sayfa1!A2:E" & SatirSay
End Sub

 

[mumugul]

Teşekkürler...