Verileri özet çıkartma

[sonlouissaha]

merhaba arkadaşlar.

bende bir dosya ekliyorum. sayfalar arasında satırları sütun olarak yazmak istiyorum ama yukarıdaki örneklerle beceremedim. benim dosyama da bir bakar mısınız?

 

[Ömer]

Merhaba,

Bu formatı özet tablo ile yapabilirsiniz. Excel dersanesi bölümünde konu detayı mevcuttur.

Makro ile de yapabilirsiniz.
Kodları module kopyalayıp çalıştırın.

Sub OzetListe()
 
    Dim d As Object, s, a1, a2, deg, b, j As Integer, i As Long
 
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    
    Sheets("böyle olsun").Select
    Rows("2:" & Rows.Count).ClearContents
    
    With Sheets("böyleyken")
        For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
           deg = .Cells(i, "A")
           If Not d.exists(deg) Then
               s = .Cells(i, "B")
               d.Add deg, s
           Else
               s = d.Item(deg)
               s = s & "|" & .Cells(i, "B")
               d.Item(deg) = s
           End If
        Next i
    
        a1 = d.keys: a2 = d.items
    
        For i = 0 To d.Count - 1
            Cells(i + 2, "A") = a1(i)
            b = Split(a2(i), "|")
            For j = 0 To UBound(b)
                Cells(i + 2, j + 2) = b(j)
            Next j
        Next i
        
    End With
    
    Set d = Nothing
    Application.ScreenUpdating = True
 
End Sub

.

 

[sonlouissaha]

teşekkür ederim. forumda yeni olduğum için zamanla bazı kuralları daha iyi öğreneceğim