Hücre Toplama

[BBBBuRaKKKK]

Merhabalar manuel olarak seçtiğim satırları kodu çalıştırdığımda en sonuna toplamını yazdırabilir miyim ?

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Selection(Selection.Count).Offset(0, 1) = WorksheetFunction.Sum(Range(Selection.Address))
End Sub

 

[BBBBuRaKKKK]

Muzaffer bey ben toplamasını değil hücre sayısını bulmak istiyorum

 

[Muzaffer Ali]

Muzaffer bey ben toplamasını değil hücre sayısını bulmak istiyorum

Sub test()
    Selection(Selection.Count).Offset(0, 1) = Selection.Count
End Sub

 

[BBBBuRaKKKK]

İlginize teşekkür ederim aradığım buydu