Renk kodu ile renklenen alanı genişletmek..

[EKREM1661]

Saygıdeğer hocalarım..! Ekli dosyada, Sn.Yurttaş'ın bir çalışması mevcut..
A sütununda yer alan renk kodlarını, (makro düğmesi ile)
B sütununda, karşılığı olan hücreleri renk koduna ait renge çeviriyor..

Benim istediğim;
1-Renklendirme sadece B sütunu değil, AA sütununa kadar uzatılması..
2-Satır olarak da, 10.000 satıra kadar olan alanı kapsamış olması..

Arkadaşlar, bu mümkün mü.?

 

[YUSUF44]

Aşağıdaki kodu deneyin:

Sub Makro1()
For b = 2 To 10000
    Range("B" & b & ":AA" & b).Interior.ColorIndex = Cells(b, 1).Value
Next
End Sub

 

[EKREM1661]

Üstad..! Harikasınız.. Çok teşekkürler ve elinize sağlık..