Listbox Çoklu Sütun

[quesh]

Merhabalar arkadaşlar.
Ekteki dosyada userformu açıtğınızda Sınıf Seçiniz kısmından herhangi bir sınıf seçtiğinizde Sayfa1'den o sınıfa kayırtlı kişiler ad ve soyadlarını ayrı ayrı Listbox 2 ve Listbox3'e alıyorum . Ancak ben ayrı ayrı listboxlarda değil de tek listboxta 2 sütunda hem adını hem soyadını almak istiyorum userformun üstünde listbox1'deki gibi. Bunu nasıl yapabilirim? Teşekkürler.

 

[Ömer]

Merhaba,

Private Sub ComboBox1_Change()
 
    Dim i As Long, x As Long
 
    ListBox1.Clear
 
    With Sheets("Sayfa1")
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            If ComboBox1.Text = .Cells(i, "C") Then
                ListBox1.AddItem .Cells(i, "A")
                ListBox1.List(x, 1) = .Cells(i, "B")
                x = x + 1
            End If
        Next i
    End With
 
End Sub

Ayrıca, Initialize kodlarının altına;

ListBox1.ColumnWidths = "50;50"

Ekleyiniz.

.