Renk Numaralarını Hücreye Yazdırmak

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
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ü ?
216307
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
A1 deki değere göre hücre renklenir, kod bir fikir verebilir.
Kod:
[a1].Interior.Color = [a1]
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Örnekte iki değişik kod var, biri Color , diğeri ColorIndex verir. hangi değerleri isterseniz onu kullanın.

Kod:
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

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Merhaba,
Örnekte iki değişik kod var, biri Color , diğeri ColorIndex verir. hangi değerleri isterseniz onu kullanın.

Kod:
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
 
Üst