Hücre içindeki renk değerine göre değer atamak

[rammstein_s]

Selam arkadaşlar benim yapmak istediğim şu:

eğer kırmızı renk a satırında ise değer A
eğer kırmızı renk b satırında ise değer B
eğer kırmızı renk c satırında ise değer C

şeklinde yapmak istiyorum. siteyi inceledim kullancı tanımlı işlevler ile halledilebiliyormuş.Ancak böyle birşeye rastlamadım.Yardımcı olursanız sevinirim.

 

[rammstein_s]

Arkadaşlar yardım edecek yok mu ?

 

[rammstein_s]

kusura bakmayın konu yukarıda kalsın diye, cevap alınca gereksizleri sileceğim

Arkadaşlar yardım edecek yok mu ?

 

[rammstein_s]

Konu yukarı...

 

[ÖmerBey]

Boş bir modüle aşağıdaki kodu yapıştırın.

Function RENKLİSÜTUN(aralık, renk)
For Each hücre In aralık
    If hücre.Font.Color = renk Then
        RENKLİSÜTUN = Split(hücre.Address, "$")(1)
        Exit Function
    End If
Next
End Function

Sonra D1 hücresine aşağıdaki formülü yazıp aşağı çekerek çoğaltınız.

=RENKLİSÜTUN(A1:C1;[COLOR="Red"]255[/COLOR])

Bu formüldeki kırmızı kısım renk kodu: Standart kırmızı rengin kodu 255.

 

[rammstein_s]

çok teşekkürler ama sorunum şu eğer kırmızı a1 satırında ise x b1 de ise y c1 de ise z değerinivermek istiyorum. bu sadece kırmızı renk bulucu gibi galiba...

 

[rammstein_s]

birde rengin hex kodu E03434 yani rgb 224 52 52

 

[rammstein_s]

yardımlarınızı bekliyorum

 

[rammstein_s]

konu güncel

 

[ÖmerBey]

Hücrenin renk kodunu öğrenmek için aşağıdaki Kullanıcı Tanımlı Fonksiyonu kullanabilirsiniz.

Function RENKÖĞREN(hücre)
RENKÖĞREN = hücre.Font.Color
End Function

=RENKÖĞREN(A1)

şeklinde kullanabilirsiniz.
Belirttiğiniz rengin kodu 3421408 olarak gözüküyor.


Eğer A, B, C yerine de X, Y, Z yazdırmak istiyorsanız yukarıda verdiğim fonksiyonla beraber formülünüzü aşağıdaki şekilde yazabilirsiniz.

=EĞER(RENKLİSÜTUN(A1:C1;3421408)="A";"X";EĞER(RENKLİSÜTUN(A1:C1;3421408)="B";"Y";EĞER(RENKLİSÜTUN(A1:C1;3421408)="C";"Z")))

 

[rammstein_s]

çok teşekkür ederim