renklı satırların toplamı

[ozgecan]

MErhaba;
Elimde uzun bir tablo var sadece renkli olanların toplamlarını aldırmak istiyorum nasıl olabilir.

tşkler

 

[ozgecan]

conditional formattingtenmiydi?

 

[Vedat Özer]

Selamlar,

İnceleyin

 

[ozgecan]

Burdaki örnekler biraz karışık geldi. conditional formattingtenden hücre rengini seçilerek yapılmıyormuydu

 

[Vedat Özer]

Selamlar,

Sorunuzu destekleyen örnek dosya ekleyebilirmisiniz. ?

 

[ozgecan]

Sarı ıle işaretlenen tutarların toplamının alınmasını ıstıyorum
Tşkler

 

[Vedat Özer]

Selamlar,

Ekdeki dosyyaı inceleyin.
kodlar necdet hocamıza aitdir...

 

[Merhum İdris SERDAR]

.

Buradaki dosyaları inceleyin.

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

 

[ozgecan]

Vedat Bey;

Gönderdiğiniz tablodaki formülü SUMPRODUCT olarak çevirdim fakat toplamı almıyor. Sorun nedir

 

[rahmi06]

Vedat Bey;

Gönderdiğiniz tablodaki formülü SUMPRODUCT olarak çevirdim fakat toplamı almıyor. Sorun nedir

Kitapdaki formül, kodlarla yapılmış bir formül. Formülde RenkTopla yı değiştirir yada silerseniz çalışmaz.

 

[ozgecan]

Anladım. Peki kodu nasıl değiştirebilirim

 

[Vedat Özer]

Selamlar,

7# Mesajdaki dosyayı güncelledim.

 

[Merhum İdris SERDAR]

Sarı ıle işaretlenen tutarların toplamının alınmasını ıstıyorum
Tşkler

.

Dosyanız ekte.

İşin içine renkler girince makro kullanmak gerekiyor.

Bu nedenle dosyaya koyduğum makrolar, kullanıcı tanımlı fonksiyonları ifade etmektedir.

Function renk(InRange As Range, Optional _
    OfText As Boolean = False) As Integer
Application.Volatile True
If OfText = True Then
    renk = InRange(1, 1).Font.ColorIndex
Else
    renk = InRange(1, 1).Interior.ColorIndex
End If

End Function


Function Renklitopla(InRange As Range, WhatColorIndex As Integer, _
    Optional OfText As Boolean = False) As Double

Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
    If OfText = True Then
        OK = (Rng.Font.ColorIndex = WhatColorIndex)
    Else
        OK = (Rng.Interior.ColorIndex = WhatColorIndex)
    End If
    If OK And IsNumeric(Rng.Value) Then
        Renklitopla = Renklitopla + Rng.Value
    End If
Next Rng

End Function

Bunlar başka dosyada kullanmak isterseniz, bu kodları sözkonusu doasyaya kopyalamanız gerekir.

.