Aynı satırdaki Renkli hücreleri toplamlarını alıp günlere göre ortalama değer alma

[Yucaa]

Merhaba Arkadaşlar,

Bir formül üzerinde örnek bakmama rağmen yapamadım Bu konuda yardım ederbilir misiniz ?

Tabloda aynı satırdaki renkli olan hücreleri gün gün toplayıp bunların toplam ortalama değerlerini gün sıralamasına göre yapmak istiyorum. Formülü nasıl olur acaba ?


Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Kullanıcı tanımlı fonksiyonla yapılabilir...

 

[Yucaa]

Arkadaşlar bu konuda yardımlarınızı bekliyorum İlginiz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

İşin içinde renk kriteri olduğu için makro kullanmak durumundasınız. Verileri renklendirmek yerine formülle sorgulanacak hale getirebilirseniz formüllerle çözümler üretilebilir. Bunun için tablo yapınızın değişmesi gerekebilir.

Kullanılan kod;

Option Explicit

Function KORTALAMA(Ortalama_Alani As Range, Gun_Alani As Range, Gun As Range)
    Dim Veri As Range, Bul As Range, Adres As String, Toplam As Double, Say As Long
    
    On Error Resume Next
    
    Application.Volatile True
    
    Set Bul = Gun_Alani.Find(Gun.Text, , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            For Each Veri In Ortalama_Alani
                If Veri.Interior.ColorIndex <> -4142 Then
                    If Veri.Column >= Bul.Column And Veri.Column <= (Bul.Column + 1) Then
                        If Veri.Value <> 0 Then
                            Toplam = Toplam + Veri.Value
                            Say = Say + 1
                        End If
                    End If
                End If
            Next
            
            Set Bul = Gun_Alani.Find(Gun.Text, Bul)
        
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    If IsError(Toplam / Say) Then
        KORTALAMA = 0
    Else
        KORTALAMA = Toplam / Say
    End If
End Function

 

[Yucaa]

Değiştirilebilir. Bunu sadece formülle yazma kısmı nasıl olur? peki Yada sadece günlerin ortalama değerlerini alabilirmiyiz ?

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[Yucaa]

Ekteki örnek dosyayı inceleyiniz.

Korhan bey,

yardımlarınız için teşekkür ederim. Ama burda ortalama değerleri alırken sorun var sanırım ilk sutunu komple aynı rakam yaptığım halde ortalama değerleri farklı çıkıyor ?
Şöyle bir yol denedim bütün günlerin ortalamalarını ayrı ayrı aldım ama burda şöyle bir sorun çıktı ayın ilk gününde pazartesi için veriyi girdiğimde o gün tek girilen veriyi değer olarak ortalama alırken bütün sütündaki pazertesilerin ortalamasını aldığım için ortalama değeri yanlış çıktı .Bur da diğer günler boşken ortalamanın düzgün çıkması adına nasıl bir yol çizmeliyim?