Koşullu biçimlendirme ile renklendirilmiş hücrelerin sayısını bulmak

[m.gur]

Merhaba;
Öncelikle forumda arama yaptığımı belirteyim. Epey örnek buldum ancak ihtiyacımı karşılamadı. Uyarlamaya çalıştım yapamadım. Sorum şöyle; koşullu biçimlendirme ile renklendirdiğim hücrelerin kaç adet olduğunu bulmam gerekiyor. Hangi sütunda olduğu önemli değil. Ben toplam 3 renk kullanacağım, kullandığım renklerin toplamını bulsun yeter. Bulduğum örneklerde ya font rengine göre yada zemin rengine göre biçimlendirilmiş hücrelerin sayısını bulma ile ilgili yapılmış. Yapmak istediğim dosya ise aslında çok basit birşey ama ben onu çeşitli dosyalarımda kullanacağım için bana çok gerekli bir VBA makrosu olacak. İlgilenebilecek arkadaşlara şimdiden teşekkür ediyor saygılar sunuyorum.

Basit bir örnek dosya ekledim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek kullandığınız koşulları yazarsanız çözüm üretebiliriz.

 

[m.gur]

İlgilenen arkadaşlara sorumu tekrarlamak istiyorum. Teşekkürler.

 

[hamitcan]

Koşullu biçimlendirme içinde kullandığınız koşullar; aralık, 1,2 yada 3 olduğunda arka plan rengi değişsin şeklinde. Öyleyse, renkli olan hücreleri toplamak yerine koşulu gerçekleştiren hücreler toplanabilir. Bunu da Etopla formülü ile yapabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Eğersay formülü ile koşullu biçimlendirmede kullandığınız kriterleri (1-2-3) saydırabilirsiniz.

E1 hücresine;

=EĞERSAY(A:A;[COLOR=red]1[/COLOR])

E2 hücresine;

=EĞERSAY(A:A;[COLOR=red]2[/COLOR])

E3 hücresine;

=EĞERSAY(A:A;[COLOR=red]3[/COLOR])

 

[m.gur]

Dosya örnek dosya olduğu için ben 1-2-3 diye basitçe yazıverdim. Aslı öyle değil. Asıl dosyamı ekliyorum. Buna göre makro ile düzenleyebilirseniz çok memnun olurum.

 

[m.gur]

Arkadaşlar çözümü yokmu ?

 

[Korhan Ayhan]

Selamlar,

Koşul sonucu renklenen hücrelerin arka plan rengi aslında değişmemektedir. Bu sebeple bu renkleri saydırabilmek için özel fonksiyon yazmak gerekmektedir. Bu foksiyonda da sizin oluşturmuş olduğunuz koşullar sorgulanacağı için bence buna gerek yoktur. Bunun yerine rengi gözardı edip sizin koşullarınızı formül içine adapte ederek sayma işlemleri yaptırılabilir. Bu şekilde hazırlamış olduğum ekteki örnek dosyayı incelermisiniz.

Uygunalanan formüller;

I1 Hücresine;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ($D$1:$D$365;1)=7)*1)

I2 Hücresine;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ($D$1:$D$365;1)=1)*1)

I3 Hücresine;

=BAĞ_DEĞ_DOLU_SAY($F$2:$F$65536)

Ayrıca hafta sonları düşülmüş tatil günlerini bulmak isterseniz I3 hücresindeki formülü aşağıdaki şekilde değiştirip kullanabilirsiniz.

=BAĞ_DEĞ_DOLU_SAY($F$2:$F$65536)-TOPLA.ÇARPIM(($F$2:$F$20<>"")*((HAFTANINGÜNÜ($F$2:$F$20;1)=7)+(HAFTANINGÜNÜ($F$2:$F$20;1)=1))*1)

 

[m.gur]

Sayın Korhan Ayhan;
Öncelikle çok teşekkür ederim ilgilendiğiniz için. Şu an için problem yok. Peki makro ile yapma imkanı yokmu acaba. Ben buna benzer bir formül bulmuştum bir yerden fakat çalıştıramadım.
Kod sayfasına bakarsanız yapmaya çalıştığım işlemi görürsünüz.
Kodların arasına aşağıdaki kodu yazmıştım ama olmadı.

If MyRng.FormatConditions(1).Interior.ColorIndex > 0 Then No = No + 1

Bunu geliştirmenin yolu varmıdır yokmudur. Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Benimde anlatmak istediğim zaten buydu. Dediğiniz şekilde bir komutu eklemek için örneğin D1 hücresindeki biçimde kullandığınız 3 koşulun döngü ile sorgulanması gerekmektedir. Bu kontroller sonucu sağlanıyorsa zaten hücre sizin belirlediğiniz rengi almış demektir.

Bu durumda renk yerine koşulları sorgulamak bence daha mantıklı olmaktadır. Tabiki hangi seçeneği kullanacağınız konusunda tercih sizin.

Ayrıca kullanmış olduğunuz kod satırında hücrenin almış olduğu dolgu rengini değil 1. koşula tanımlamış olduğunuz rengi sorgulamış oluyorsunuz. Buradaki amacınızın hücrenin hangi koşulu sağladığını bulmak olmalıdır. Bu şekilde renge ulaşabilirsiniz.

 

[m.gur]

Teşekkürler, araştırmaya devam edeceğim ben yine.

 

[m.gur]

Arkadaşlar;
Kafamda herhangi bir soru kalmasın diye yazıyorum. Bunun başka çözümü varmı ? yokmu ? Bunu bileyim istedim. Araştırdığım kadarıyla başka çözüm bulamadım. Tüm forum üyelerine sağlık ve mutluluk dolu yeni bir yıl dilerim.

 

