Sadece siyah renkleri toplamak istiyorum

[manisali61]

Arkadaşlar merhaba..
Elimdeki listede araçların yaptığı masraflar yazılı.. Masrafların bazıları siyah, bazıları kırmızı renkte yazılı.Sayfa sonunda ben bu listenin sadece siyah renkli rakamları topluyorum.. Bunu kolaylaştıracak makro ya da formül var mı?
Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Bu konuyla ilgili bir çok çalışma yapıldı. Forumda renk+toplam şeklinde arama yaparak sonuca gidebilirsiniz.

 

[levo26]

Sn, Yurttaşın bu konuyla ilgili örnekleri var.


http://www.excel.web.tr/showthread.php?t=10476&highlight=renk

ayrıca xla ile yapılmış fonksiyonlar mevcut.

 

[manisali61]

Siyah renkli rakamları toplamak istiyorum

Levo26 arkadaşım.Sizin verdiğiniz link açılmıyor.. Korhan Hocam,örnekleri inceledim fakat açıkçası benim cahilliğimden olacak kendime göre uyarlayamadım.. Benim isteğim çok basit,oradakiler çok karmaşık..Ben sadece J4:j40 arasındaki siyah renkli rakamları toplamak istiyorum..Sütunda sadece kırmızı ve siyah renkler var,ben siyahları toplamak istiyorum (adet olarak değil hocam..siyah renkli rakamların toplamı)

 

[Vedat Özer]

Selamlar,

Kodlar alıntıdır.

Function RenkTopla(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + Hucre
    End If
Next
RenkTopla = Toplam
End Function
Function RenkSayN(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + 1
    End If
Next
RenkSayN = Toplam
End Function
Function RenkSayA(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + 1
    End If
Next
RenkSayA = Toplam
End Function

 

[manisali61]

Vedat kardeş..Emeğine çok teşekkür ederim..Ama sanırım ben derdimi anlatamadım..Benim hücrelerim renkli değil..Sadece değişik 2 renk (siyah ve kırmızı) yazı tipim var.. Ben siyah renkli rakamları toplamak istiyorum.. Hücre boyama falan yapmıyorum..

 

[Necdet]

Merhaba,

Sayın ÖZER'in kodları benim daha önce siteye koyduğum kodlar.

Bu kodlar sizin isteğinizi karşılıyor ama denemeden kabul etmemişsiniz.

Dosyanıza uygulanmış halini gönderiyorum.

Kullandığım KTF :

Function RenkTopla(Dizi As Range, Renk_Tipi) As Double
Dim Toplam As Double
Dim Hucre As Range
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + Hucre
    End If
Next
RenkTopla = Toplam
End Function

 

[manisali61]

Üstad teşekkürler.İlgi ve emeğini esirgemeyen herkese sonsuz teşekkürler

 

[manisali61]

Hocam şöyle bir sorun çıktı..Ben toplamak istemediğim kırmızı rakamları koşullu biçimlendirme ile renklendiriyordum..Örneğin eğer b5 hücresi sıfıra eşit oluyorsa bu hücre kırmızı olsun diyordum. Sizin yaptığınız kodlar bu rakamı kırmızı görmüyor.Bu rakamın üzerine gelip yazı tipi renginden kırmızıyı seçersem bu sefer formül işliyor..Bunun çaresi var mıdır acaba?

 

[Necdet]

Merhaba,

Bu durumda koşullu biçimlendirmedeki koşulu bilmek gerek, örnek dosyanızı buna göre düzenlerseniz yardım edecek arkadaşlar çıkacaktır.

 

[manisali61]

Siyah renkli rakamları toplamak istiyorum

Dosyayı yenileyip yolladım arkadaşlar

 

[Necdet]

Merhaba,

B14

=ETOPLA(C2:C13;">0";B2:B13)

 

[manisali61]

Hocam süper...İlgine,bilgine,emeğine,klavyene teşekkür