Renk Numaralarını Hücreye Yazdırmak

[baydeniro]

Merhaba Arkadaşlar.
Belirli bir alan seçerek, bu alanda hücre dolgusu olan hücrelerin renk kodlarını hücreye yazdırmak mümkün mü ?

 

[Seyit Tiken]

A1 deki değere göre hücre renklenir, kod bir fikir verebilir.

[a1].Interior.Color = [a1]

 

[Necdet]

Merhaba,
Örnekte iki değişik kod var, biri Color , diğeri ColorIndex verir. hangi değerleri isterseniz onu kullanın.

Sub Kodlar()

    Dim Rng As Range
    
    For Each Rng In Range("A1:C2")
        Rng = Rng.Interior.COLOR
'        Rng = Rng.Interior.COLORindex
    Next Rng
    
End Sub

 

[baydeniro]

Merhaba,
Örnekte iki değişik kod var, biri Color , diğeri ColorIndex verir. hangi değerleri isterseniz onu kullanın.

Sub Kodlar()

    Dim Rng As Range
   
    For Each Rng In Range("A1:C2")
        Rng = Rng.Interior.COLOR
'        Rng = Rng.Interior.COLORindex
    Next Rng
   
End Sub

Üstad çok teşekkür ederim. Harika oldu. sağlıcakla kalın

 

[baydeniro]

A1 deki değere göre hücre renklenir, kod bir fikir verebilir.

[a1].Interior.Color = [a1]

Üstadım çok teşekkürler. Sade ve mükemmel. Sağlıcakla kalın