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..