Dolgu Rengine Göre Değer Alma

[cenkaltunkaya]

Arkadaşlar Merhaba,
Forumda araştırdım bir kaç yerde benzer konular açılmış onları inceledim denedim fakat ne yaptıysam çalıştıramadım, indirdiğim örnek dosyalar bile çalışmadı doğrusu.

Yardımcı olmanızı istediğim konu şu;

herhangi bir hücrenin arka fon rengine göre belirlediğim başka bir hücrede bir değer görmek istiyorum.
Mesela A1 hücresini yeşil renk yaptım, B1'de "1" değeri çıktı.

Hepsi bu

Hepinize şimdiden teşekkürler

 

[Korhan Ayhan]

Excelde renk değişimini kontrol eden bir olay (event) yoktur. Bu sebeple çözüm önerileri makro kodları ile yapılmaktadır.

Genellikle KTF (Kullanıcı Tanımlı Fonksiyon) uygulamaları ile çözümler var.

Aşağıdaki kodu boş bir modüle uygulayın.

Option Explicit

Function RENK_KODU(Veri As Range)
    Application.Volatile True
    RENK_KODU = Veri.Interior.ColorIndex
End Function

Aşağıdaki şekilde hücreye uygulayabilirsiniz. Formülün içindeki 43 değeri YEŞİL rengin renk kodudur.

=EĞER(RENK_KODU(A1)=43;1;"")

Renk değişimlerinde fonksiyonun çalışması için F9 tuşuna basmanız yeterli olacaktır.

 

[cenkaltunkaya]

İşimi çözdü. Bilgi için teşekkür ediyorum.