Listbox Tüm Sütunlardaki Verileri Almıyor

[ahmedummu]

Merhaba arkadaşlar.

Ekte gönderdiğim dosyada Listbox1 var. Listbpox tüm sütunlardaki verileri almıyor . Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

AddItem yöntemi ile 10 dan fazla sütun alamıyorsunuz.

Döngüye gerek kalmadan aşağıdaki gibi RowSource metodu ile verileri alabilirsiniz.

Private Sub UserForm_Initialize()

    Dim topla As Double

    Sheets("ÇİZELGE").Select

    With ListBox1
        .ColumnCount = 34
        .ColumnWidths = "20;70;40;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8;8"
        [COLOR="Red"].RowSource = "A4:AH" & Cells(Rows.Count, "B").End(xlUp).Row[/COLOR]
    End With

    TextBox32.Value = Sheets("PUANTAJ").Range("a20").Value
    
End Sub

.

 

[ahmedummu]

Teşekkürler Ömer bey. Cevabınıza telefondan baktım. Akşam denerim.