Belli Hücre Aralığındaki Renksiz Hücreleri Saydırma

[Feylosof]

İyi pazarlar diliyorum arkadaşlar,

C6:L23 Aralığında bulunan renksiz hücreleri saydırıp, userform üzerindeki textboxa sonucu yazdırmak istiyorum.
Desteğini esirgemeyen herkese şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Range
    Dim Say As Long
    For Each Bak In Range("C6:L23")
        If Bak.Interior.Pattern = xlNone Then
            Say = Say + 1
        End If
    Next
    MsgBox Say & " adet renksiz hücre var."
End Sub

 

[Necdet]

Merhaba,
Renkli hücreler gerçekten renkli mi? yoksa koşullu biçimlendirme sonucu mu renkli?
Emin olmak gerek.

 

[Feylosof]

Sayın @Muzaffer Ali ilgi ve desteğiniz için çok teşekkür ederim. sayın @Necdet Beyin dikkat çektiği gibi vba ile renklendirilmiş hücreleri de boş olarak saydı. Her iki durumda da renkli olan hücreleri saymayacak şekilde kod revize edilebilir mi?. Teşekkürler.

 

[Necdet]

Merhaba
Vba ile renklendirmenin koşulunu bilmeden nasıl ulaşacaksınız sonuca? onu söylemiyorsunuz. Ama topu Sayın Muzaffer Ali beye atıyorsunuz.
Ben Muzaffer beyin müneccim olduğunu sanmıyorum.

 

[Feylosof]

Sayın @Necdet sizden veya Sayın @Muzaffer Ali Beyden müneccimlik yapmanızı istemiyoruz. Bunun bize de faydası yok. Ama emin olun vba nın kurgu mantığını bilmediğimiz için bazen kusurlu ve eksik soru sorabiliyoruz. Bunun için hoşgörünüze sığınmak isteriz.

 

[Muzaffer Ali]

Hücreleri VBA ile yada elinizle renklendirmeniz arasında bir fark yok ama eğer koşullu biçimlendirme ile renklendiriyorsanız renk sayma kodunda değişiklik yapılması gerekecektir.

 

[Feylosof]

@Muzaffer Ali Üstadım sizi meşgul ettim kusura bakmayın. Boş olmayan hücreler için aynı rengi veren koşullu biçimlendirme mevcut. Dosyamı tekrar inceleyince farkettim.

 

[Muzaffer Ali]

Örnek dosya eklerseniz daha iyi anlaşılır ve hızlı çözüm bulunur.

 

[Feylosof]

Dosya ektedir Hocam. 4. Sayfada kodlar mevcut 1. Sayfada koşullu biçimlendirme

 

[Korhan Ayhan]

Deneyiniz.

Sub Count_Colorless_Cells()
    Dim Rng As Range, Count_Cells As Long

    For Each Rng In Range("C6:L23")
        If Rng.Interior.ColorIndex = xlNone Then
            If Rng.Value = "" Then
                Count_Cells = Count_Cells + 1
            End If
        End If
    Next
   
    MsgBox Count_Cells
End Sub

 

[Feylosof]

@Korhan Ayhan Bey çok teşekkür ederim. Elinize sağlık