Tabloda ki 3 koşula göre sayı saydırma

[teknoman]

Merhabalar, tablom da satır ve sutundaki değerlere göre istediğim sayıları bulabiliyorum.Lakin renk kodu işin içine girince biraz bocaladım.
Ekteki dosyamda görüleceği üzere seçilen tarihte seçilen raf taki seçtiğim ürün rengin deki ürün sayısını nasıl formülüze edebilirim.
Şimdiden herkese iyi çalışmalar.Sağlıklı günler dilerim

 

[Muzaffer Ali]

Merhaba.
Tarihi bulduk
8 tane olan Raf1 leri de bulduk.
Peki Renk Kodu 6 ile neyi bulup saymak istiyorsunuz?

Örneğe göre sonuç kaç olmalı?

 

[teknoman]

Hocam istediğim renkteki ürünlerin adetini bulmak istiyorum.Mesela 09.05.2020 tarihinde RAF1 de bulunan yeşil renkli ürün adeti 2, yada aynı tarihte aynı rafta sarı renkli 1 adet ürün var.Bu şekilde istiyorum.ilginize şimdiden teşekkür ederim hocam.

 

[YUSUF44]

Eğer renk kodları tabloda bir hücrede belirtilmemiş de örnekteki gibi hücre rengi (yani biçim) olarak bulunuyorsa formülle çözülebileceğini düşünmüyorum. Makro ya da kullanıcı tanımlı fonksiyon olabilir.

 

[teknoman]

Hocam belli aralıkta istenen renkteki hücrelerin sayılarını aşağıdaki fonksiyonla bulabiliyorum.Fakat bu fonksiyonu toplam.çarpım fonksiyonuna entegre edemedim malesef.

Function RENKLERİ_SAY(Bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
For Each datax In Bolge
If datax.Interior.ColorIndex = xcolor Then
RENKLERİ_SAY = RENKLERİ_SAY + 1
End If
Next datax
End Function