Renkli Olanları Güne Göre Toplama

Bu şablon, bir tabloda renkle işaretlenmiş hücreleri gün başlığına göre değerlendirmek için hazırlanmıştır. Hesaplamayı VBA ile yazılmış KORTALAMA özel fonksiyonu yapar; fonksiyon yalnızca dolgu rengi olan ve değeri sıfırdan farklı hücreleri hesaba katar.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• EKİM: A5:BK26 aralığında veri tablosu bulunur. A sütununda firma ya da mağaza adı (örneğin İSTANBUL AVP), sonraki sütunlarda gün bazlı değerler yer alır. Değerler 150, 200 gibi sayılar ya da x işaretidir.

Sayfada hazır formül bulunmaz; hesaplama, hücreye yazılan KORTALAMA fonksiyonu ile yapılır.

Makrolar​

• KORTALAMA (Module1): Üç parametre alır: ortalaması alınacak alan, gün başlıklarının bulunduğu alan ve aranan gün hücresi. Fonksiyon gün başlığını gün alanında bulur; başlığın bulunduğu sütun ile hemen sağındaki sütunda yer alan, dolgu rengi bulunan ve değeri sıfır olmayan hücreleri toplar, sayar ve ortalamasını döndürür. Aynı gün başlığı alanda birden fazla yerde geçiyorsa hepsi taranır. Eşleşme yoksa ya da hesaplanacak hücre yoksa sonuç 0 olur.

Fonksiyon her hesaplamada yeniden çalışacak şekilde ayarlıdır. Kodda dosya silme ya da dış bağlantı gibi işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. EKİM sayfasındaki değer hücrelerini, hesaba katılmasını istediğiniz günler için dolgu rengiyle boyayın.
3. Sonucun görüneceği hücreye aşağıdaki biçimde fonksiyonu yazın:
   
   Excel formülü

   =KORTALAMA(ortalama_alani;gun_alani;gun_hucresi)

4. İlk parametreye değer aralığını, ikinciye gün başlıklarının bulunduğu aralığı, üçüncüye aranan günün hücresini seçin.
5. Boyama değiştiğinde sonuç otomatik güncellenmezse F9 tuşuyla yeniden hesaplatın.

Dosya .xlsm biçimindedir; makrolar devre dışıysa fonksiyon #AD? hatası verir.