Conditional Formatting using VBA

[Swapnil_Next]

I want to conditionally format a range of cells where data in a cell in a column is equal to data in corresponding cell in another column.

for example:

if the cell value of A1 is equal to the cell value of G1 then the A1:D1 from range(A1:D6) will get highlighted, and if the cell value of A2 is equal to the cell value of G2 then the A2:D2 from range(A1:D6) will get highlighted.

It works with Conditional Formatting but I want to do it using VBA.

Can anyone help on this?

Thanks in Advance,

Swapnl_Next

 

[ParamRay]

.
.

Try something like this:

Sub AddFormCond()

    With Range("A1:D6").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=$A1=$G1")
    
        .Interior.Color = RGB(198, 239, 206)
        .Font.Color = RGB(0, 97, 0)
    
    End With

End Sub

 

[Swapnil_Next]

.
.

Try something like this:

Sub AddFormCond()

    With Range("A1:D6").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=$A1=$G1")
    
        .Interior.Color = RGB(198, 239, 206)
        .Font.Color = RGB(0, 97, 0)
    
    End With

End Sub

It works very well. Thanks a lot!

 

[isasa74]

.
.

Try something like this:

Sub AddFormCond()

    With Range("A1:D6").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=$A1=$G1")
    
        .Interior.Color = RGB(198, 239, 206)
        .Font.Color = RGB(0, 97, 0)
    
    End With

End Sub

@ gpeacock,

I'd need nearly the same thing and I want to add this code to a Macro that I'm already using , basically I want that when column D EUR/USD Column C must be currency formatted accordingly (with EUR/USD)
PLEASE

 

[crystalneedshelpplzthnx]

Perfect! Thank you!

.
.

Try something like this:

Sub AddFormCond()

    With Range("A1:D6").FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=$A1=$G1")
    
        .Interior.Color = RGB(198, 239, 206)
        .Font.Color = RGB(0, 97, 0)
    
    End With

End Sub