DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[a1].Interior.Color = [a1]
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ınMerhaba,
Ö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ım çok teşekkürler. Sade ve mükemmel. Sağlıcakla kalınA1 deki değere göre hücre renklenir, kod bir fikir verebilir.
Kod:[a1].Interior.Color = [a1]