Makro İle Toplama Yapmak

[ormann]

İyi günler;
ekli dosyada
I154:I163 arasındaki verilerin toplamını I164 hücresine
I165:I174 arasındaki verilerin toplamını I175 hücresine
I176:I185 arasındaki verilerin toplamını I186 hücresine
I187:I196 arasındaki verilerin toplamını I197 hücresine
I198:I207 arasındaki verilerin toplamını I208 hücresine
toplamlarını makro ile aldırabilir miyiz .Toplama işlemi belirli bir hücrede değilde sayfanın her hangi bir hücresinde işlem yaptığım zaman otomatik olarak gerçekleşecek.
http://dosya.co/7tf7mvalqxb8/örnek.xlsx.html

 

[Muzaffer Ali]

Merhaba.

Toplama yapmak istediğiniz sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("I164") = WorksheetFunction.Sum(Range("I154:I163"))
    Range("I175") = WorksheetFunction.Sum(Range("I165:I174"))
    Range("I186") = WorksheetFunction.Sum(Range("I176:I185"))
    Range("I197") = WorksheetFunction.Sum(Range("I187:I196"))
    Range("I208") = WorksheetFunction.Sum(Range("I198:I207"))
    Application.EnableEvents = True
End Sub

 

[ormann]

Sayın Dalgalıkur çok teşekkür ederim. I164,I175,I186,I197,I208 hücrelerinde toplanacak veri yoksa dahi 0 gözüküyor.Burdaki hücreler boş gözükebilir mi?.Çünkü o satırları gizlemek istediğimde o gözüktüğü için veri algılıyor.Satır gizlenmiyor

 

[Muzaffer Ali]

O zaman aşağıdaki kodları kullanın

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("I164") = WorksheetFunction.Sum(Range("I154:I163"))
    Range("I175") = WorksheetFunction.Sum(Range("I165:I174"))
    Range("I186") = WorksheetFunction.Sum(Range("I176:I185"))
    Range("I197") = WorksheetFunction.Sum(Range("I187:I196"))
    Range("I208") = WorksheetFunction.Sum(Range("I198:I207"))
    If Range("I164") = 0 Then Range("I164") = ""
    If Range("I175") = 0 Then Range("I175") = ""
    If Range("I186") = 0 Then Range("I186") = ""
    If Range("I197") = 0 Then Range("I197") = ""
    If Range("I208") = 0 Then Range("I208") = ""
    Application.EnableEvents = True
End Sub

 

[ormann]

Sayın Dalgalikur çok teşekkür ederim.