Soru SİYAH DEĞERLERİ TOPLAMA

[mc_exrem]

Merhaba arkadaşlar,
Arama yaptım ancak hücre rengine göre toplamayı bulabildim. Benim isteiğim; =TOPLA(J9:J39) hücrelerini topluyorum ama sadece siyah renkteki değerleri toplamasını istiyorum. Bunun için gerekli formül ya da kodu yazar mısınız. Yardımlarınız için teşekkürler, iyi çalışmalar.

 

[askm]

Ekteki örneği kendinize uyarlayın.

 

[mc_exrem]

Ekteki örneği kendinize uyarlayın.

İlginiz için teşekkür ederim ancak dosya açmak için altın üyelik istiyor

 

[askm]

Bir modülün içerisine aşağıdaki kodları yapıştırın.
Hücreye =RenkTopla(ToplanacakAlan;Toplanacak Renk Örneği Olan Hücre) yazın

Function RenkTopla(Alan As Range, RenkliHucre As Range) As Variant
    Dim RenkliAlan As Range
    Dim Sonuc
    Dim Renk
    Application.Volatile
    On Error GoTo Son
    Renk = RenkliHucre.Interior.Color
    For Each RenkliAlan In Alan
        If Renk = RenkliAlan.Interior.Color Then Sonuc = Sonuc + RenkliAlan.Value
    Next
Son:
    RenkTopla = Sonuc
End Function

 

[mc_exrem]

Bir modülün içerisine aşağıdaki kodları yapıştırın.
Hücreye =RenkTopla(ToplanacakAlan;Toplanacak Renk Örneği Olan Hücre) yazın

Function RenkTopla(Alan As Range, RenkliHucre As Range) As Variant
    Dim RenkliAlan As Range
    Dim Sonuc
    Dim Renk
    Application.Volatile
    On Error GoTo Son
    Renk = RenkliHucre.Interior.Color
    For Each RenkliAlan In Alan
        If Renk = RenkliAlan.Interior.Color Then Sonuc = Sonuc + RenkliAlan.Value
    Next
Son:
    RenkTopla = Sonuc
End Function

belirttiğiniz gibi soldaki resimde formülü uyguladım. sağdaki resimde de makro kaydet yapıp kodu yapıştırdım ama bu hatayı verdi?

 

[Korhan Ayhan]

Siyah dediğiniz hücrenin yazı karakteri rengi mi? Yoksa hücrenin dolgu rengi mi?

 

[mc_exrem]

Siyah dediğiniz hücrenin yazı karakteri rengi mi? Yoksa hücrenin dolgu rengi mi?

yazı karakter rengi

 

[Korhan Ayhan]

Örnek dosya ektedir.

Harici Link (Silinebilir) ; http://s2.dosya.tc/server6/7k78jg/YAZI_RENGINE_GORE_TOPLA.zip.html

Ben dosyada yazı rengi KIRMIZI olan hücreleri toplattım. Siz fonksiyon içindeki renk kodunu SİYAH rengin kodunu vererek işlem yapabilirsiniz.

 

[mc_exrem]

Örnek dosya ektedir.

Harici Link (Silinebilir) ; http://s2.dosya.tc/server6/7k78jg/YAZI_RENGINE_GORE_TOPLA.zip.html

Ben dosyada yazı rengi KIRMIZI olan hücreleri toplattım. Siz fonksiyon içindeki renk kodunu SİYAH rengin kodunu vererek işlem yapabilirsiniz.

J sütunundaki siyah değerleri toplamam için gerekli olan bu çalışmada sol taraftaki yazı rengine göre topla fonksiyonu hata veriyor.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excelgurusu.com/hucre-desen-ve-font-renklerine-gore-islemler/

http://www.excelgurusu.com/dolgu-ve-font-renklerine-gore-islem/

http://www.excelgurusu.com/hucre-rengine-gore-toplama-sayma-ve-ortalama-bulma/

.

 

[Korhan Ayhan]

Merhaba,

Nasıl uygulama yaptığınızı bilemiyoruz. Örnek dosyanız üzerinde açıklama yaparsanız daha net cevaplar verilebilir.

Bu şekilde konu gereksiz yere uzamış oluyor.

 

[mc_exrem]

Merhaba,

Nasıl uygulama yaptığınızı bilemiyoruz. Örnek dosyanız üzerinde açıklama yaparsanız daha net cevaplar verilebilir.

Bu şekilde konu gereksiz yere uzamış oluyor.

http://dosya.co/yb6qbazpvy8t/Cam_Listesi_-_ETİKET_GENÇELLER_R3.xlsm.html

"CAM SİPARİŞ" sayfasında koşullu biçimlendirme ile A sütunundaki hücrelere veri girince siyah oluyor veriyi silince veriler beyaza dönüyor. J9:J39 satırlarındaki değerler beyaz olunca aşağıdaki B41 hücresindeki genel toplama dahil olmamasını istiyorum. Sadece siyah olan verileri toplamasını istiyorum. İlginiz için teşekkür eder iyi çalışmalar dilerim

 

[Korhan Ayhan]

A sütunundaki dolu hücrelere göre J sütunundaki adetleri toplatsanız yeterli olmuyor mu?

 

[mc_exrem]

A sütunundaki dolu hücrelere göre J sütunundaki adetleri toplatsanız yeterli olmuyor mu?

Evet yeterli. A daki hücre aktifse j deki değer b41 deki toplama dahil olsun. Eğer A siyah değilse j deki değeri dikkate almasın

 

[Korhan Ayhan]

Deneyiniz.

=ETOPLA($A$9:$A$39;"<>0";$J$9:$J$39)

 

[mc_exrem]

Deneyiniz.

=ETOPLA($A$9:$A$39;"<>0";$J$9:$J$39)

A yı sildiğim halde beyaz olan değeri yine topluyor.

 

[Korhan Ayhan]

Bunu deneyiniz.

=TOPLA.ÇARPIM((A9:A39<>"")*(A9:A39<>0)*(J9:J39))

 

[mc_exrem]

Bunu deneyiniz.

=TOPLA.ÇARPIM((A9:A39<>"")*(A9:A39<>0)*(J9:J39))

Teşekkür ederim bu formül oldu. Emeğiniz için hepinize teşekkür ederim. İyi çalışmalar saygılar