Soru Topla.Çarpım fonksiyonuna renk kodu kriteri eklenebilir mi?

[burhancavus61]

Merhaba arkadaşlar. Aşağıda fonksiyonla "X" olan hücreleri saydırıyorum. Yeni bir ilaveye ihtiyacım oldu ve renk kriterini eklemeyi düşündüm. Sorum bu fonksiyonun içine "X" olan hücrelerin bir kısmını renklendirirsem renklendirdiğim hücreleri sayma işleminden muaf tutabilirmiyim. Tablo büyük ve karmaşık ekleyemiyorum. Yada başka bir öneriniz varmı.

$I$3:$AM$3 hücresini bozmadan, $I6:$AM6 hücresinde X olan ama hücre rengi kırmızı olmayanları toplamak niyetim.
İnşallah derdimi anlatabilmişimdir. Teşekkrüler

=(TOPLA.ÇARPIM(($I$3:$AM$3>=1)*($I$3:$AM$3<=9)*($I6:$AM6="X")))

 

[ÖmerFaruk]

Direkt formülle renkli hücrelerle alakalı işlem yapamazsınız.
Bunun yerine KTF kullanabilir ya da kod yazabilirsiniz. Forumda daha önce benzer konula rişlenmişti.

 

[burhancavus61]

Sorunumu yardımcı sütunlarla ve sitedeki diğer örneklerle uzun bir şekildede olsa çözdüm. Teşekkürler

 

[Orion1]

Yerleşik fonksiyonla hücre rengi veremezsiniz.
Ama o fonksiyonu kullanarak koşullu biçimlendirme yapabilirsiniz.

 

[Mahir64]

Sorunumu yardımcı sütunlarla ve sitedeki diğer örneklerle uzun bir şekildede olsa çözdüm. Teşekkürler

Formülle nasıl çözdünüz?

 

[burhancavus61]

Üstad tablom https://www.excel.web.tr/threads/makromda-revizyon-ihtiyaci.195442/ bu linkte var. Topla çarpıma başka alan kontrolü ekledim Dolgu rengiyle çözmekten vazgeçtim. Sonradan aklıma geldi. Soru çözülmüş değil aslında.

 

[52779]

Selamlar,
Farklı bir yaklaşımla,
Yardımcı satır (ya da yardımcı sütunlar) kullanarak formülle çözüm isterseniz eki inceleyebilirsiniz...

M4.0_Renk.xlsm dosyasını indir - download

M4.0_Renk.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Dokuman, sizin soru mesajınızda anlatılanlardan hareketle hazırlandı.
Makro4.0 kodlarından GET.CELL (AL.HÜCRE) kodu ile Renk ad tanımlaması yapıldı ve yardımcı satırlardaki formüllerde kullanıldı.
Renk ad tanımlaması, 7. satır olan yardımcı satırdaki I7 hücresi seçilerek yapıldı.
Formülü :
=AL.HÜCRE(38;!I6)*(ŞİMDİ()^0)

Ve I7 hücresine
=EĞER(VE(I$3>=1;I$3<=9;I6="X";Renk=3);1;"")
formülü yazılıp, AM7 hücresine kadar kopyalandı.

Böylece yardımcı satırda, (3. satırda 1 ile 9 arasında Sayı olmak koşuluyla) bir üst satırda Renk Kodu = 3 (Kırmızı) olup, X yazanlara 1 yazdırıldı. Ve AN6 hücresinde de Toplam alındı.

Not : Örnek dokumanda detaylı açıklama yapmaya çalıştım...
Şahsi önerim ise, Renkler ile ilgili KTF kullanılmalı ya da kodla çözüme gidilmeli şeklinde....

 

[52779]

KTF olarak da
(Acemi işidir)

Function RenkSay(Alan As Range) As Long
Dim c As Range, s As Long
Application.Volatile
   s = 0
      For Each c In Alan
         If Cells(3, c.Column).Value >= 1 And Cells(3, c.Column).Value <= 9 _
         And c.Value = "X" And c.Interior.ColorIndex = 3 Then s = s + 1
      Next c
   RenkSay = s
End Function

kodlarını Module kopyalayın....

AN6 hücresine

=RenkSay(I6:AM6)

yazın.

 

[burhancavus61]

KTF olarak da
(Acemi işidir)

Function RenkSay(Alan As Range) As Long
Dim c As Range, s As Long
Application.Volatile
   s = 0
      For Each c In Alan
         If Cells(3, c.Column).Value >= 1 And Cells(3, c.Column).Value <= 9 _
         And c.Value = "X" And c.Interior.ColorIndex = 3 Then s = s + 1
      Next c
   RenkSay = s
End Function

kodlarını Module kopyalayın....

AN6 hücresine

=RenkSay(I6:AM6)

yazın.

Teşekkür ederim akşam inceleyeceğim her iki mesajınızıda.

 

[Korhan Ayhan]

Alternatif;

TOPLA.ÇARPIM+KTF kurgulaması uygulanmıştır.

Not : KTF'nin sonuç vermesi için hücrelerin dolgu renginin elle değiştirilmiş olması gerekir. Koşullu biçimlendirme ile dolgu rengi verilen hücrelerde KTF çalışmayacaktır.

 

[burhancavus61]

Sağolun hocam ilginiz için teşekkür ederim.