DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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..
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
Teşekkürler kodu tam olarak nereye yapıştırmam gerek acaba?
Yardımcı olan herkese çooook teşekkürler..