ÇOKLU TOPLAMA

Katılım
8 Ekim 2018
Mesajlar
19
Excel Vers. ve Dili
EXCEL 97-2003 , TÜRKÇE
Altın Üyelik Bitiş Tarihi
08-10-2023
Merhaba,

ek deki tabloda excel deki gibi toplam almak istiyorum
yardımlarınızı rica ederim,

kolay gelsin
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub adoOzetle()
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _
             "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";"

    strSql = "SELECT F1,F2, SUM(F3) " & _
             "FROM [Sayfa1$C5:E" & Cells(Rows.Count, 3).End(3).Row & "] " & _
             "GROUP BY F1, F2"

    Set RS = CreateObject("Adodb.RecordSet")
    RS.Open strSql, strCon

    Range("G5:I" & Rows.Count).ClearContents
    Range("G5").CopyFromRecordset RS
    RS.Close
End Sub
 
Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Formülle isterseniz.
Kod:
=ÇOKETOPLA($E$5:$E$50000;$C$5:$C$50000;$H5;$D$5:$D$50000;$G5)
 
Katılım
8 Ekim 2018
Mesajlar
19
Excel Vers. ve Dili
EXCEL 97-2003 , TÜRKÇE
Altın Üyelik Bitiş Tarihi
08-10-2023
Kod:
Sub adoOzetle()
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _
             "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";"

    strSql = "SELECT F1,F2, SUM(F3) " & _
             "FROM [Sayfa1$C5:E" & Cells(Rows.Count, 3).End(3).Row & "] " & _
             "GROUP BY F1, F2"

    Set RS = CreateObject("Adodb.RecordSet")
    RS.Open strSql, strCon

    Range("G5:I" & Rows.Count).ClearContents
    Range("G5").CopyFromRecordset RS
    RS.Close
End Sub

ÇOK TEŞEKKÜR EDERİM
 
Üst