Select and Highlight certain cells

[forumfinder]

Hi All,

I am developing a macro which select certain rows from table and highlight them based on the result. (Green for Okay and Red for Wrong).
The criteria is if lets say "A1" has word "Happy" and "A2" has word "Happy go lucky" then after running macro, "A1" and "A2" gets highlighted by green. Vice versa, if "A2" doesn't have "Happy" then "A1" and "A2" gets highlighted by Red.

e.g.: If Range("A2") contains val(Range("A1")) then
Range("A1:A2").highlight(Green)

something like this....



Please advise me on this.....

 

[SteveO59L]

Just use conditional formatting, no need for code

 

[forumfinder]

Thanks steve, will try this ..

 

[forumfinder]

[SOLVED] Select and Highlight certain cells

Hi all,

since I have some other macros too, I have to use VBA. BTW,
I found a simple code for it.

        If InStr(1, s2, s1) Then
            ran.Interior.Color = RGB(128, 255, 0)
        Else
            ran.Interior.Color = RGB(255, 0, 0)
        End If

it works fine for me!