yinelenen kayıtları başka sayfada toplama

[keman]

merhaba arkadaşlar

örnekteki tablomda yapmak istediğim şu.
sayfa1 deki isimleri ve tutarları yazılı olanları sayfa 2 de yinelenen kayıtları tek kayıt halinde toplayarak yazmasını istiyorum..

yani 4 defa tekrarlanan müşterinin karşısındakı yazılı olan tutarlarla beraber diğer sayfada toplanmasını istiyorum.tabiki tek kayıt olanlar kalacak.

SAYGILARIMLA

http://s6.dosya.tc/server2/s02it8/ornekk.xls.html

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    
    Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
    Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
    
    S2.Cells.ClearContents
    
    Dim con As Object:  Set con = CreateObject("adodb.connection")
    Dim rs As Object:   Set rs = CreateObject("adodb.recordset")
    
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;HDR=No"""
    
    satir = S1.Cells(Rows.Count, "A").End(3).Row
    
    sorgu = "Select [F1],sum([F2]) From [" & S1.Name & "$A2:B" & satir & "] Group By [F1]"
    rs.Open sorgu, con, 1, 1
    S2.Range("A2").CopyFromRecordset rs
    
    S2.Range("A1")="Ünvan": S2.Range("B1")="Toplam"

    rs.Close
    Set con = Nothing: Set rs = Nothing: sorgu = ""
    Set S1 = Nothing: Set S2 = Nothing
End Sub

. . .

 

[keman]

Hüseyin bey merhaba

çok teşekkur ederım sağolun ama eksık yazmısım bu istediğimi kod olarak değilde formul olarak yazabilirmiyiz.

SAYGILARIMLA

 

[Emir Hüseyin Çoban]

. . .

Sayfa2 için formüller.
A2 hücresi için DİZİ formül:

=EĞERHATA(İNDİS(Sayfa1!$A$2:$A$20;KÜÇÜK(EĞER(EBOŞSA(Sayfa1!$A$2:$A$20);"";EĞER(EĞERSAY(DOLAYLI("Sayfa1!A2:A"&SATIR($A$2:$A$20));(Sayfa1!$A$2:$A$20))=1;SATIR($A$2:$A$20)-1));SATIR(B1)));"")

B2 hücresi için formül:

=ETOPLA(Sayfa1!$A$2:$A$20;Sayfa2!A2;Sayfa1!$B$2:$B$20)

. . .

 

[keman]

Hüseyin bey çok teşekkur ederim ellerinize sağlık

SAYGILARIMLA