değişiklik olan hücre renklensin

[Yesilyurtlu]

Ekli dosyada bilgi sayfasında personellere ait bilgileri ilk girdiğimiz veri değişirse hücre kırmızı yazı sarı olabilir mi?
bu konuda Yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Yine tam olarak anlamamakla birlikte (çünkü dosyada bilgi yoktu) aşağıdaki kodların "Değişiklik" sayfasında olmalıdır. Değişiklik sayfasında herhangi bir hücrede değişiklik yapıldığında "Bilgi" sayfasındaki değer ile karşılaştırır ve eşit olmadığı durumda rengini değiştirir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:P]) Is Nothing Then Exit Sub
If Target.Row < 6 Then Exit Sub
If Target <> Sheets("Bilgi").Range(Target.Address) Then
    With Target
        .Interior.ColorIndex = 3
        .Font.Color = 14
    End With
Else
    With Target
        .Interior.ColorIndex = 2
        .Font.Color = 1
    End With
End If
Son:
End Sub