Çözüldü ListBox Görünüm Hatası

listboxdata dizisini A1 den itibaren alın.

Teşekkürler emeğine sağlık Başlık olayı tamam. Sütun genişlikleri hakkında yardım edebilirmisiniz.

Hocam emeğinize yüreğinize sağlık. Tamam hallettim ama kafama takılan bir nokta var.
Ekteki kodda. Sub Listele olayındaki kodlar ne için o zaman?


Sub listele()
With Me.lstGoruntule
.ColumnHeads = True
Gridlines = True
.ColumnCount = 7
.ColumnWidths = "320;70;75;75;75;75"
son = sayfaVeriler.Range("A" & Rows.Count).End(3).Row
If son < 2 Then .RowSource = "'" & sayfaVeriler.Name & "'!A2:F2": Exit Sub
.RowSource = "'" & sayfaVeriler.Name & "'!A2:F" & son
End With
End Sub

Private Sub UserForm_Initialize()
Dim satir As Long
Dim lastRow As Long
Dim listBoxData As Variant

' "Tahsis" sayfasındaki son satırı bul
lastRow = ThisWorkbook.Sheets("Tahsis").Cells(Rows.Count, 1).End(xlUp).Row

' "Tahsis" sayfasındaki verileri diziye al
listBoxData = ThisWorkbook.Sheets("Tahsis").Range("A2:F" & lastRow).Value


' ListBox kontrolüne verileri ekleyin
With Me.lstGoruntule ' lstGoruntule, kullanılacak ListBox kontrolünün adıdır; uygunsa değiştirin
.ColumnCount = UBound(listBoxData, 2) + 1 ' Dizi sütun sayısını ListBox sütun sayısına ayarla

With FrmTahsis.lstGoruntule
.ColumnCount = 7
Gridlines = True
.Width = "320"
.ColumnWidths = "320;70;75;75;75;75"
End With

Sayın okinava14
listele makrosunu BtnSil butonunda kullanmışsınız.
listele makrosu rowsource ile veri alıyor.
Verisini Veriler sayfasından alıyor.
Sizin bu düzelttiğiniz kodlar ise verisini Tahsis sayfasından alıyor.
Benim naçizane tavsiyem sütun başlıkları için bu kadar uğraşmayın.
Yapın bir listbox. Sadece sütun başlıklarını ekleyin. Sütun genişliklerini
veri listelediğiniz listbox ile aynı yapın. Geçsin gitsin.
Sırf bu sütun başlıklarını eklemek yüzünden çoğu zaman
tam bir kod karmaşası yaşanıyor. Ben böyle yapıyorum hiç de kafam ağrımıyor.
Kolay gelsin.

Teşekkürler bilginiz için. Konu Kilit.