Soru Sarı Renkteki Sütunlarda Yazan "X" Adetinin Toplanması

[ozanylmz]

Öncelikle Hayırlı Akşamlar
Kendi Puantajım İçin Kullanacağım Dosyada İçinden Çıkamadığım Bir Durum Söz Konusu

Ocak Ayının Pazar Günlerini Sarı Renge Boyadım
İşe Geldiğim Günlere X, Gelmediğim Günlere İ yazdım.
Sarı Renkli X yazdıklarımı AI4 Hücresine Eklemek İstedim Yapamadım

Yardımcı Olabilir misiniz

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile yapabilirsiniz.

Aşağıdaki kullanıcı tanımlı fonksiyonu (KTF) boş bir modüle ekleyin.

Sonra excel sayfanıza dönün. Excel dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt ediniz.

Örnek olarak A1:A30 hücre aralığında X yazılı hücreler olsun ve bazı hücreler sarı renkle (elle verilen fiziksel renk) vurgulanmış olsun.

Boş bir hücreye ; =K_RENKLİ_EĞERSAY(A1:A30;"X";65535) yazdığınızda sonuç verecektir.

Not : Eğer renkler koşullu biçimlendirme ile verilmişse kullanıcı tanımlı fonksiyon sonuç üretmeyecektir.

İkinci kod seçtiğiniz hücrenin dolgu rengini size gösterecektir. Elde ettiğiniz renklerin kodlarını kullanıcı tanımlı fonksiyonda kullanabilirsiniz.

Option Explicit

Function K_RENKLİ_EĞERSAY(Ölçüt_Alanı As Range, Kriter As Variant, Renk_Kodu As Long)
    Dim Veri As Range
   
    Application.Volatile
   
    For Each Veri In Ölçüt_Alanı
        If UCase(Replace(Replace(Veri.Value, "ı", "I"), "i", "İ")) = _
            UCase(Replace(Replace(Kriter, "ı", "I"), "i", "İ")) Then
            If Veri.Interior.Color = Renk_Kodu Then
                K_RENKLİ_EĞERSAY = K_RENKLİ_EĞERSAY + 1
            End If
        End If
    Next
End Function

Sub Renk_Kodu_Nedir()
    MsgBox ActiveCell.Interior.Color
End Sub

 

[ozanylmz]

Değerli Moderatörüm Sorun Çözüldü Çok Teşekkür Ederim )