[ÇÖZÜLDÜ] Sayfadaki aynı kişiye ait bilgileri tek satırda doplamak Hk.

[enteresan]

Konuyu buraya açmamın sebebi, çözümün makro veya fonksiyon olarak farketmeyeceği içinder. Yanlış yere açtıysam özür dilerim.
Bir çalışma sayfam var ve bu sayfada kişilerin ödemeleri yazılı. Bir kişi çeşitli zamanlarda 3 kez ödeme yapmış ise, listemde bu kişi altalta 3 kez yazılmış vaziyette. Yapmak istediğim şu, eğer kişi 3 kez ödeme yapmışsa baş tarafta ismi 1 kez yazılsın ve karşısında yaptığı ödemeler aynı satırda görünsün istiyorum. Bu konuda yardımcı olabilecek arkadaş varsa minnettar olurum. Saygılarımla....

 

[Necdet]

Sayın enteresan,

Aşağıdaki kodları bir modüle ekleyip çalıştırabilirsiniz.

Public Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
s2.Range("C7:Z65536").ClearContents
j = 6
Eski_Deger = 0
For i = 5 To [B65536].End(3).Row
 
    If s1.Cells(i, "B") <> Eski_Deger Then
        Eski_Deger = s1.Cells(i, "B")
        j = j + 1
        k = 0
        s2.Cells(j, "C") = s1.Cells(i, "B")
    End If
 
    k = k + 1
    Sutun = k * 2 + 2
    s2.Cells(j, Sutun) = s1.Cells(i, "C")
    s2.Cells(j, Sutun + 1) = s1.Cells(i, "D")
 
Next i
    MsgBox "Aktarım Bitmiştir............."
End Sub

 

[enteresan]

Necdet bey, çok teşekkür eder, saygılar sunarım....