İki farklı Sayfadaki verileri tek listboxta gösterme

[Feylosof]

Merhaba
İki farklı sayfada aynı başlık ve sütun sayısından oluşan tablo var. Bu tabloları aynı userformda açılan listboxta birleştirebilir miyiz?
Bilgi için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Dosyanıza bir form ekleyin forma da bir ListBox ekleyin.
Formun kod kısmına aşağıdaki kodları kopyalayın.

Private Sub UserForm_Initialize()
    Dim Alan1 As Range
    Dim Alan2 As Range
    Dim Bak As Integer
    Dim Say As Integer
    Dim Satir As Variant
    
    Say = Sheets("İZİN").Cells(Rows.Count, "A").End(xlUp).Row
    Set Alan1 = Sheets("İZİN").Range("A1:H" & Say)
    Say = Sheets("İPTAL").Cells(Rows.Count, "A").End(xlUp).Row
    Set Alan2 = Sheets("İPTAL").Range("A2:H" & Say)
    ListBox1.List = Alan1.Formula
    
    Satir = Alan2.Formula
    For Bak = 1 To UBound(Satir)
        With ListBox1
            .AddItem Satir(Bak, 1)
            .List(.ListCount - 1, 1) = Satir(Bak, 2)
            .List(.ListCount - 1, 2) = Satir(Bak, 3)
            .List(.ListCount - 1, 3) = Satir(Bak, 4)
            .List(.ListCount - 1, 4) = Satir(Bak, 5)
            .List(.ListCount - 1, 5) = Satir(Bak, 6)
            .List(.ListCount - 1, 6) = Satir(Bak, 7)
            .List(.ListCount - 1, 7) = Satir(Bak, 8)
        End With
    Next
End Sub

 

[Feylosof]

Sayın @dalgalikur ;
Öncelikle yardımınız için çok teşekkür ederim. Tarifinizle yaptım ama sadece A sütunudaki sıra numaralarını birleştirdi diğer veriler listboxa gelmedi...

 

[Muzaffer Ali]

Rica ederim.
yukarıdaki koda şu satırı ekleyin.

ListBox1.ColumnCount = 8

Listbox'ta varsayılan olarak bir kolon vardır. Görünmesini istediğiniz kolon sayısını belirtmeniz gerekir.
Kolon sayısını properties penceresinden de "ColumnCount" değiştirebilirsiniz.

 

[Feylosof]

Çok teşekkür ederim Sayın @dalgalikur üstadım. Sayende bir şey daha öğrenmiş olduk.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.