Soru Renklere göre toplam aldırma sorunu

[NADİR YILDIZ]

üstad makro işimi çözdü
teşekkürler sizi uğraştırdım

iyi çalışmalar

 

[Korhan Ayhan]

Makro işinizi çözdü ama #20 nolu mesajımda ki sorularıma yanıt alamadım.

 

[NADİR YILDIZ]

üstad sonradan farkına vardım fazla üzerinde durunca benim açımdan karıştı mesele.
makro işi mi gördü.
teşekkürler
iyi çalışmalar

 

[Korhan Ayhan]

Karışacak bir şey yok aslında..

Vermiş olduğum makro ile bir önce önerdiğim formül aynı sonucu verdi mi sorusunun cevabını talep ediyorum.

 

[NADİR YILDIZ]

Formülü tam olarak uygulamadım.
sonuç vermiş olabilir.mi net bişey demeyim
makro sonuç aldım
ikiside aynı kapıya çıkıyor sanırım.

 

[1mak1mak]

dosyayı açamıyorum.
rica etsem tekrar eklermisiniz

iyi çalışmalar

Merhaba
Dosyayı aşağıdaki adrese koyarsız excel ile açılır ama genede kodu paylaşıyorum.

C:\Documents and Settings\MAK\Application Data\Microsoft\AddIns

Function Renklere_Gore_Degerleri_Topla(bolge As Range, hangi_renk As Range) As Double
    Renklere_Gore_Degerleri_Topla = 0
    Dim Cell
    Color_Index = hangi_renk.Font.ColorIndex
    For Each Cell In bolge
        If (Cell.Font.ColorIndex = Color_Index) And IsNumeric(Cell.Value) Then
            Renklere_Gore_Degerleri_Topla = Renklere_Gore_Degerleri_Topla + Cell.Value
        End If
    Next Cell
End Function

Buton için

Sub Yenile()
    Application.CalculateFull
    ActiveWorkbook.RefreshAll
End Sub

 

[1mak1mak]

Korhan bey merhaba
Bu şekilde aynı sayfada Renklere göre toplam alabiliyorum ama başka bir sayfada iken diyelimki
1.Sayfa dan 3.Sayfaya Renklere Göre Toplam veya Tarihe Göre Renklere Göre Toplam almak istediğimde Makro çalışmıyor.
Konu hakkında yardımcı olma imkanınız varmı. Alttaki link te sormuştum.

Sayfa2'Den Sayfa3'E Tarihe Göre Toplam

Aşağıdaki kodu Sayfa3'e nasıl toplam alabiliriz? Yardımcı olur musunuz arkadaşlar? Aşağıdaki Formül Sayfa2'De olup Sayfa3'E Toplam alınacak =ÇOKETOPLA($C$4:$C$6012;$A$4:$A$6012;">=01/10/2019";$A$4:$A$6012;"

www.excel.web.tr