Excel Vba Aralık Toplama
Excel Vba Aralık Toplama isimli bu dosyamızı, Excel Makroları ile sayfa üzerinde toplama yapmanıza yarayacak vba kodunu eklemek için hazırladık.Excel'de bazen veri yazdıkça en üst satırda toplam gelmesini isteyebilirsiniz. Bu istek, Excel'in TOPLA formülü ile de kolayca gerçekleşir. Buradaki küçük nüans, formülde belirlediğiniz aralığın dışında bir aralığa değer girilmişse, o değerin toplama dahil edilmeyecek olmasıdır. Bunun da elbet kolay çözümleri vardır ama makalemize konu makro ile toplam alma olacağı için, bunun üzerinde duracağız.
Diyelim ki; A sütununda gireceğiniz değerler yer alsın. Siz A1 hücresinde değer girildikçe toplam rakamlarının yer almasını istiyorsunuz.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
Bu işin en basit hali üstteki kod parçacığıdır. Bu kodu, bir makroya atıp çalıştırdığınızda A3:A100 aralığındaki değerleri toplar. Lakin otomatik olarak toplamasını istiyorsanız, kodu sayfanın Change olayına eklemeniz gerekecektir, yani şu şekilde:
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
Bu kod, Module olarak değil, sayfanın kod kısmına eklenecektir. Kodumuz, siz A3:A100 aralığına veri yazdıkça A1 hücresinde o verilerin toplamını otomatik olarak verecektir.
Lakin bu kod Excel sayfasında nerede işlem yaparsanız yapın çalışacağı için sorun yaratacaktır. Dolayısıyla bunu da aşağıdaki gibi ufak bir dokunuşla sadece A sütununda bir değişiklik olursa çalışsın şeklinde revize edebiliriz.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Evet, şimdi kodumuz sadece A sütununda işlem gördüğünde çalışacaktır. Lakin yazdığımız değerler 101. satıra gelirse, artık bu kod bize doğru sonuç vermeyecektir. Bununda üstesinden aşağıdaki gibi küçük bir dokunuşla geliriz.
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
Artık A sütununda ne kadar veri yazarsak yazalım, A1 hücresinde otomatik olarak toplanacaktır.
Faydalı olması temennisiyle.