ÇOKLU TOPLAMA

[huzun77]

Merhaba,

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

kolay gelsin

 

[veyselemre]

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

 

[çıtır]

Formülle isterseniz.

=ÇOKETOPLA($E$5:$E$50000;$C$5:$C$50000;$H5;$D$5:$D$50000;$G5)

 

[huzun77]

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