Sayfa 1 deki renklendirmeyi Sayfa 2 de yapmak

[hopeful]

merhaba
Sayfa 1 de A kolonunda yer alan 3, 6, 8 sayılarının bulunduğu hücreler renkli. Sayfa 2de de aynı sayılardan bulunuyor ancak bu sayıların bulunduğu hücreler renkli değil. Sayfa 2de A kolonunda bulunan 3,6,8 sayılarına ait hücrelerin otomatik olarak aynı renklere sahip olmasını nasıl sağlayabilrim??

Saygılar

 

[excellium]

Fazla ugraşamadım ama umarım işinize yarar:

deger = 3
renk = 6
For x = 1 To 65536
Range("A" & x).Select
    If Range("A" & x) = deger Then
        With Selection.Interior
            .ColorIndex = renk
            .Pattern = xlSolid
        End With
    Else
    End If
Next

deger ve renk ' bir hücreye baglayıp sayfa içinden değiştirebilirsiniz.
düğme ekleyim aaa makrosunu atayabilirsiniz.
renk kodları : mavi = 5, sarı = 6, kırmızı = 3 sanırım

 

[Recep İpek]

Aşağıdaki kodlarıda deneyebilirsiniz.

Sub Renklendir()
For Each alan In Sheets(2).[a1:a50]
If alan.Value = 3 Then alan.Interior.ColorIndex = 33
If alan.Value = 6 Then alan.Interior.ColorIndex = 39
If alan.Value = 8 Then alan.Interior.ColorIndex = 36
Next
End Sub