baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
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]