Renklere göre toplam

[Skorpiyon]

Sayın sinful,

Ekteki dosyayı inceleyiniz.

 

[sinful]

Aşağıdaki KTF'yi yaptım.Kullanacağınız başka dosyalarda bu KTFyi o dosyada boş bir modüle kopyalayınız.
Kullanışı:
C14 hücresine aşağıdaki formül yazıldı ve kopyalandı.
dosya ektedir.
=renkli_topla($B14;C$4:C$12)

Function renkli_topla(renk As Range, alan As Range)
Dim toplam As Double, hcr As Range
For Each hcr In alan
    If hcr.Interior.ColorIndex = renk.Interior.ColorIndex Then
        toplam = toplam + hcr.Value
    End If
Next
renkli_topla = toplam
End Function

Sayın Evren,
vermiş olduğunuz modül harika birşey ancak tek eksiği renklere göre toplamı yapılan hücrelerden birinin rengi değişirse değiştiği renk toplaına atmıyor.Örneğin toplamı yapılan sütunda sarı hücrelerden biri turuncu olduğu taktirde aşağıdaki sarı renk toplamı aynı kalıyor.Yinede çok işe yarayacak bir modül.

Elleriniz dert görmesin efendim

 

[sinful]

Şaban Bey,

Süper olmuş teşekkür ederim.

Saygılar,

 

[Orion1]

Sayın Evren,
vermiş olduğunuz modül harika birşey ancak tek eksiği renklere göre toplamı yapılan hücrelerden birinin rengi değişirse değiştiği renk toplaına atmıyor.Örneğin toplamı yapılan sütunda sarı hücrelerden biri turuncu olduğu taktirde aşağıdaki sarı renk toplamı aynı kalıyor.Yinede çok işe yarayacak bir modül.

Elleriniz dert görmesin efendim

Bir değer girince formül çalışıyor.Değerleri değiştirirseniz çalışacaktır.:cool.

 

[frtok]

A1:A100 arasındaki dediğiniz renkleri sayar.

Sub renkler()
Dim mavi As Long, sari As Long, yesil As Long, kirmizi As Long
Dim hcr As Range
For Each hcr In Range("A1:A100")
    Select Case hcr.Interior.Color
        Case vbBlue: mavi = mavi + 1
        Case vbYellow: sari = sari + 1
        Case vbGreen: yesil = yesil + 1
        Case vbRed: kirmizi = kirmizi + 1
    End Select
Next hcr
MsgBox "Mavi :" & vbTab & mavi & vbLf & _
"Sarı :" & vbTab & sari & vbLf & "Yeşil :" & vbTab & yesil & _
vbLf & "Kırmızı :" & vbTab & kirmizi, vbOKOnly + vbInformation, "RENKLER"
End Sub

merhabalar

Bu makro'da renk toplamlarını a101 mavi, a102 sari, a103 yesil, ve a104 kırmızı olarak nasıl yazdırabilirim. Yardımlarınız için şimdiden teşekkürler.