listboxa tablo verisini getirme

Ömer BARAN' Alıntı:

Merhaba.

Userform'un kod bölümüne yapıştırın.
Koddaki sütun genişliklerini ve ListBox'un genişliğini, başlık ve verilerin uzunluğuna göre kendiniz de ayarlayabilirsiniz.

CSS:

Private Sub UserForm_Initialize()
Dim son As Integer

With Me.ListBox1
    .ColumnCount = 7
    .ColumnHeads = True
    .ColumnWidths = "40;20;60;20;10;5;50"
    .RowSource = "Sayfa1!A2:G" & Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
End With
End Sub

.

Genişletmek için tıklayın ...