Soru Liste Süzme ve Raporlama

[Mehmet.aggoz]

İşyerinde uyguladığımız yüklemelerin kayıtlarını tuttuğumuz excel dosyası mevcut. Bu tabloda tarihi göre kart numaraları ve bu kart numaralarına ait bağlantılı yükleme listesi mevcut. Örneğin; A230101-01 kart numarasında Adana ve Mersin illeri var, benzeri durum diğer kart numaralarında da var. Amacım şu şekilde bir listeleme yapmak;

A230101-01 Adana+Mersin
A230101-02 Iğdır+Erzurum
A230101-03 Sivas+Kayseri+Aksaray

Makro ile veya fonksiyon yardımıyla listeleme yaptırabilir miyim. Yardımcı olabilecek varsa çok teşekkür ederim.Örnek excel dosyası paylaştım.

 

[maliex]

Sub ozet()
 
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    Set S1 = Sheets("Sayfa1")
    
    Set Dizi = CreateObject("Scripting.Dictionary")
 
    SS1 = S1.Cells(S1.Rows.Count, 1).End(3).Row
    Veri = S1.Range("B2:D" & SS1).Value
 
    ReDim Liste(1 To SS1, 1 To 2)
 
    For X = LBound(Veri) To UBound(Veri)
            Aranan = Veri(X, 1)
            If Not Dizi.Exists(Aranan) Then
                Say = Say + 1
                Dizi.Add Aranan, Say
                Liste(Say, 1) = Veri(X, 1)
                Liste(Say, 2) = Veri(X, 3)
            Else
                Liste(Dizi.Item(Aranan), 2) = Liste(Dizi.Item(Aranan), 2) & "+" & Veri(X, 3)

            End If

    Next
    
          
        S1.Range("F1").Resize(Say, 2) = Liste
        
      
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True

End Sub

 

[Mehmet.aggoz]

Çok teşekkür ederim, saygılarımla

 

[maliex]

Rica ederim, kolay gelsin

 

[Korhan Ayhan]

Alternatif olarak PIVOT TABLE (Özet Tablo) ile yapılmış örneği forumun arşivinde olması bakımından paylaşıyorum.