Copy Formula Result & Highlight

[Frenzyy]

Hey All,
Could you please kindly advise as to what's the best way to loop through cells and paste as value a result from formula in another cell? If the result was copied, the cell should also be highlighted in yellow.
In short, formula in column AY throws a desired result or states FALSE. If the results does not equal FALSE then paste the result as value to column G and highlight in yellow.

Any help is greatly appreciated.

Many thanks!

 

[Saurabhj]

Hi, Please check below:

Sub showData()

    For rowno = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(rowno, "D") <> "FALSE" Then
            Cells(rowno, "E") = Cells(rowno, "D")
            Cells(rowno, "E").Interior.Color = vbYellow
        End If
    
    Next
   
End Sub

 

[Frenzyy]

I made a slight alteration but it works great apart from that. Thanks!

 

[Saurabhj]

Hi, great and thanks for the feedback.