Same conditional formatting if same value

[Kamolga]

Hi,

Is there a way to get some kind of dynamic conditional formating: if A1 = B1, then A1 formating =B1 formating (font and text color).

I thought of a macro on a change value event but I miss the "undo" function.

Any idea? Thanks in advance

 

[Marcelo Branco]

Re: Same condiational formating if same value

Maybe something like this

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyRange As Range, rDefaultFormat As Range
    
    Set MyRange = Range("A1:A10") '<--adjust to suit
    Set rDefaultFormat = Range("Z1") '<--adjust
    
    If Not Intersect(Target, MyRange) Is Nothing Then
        Application.EnableEvents = False
        If UCase(Target.Value) = UCase(Target.Offset(, 1).Value) Then
            Target.Offset(, 1).Copy
            Target.PasteSpecial Paste:=xlPasteFormats
        Else
            rDefaultFormat.Copy
            Target.PasteSpecial Paste:=xlPasteFormats
        End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
    End If
End Sub

M.