veri aktarma

[sybex]

sayfa1 deki bilgileri tc no ya göre sayfa2 ye aynı kişileri toplayarak banka listesi oluşturmasını istiyorum.
makroyla yada formülle de olabilir. Yardımcı olursanız çok teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub banka()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

son = s1.Cells(Rows.Count, "B").End(3).Row
eski = WorksheetFunction.Max(5, s2.Cells(Rows.Count, "B").End(3).Row)
s2.Range("A5:E" & son) = ""

For i = 6 To son
    yeni = WorksheetFunction.Max(5, s2.Cells(Rows.Count, "C").End(3).Row + 1)
    If WorksheetFunction.CountIf(s2.Range("C5:C" & yeni), s1.Cells(i, "C")) = 0 Then
        s2.Cells(yeni, "A") = yeni - 4
        s2.Cells(yeni, "B") = s1.Cells(i, "B")
        s2.Cells(yeni, "C") = s1.Cells(i, "C")
        s2.Cells(yeni, "D") = s1.Cells(i, "D")
        s2.Cells(yeni, "E") = WorksheetFunction.SumIf(s1.Range("C6:C" & son), s1.Cells(i, "C"), s1.Range("M6:M" & son))
    End If
Next

End Sub

 

[sybex]

eline emeğine sağlık, sağolasın