son dolu satıra kadar etopla

[du643]

Selam üstadlar,
son dolu satıra kadar etopla yapmak istiyorum.Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

son = Cells(65536, "A").End(xlUp).Row
toplam = WorksheetFunction.SumIf(Range("A1:A" & son), "a", Range("B1:B" & son))
MsgBox toplam

 

[du643]

Sn.Evren çok teşekkür ederim.
bunu istemiştim.