• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sum if formulu

Katılım
12 Haziran 2009
Mesajlar
82
Excel Vers. ve Dili
2007 eng
arkadaşlar farklı fişlerin toplam miktarlarını bulmak istiyorum ekte bir örnek upload yaptım yardımcı olur iseniz sevinirim çok teşekkürler..
 

Ekli dosyalar

arkadaşlar farklı fişlerin toplam miktarlarını bulmak istiyorum ekte bir örnek upload yaptım yardımcı olur iseniz sevinirim çok teşekkürler..

merhaba
kod olarak isterseniz
Kod:
Sub kişileritopla()
Dim a As Long, b As Long
Excelweb = MsgBox("Toplamları Çıkartayım Mı_?", vbYesNo + vbInformation, "Onay")
If Excelweb = vbNo Then
Exit Sub
End If
Range("E2:E65536").ClearContents
b = 2
For a = b To Cells(65536, "D").End(xlUp).Row
Cells(a, "E") = WorksheetFunction.SumIf(Range("A2:A65536"), Range("D" & a).Value, Range("B2:B65536"))
Next a
MsgBox "Toplamlar Çıkartıldı", vbInformation, "Bitiş"
End Sub
bunu kullanabilirsiniz
 
Geri
Üst