RGB Kodlarına göre alan boyama

[Tevfik_Kursun]

Merhaba Arkadaşlar,
A sütununda renkler, B sütununda boyanacak alanlar var. RGB değerleri ile nasıl boyatabilirim?
Saygılarımla

 

[AdemCan]

Merhaba, modul içindeki renk kodlarını değiştiriniz.

Sub Renk()
    For x = 1 To 2
        renkno = Cells(x, 1).Interior.ColorIndex
        alan = Cells(x, 2).Text
        Range(alan).Interior.ColorIndex = renkno
    Next x
End Sub

 

[antonio]

Merhaba, alternatif olsun.

Sub rgb_boya()
Dim sh As Worksheet, alan As Range, ss As Long, renk As Long, adr As String

Set sh = Sheets(Sayfa1.Name)
ss = sh.Range("B12345").End(3).Row
For i = 1 To ss
    renk = sh.Range("A" & i).Interior.Color
    adr = sh.Range("B" & i).Value
    Set alan = sh.Range(adr)
    alan.Interior.Color = renk
Next i
Set sh = Nothing
Set alan = Nothing
End Sub

 

[Tevfik_Kursun]

İlgilernize teşekkür ederim,
ama benim renklerin RGB değerleri A1 için 255 0 255 A2 için 255 217 102
AdemCan beyin makrosu sonucu A1 için 255 0 255 A2 için255 204 153
Antonio beyin makrosu sonucu A1 için 255 0 255 A2 için 255 217 102
Saygılarımla

 

[uzmanamele]

Deneyiniz

RGB renk kodları C,D,E hücrelerine yazılmıştır

Sub DolguRengi()
For i = 1 To Range("B1048576").End(3).Row
Range(Cells(i, "B").Text).Interior.Color = RGB(Cells(i, "C"), Cells(i, "D"), Cells(i, "E"))
Next
End Sub

 

[Tevfik_Kursun]

Sayın Uzmanamele
Sonuç bu geldi. Neden olabilir?
Saygılarımla

 

[uzmanamele]

Merhaba
RGB renk kodlarını C,D,E hücrelerine yazmalısın.
Bu hücrelerde kod olmadığı için hepsini siyah yapar.

Makinenin ekran kartına göre farklı makinelerde renklerde farklılıklar olabilir.
Bunun için en iyisi RGB kodlarını yazmak olur.

 

[Tevfik_Kursun]

Sayın Uzmanamele,
Tamam, üstteki mesajda "RGB renk kodları C,D,E hücrelerine yazılmıştır" görünce makro kodları yazıyor sandım. Kusura bakmayın, lütfen
Saygılarımla