[Korhan Ayhan]

Selamlar,

Sn. m.gur,

#10 nolu mesajımda da bahsettiğim gibi konu çözümsüz değil. Fakat koşullu biçimle renklendirilmiş hücrenin sadece görsel olarak rengi değişmiş olur. Fiziksel olarak hücre renk değiştirmiş olmaz. Bu durumda forumda daha önce verilmiş olan renk sayma kodları sizin işinize yaramaz. Çünkü o kodlarda hücrenin fiziksel olarak değişmiş rengi sorgulanmaktadır.

Şu şekilde sonuca ulaşılabilir. Sayfadaki koşullu biçimlendirme uygulanmış hücreler döngüye alınarak koşuldaki formüller bir değişkene atanır. Ve formülün sonucunu tesbit ederek hücrenin bu koşulu sağlayıp sağlamadığı kontrol edilir. Eğer hücre koşulu sağlıyorsa zaten sizin vermiş olduğunuz rengi almış olacağından bu hücreler sayılarak sonuca gidilir.

 

[m.gur]

Sayın Korhan Aydın;
Bu güzel açıklamanız için çok teşekkür ederim. Şimdi konuyu daha iyi anlamış oldum. Aydınlattığınız için tekrar teşekkür eder mutlu yıllar dilerim.

 

[crazy5252]

slm benimde buna benzer bir sorunum varda aşağıdaki excel tablosundaki koşullu biçimlendirmeyle renklendirilmiş kırmızı ve yeşil renkleri saydırmak istiyorum ama bir türlü uygun bir formül bulamadım yardımcı olursanız sevinirim.

 

[ikalkar]

Koşullu biçimlendirme ile renkli satır sayma

S.a arkadaşlar koşullu biçimlendirme yanlızca şunu içeren hücreleri biçimlendir sekmesinden eşit olanı biçimlendir ve arka plan renginide kırmızı olarak seçtim burada örnek olarak A2 den AS 2 arasında 10 adet rakam seçiyorum ve bu seçtiğim rakamları kopyalayıp A1 hücresine yapıştırıyorum aşağıda nasıl olduğu gözüküyor A5 ile J5 satırında bir adet kırmızım var fakat A6 ile J6 satırının içinde 6 adet kırmızım var ben bunları saydırmak istiyorum 6 dan başlayıp 10 kadar tutan satırdaki kırmızı renkleri nasıl saydırabilirim örnek olarak vermiş olduğum dolgu rengi sarı olan hücre gibi tam karşısına eklemesini istiyorum.Arkadaşlar şimdiden teşekkür ederim.OfİS 2007 kullanıyorum.
dosya ektedir.

 

[ikalkar]

koşullu biçimlendirme

sabahtan beridir yapmaya çalışıyorum bir türlü olmadı çözemedim lütfen yardım edin.koşullu biçimlendirme yapılmış hücrelerde sadece kırmızı renk kullandım örnek olarak dosya ekledim sadece yanyana olan 10 adet satırdaki rengin kaç adet olduğunu almak istiyorum.teşekkürler.

 

[ikalkar]

koşull biçimlendirme

sabahtan beridir yapmaya çalışıyorum bir türlü olmadı çözemedim lütfen yardım edin.koşullu biçimlendirme yapılmış hücrelerde sadece kırmızı renk kullandım örnek olarak dosya ekledim sadece yanyana olan 10 adet satırdaki rengin kaç adet olduğunu almak istiyorum.teşekkürler.

 

[hamitcan]

Sub FormatUygulanmisHucreSayisi()
    For i = 5 To 29
    For j = 1 To 10
        s = WorksheetFunction.CountIf([a1:as1], Cells(i, j))
        If s > 0 Then c = c + 1
    Next
        Cells(i, "k") = c
        c = 0
    Next
End Sub

 

[AdemCan]

Selamlar,

Koşul sonucu renklenen hücrelerin arka plan rengi aslında değişmemektedir. Bu sebeple bu renkleri saydırabilmek için özel fonksiyon yazmak gerekmektedir. Bu foksiyonda da sizin oluşturmuş olduğunuz koşullar sorgulanacağı için bence buna gerek yoktur. Bunun yerine rengi gözardı edip sizin koşullarınızı formül içine adapte ederek sayma işlemleri yaptırılabilir. Bu şekilde hazırlamış olduğum ekteki örnek dosyayı incelermisiniz.

Uygunalanan formüller;

I1 Hücresine;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ($D$1:$D$365;1)=7)*1)

I2 Hücresine;

=TOPLA.ÇARPIM((HAFTANINGÜNÜ($D$1:$D$365;1)=1)*1)

I3 Hücresine;

=BAĞ_DEĞ_DOLU_SAY($F$2:$F$65536)

Ayrıca hafta sonları düşülmüş tatil günlerini bulmak isterseniz I3 hücresindeki formülü aşağıdaki şekilde değiştirip kullanabilirsiniz.

=BAĞ_DEĞ_DOLU_SAY($F$2:$F$65536)-TOPLA.ÇARPIM(($F$2:$F$20<>"")*((HAFTANINGÜNÜ($F$2:$F$20;1)=7)+(HAFTANINGÜNÜ($F$2:$F$20;1)=1))*1)

Merhabalar, bende koşullu biçimlendirme ile renklendirilen hücreleri saydırmaya çalışıyorum, sizin vermiş olduğunuz Formüllerde aslında işimi görür ancak 30 gün olan Aylarda #Değer hatası veriyor. 31 gün olan Aylarda sorun vermiyor.

30 gün olan aylarda da sorun vermemesi için ne yapabilirim ?