listbox a 2 ayrı sahifeden veri alma

[kemal turan]

Merhaba,
Ek dosyada detaylı açıklama yaptım.
Bir çalışma kitabında bulunan 2 ayrı sahifeden bir listboxa veri almak istiyorum.
Yardımlarınız için teşekkür ederim.
Selametle Kalınız.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Private Sub UserForm_Initialize()
    Dim syf As Variant
    Dim Bak As Integer
    Dim Say As Integer
    ListBox1.ColumnCount = 4
    ListBox1.ColumnWidths = "115;80;40;40"
    
    For Each syf In Array(Worksheets("Sayfa1"), Worksheets("Sayfa2"))
        Say = syf.Cells(Rows.Count, "A").End(xlUp).Row
        For Bak = 2 To Say
            ListBox1.AddItem syf.Cells(Bak, "A")
            ListBox1.List(ListBox1.ListCount - 1, 1) = syf.Cells(Bak, "B")
            If syf.Range("C1") = "alınan" Then
                ListBox1.List(ListBox1.ListCount - 1, 2) = syf.Cells(Bak, "C")
            ElseIf syf.Range("C1") = "verilen" Then
                ListBox1.List(ListBox1.ListCount - 1, 3) = syf.Cells(Bak, "C")
            End If
        Next
    Next
End Sub