Tekrarlayan verileri özetleme macrosu

[morino]

Merhabalar

Ekteki dosyada örnek verdiğim şekilde, tekrarlayan verilerden oluşan bir tablo var elimde. Bu tablodaki verileri belirli bir kritere -örnekte isme- göre sınıflandıracak, tekrarlayan verileri yanyana yazarak sınıflandıracak, yani tablo 1'deki verileri tablo 2'ye özetleyecek bir macro için yardımlarınızı rica ediyorum.

Saygılarımla

 

[meslan]

Merhaba

Sub Tablo()
[H5:S150].ClearContents
s = 4
For i = 5 To [B65536].End(3).Row
    If WorksheetFunction.CountIf([H:H], Cells(i, 2)) < 1 Then
        s = s + 1
        Cells(s, "h") = Cells(i, 2)
        Cells(s, "I") = CDate(Cells(i, 3))
        Cells(s, "J") = Cells(i, 4)
    Else
        Set bul = [H:H].Find(Cells(i, 2), lookat:=xlWhole)
        sut = Range("h" & bul.Row).End(2).Column + 1
        Cells(bul.Row, sut) = CDate(Cells(i, 3))
        Cells(bul.Row, sut + 1) = Cells(i, 4)
    End If
Next
End Sub

Kolay gelsin.

 

[mustafaine1]

2 ser tekrar oldugu icin boyle bir ornek duzenledim isinizi gorucegini umuyorum..

bu arada dosyalarinizi xls formatinda eklerseniz herkes yardimci olabilir..

 

[morino]

Cevaplar için çok teşekkür ederim.

 

[baydeniro]

mustafaine1 üstad kod için teşekkürler. Peki sadece 1'den fazla olanların unique listesini (diğer bir deyişle 1 adet olanların hiç olmadığı liste) oluşturmak istesek kodu nasıl revize etmeliyiz acaba !