Renk kodlarını hücrede gösterme

[hakki83]

Merhaba

Makro kaydet yöntemiyle yapamadım.
A2’ye renk kodu yazdığımda, yanındaki hücrede o rengin dolgulanmasını sağlayabilir miyiz?
(A sütununa hep renk kodlarını yazacağım)

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub test()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B").Interior.Color = Cells(i, "A")
    Next i
End Sub

 

[hakki83]

Otomatik çalışanıydı hocam ama bu da olur. Emeğinize sağlık. Teşekkürler.

 

[Ömer]

A sütununa veri girince çalışır.
Çalışma sayfasının kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    With Target
        If .Row < 2 Then Exit Sub
        If .Count > 1 Then Exit Sub
        Cells(.Row, "B").Interior.Color = Cells(.Row, "A")
    End With
End Sub