Compare COL D to COL F and if NOT a match, highlight cell in Col F

[ChrisOK]

Need to compare Col D's % value to Col F's % value, if they do not match, highlight the cell in Col F yellow using vba.

Ideas?

 

[Chris Macro]

Does it have to be a VBA solution? You can do this with conditional formatting

 

[hippiehacker]

this should do just modify the RGBs for the color I'm to lazy now to look them up

Sub compare_cols()
Application.ScreenUpdating = False
Set Report = Excel.Worksheets("Sheet1") 'You could also use Excel.ActiveSheet _
                                            if you always want this to run on the current sheet.

    lastRow = Report.UsedRange.Rows.Count

    

    For i = 2 To lastRow
            If Report.Cells(i, 4).Value <> "" Then 'This will omit blank cells at the end (in the event that the column lengths are not equal.
                If Report.Cells(i, 4).Value <> Report.Cells(i, 6).Value Then
                    Report.Cells(i, 6).Interior.Color = RGB(156, 0, 6) 'Dark red background
                    Report.Cells(i, 6).Font.Color = RGB(255, 199, 206) 'Light red font color
                End If
            End If
    Next i
End Sub

 

[Rick Rothstein]

Here is another macro which you can also consider...

Sub HighlightNonMatchingDFcells()
  Dim UnusedColumn As Long
  UnusedColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                 SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column + 1
  With Intersect(Columns(UnusedColumn), ActiveSheet.UsedRange.EntireRow)
    .FormulaR1C1 = "=IF(RC4<>RC6,""X"","""")"
    .Value = .Value
    With Intersect(.SpecialCells(xlConstants).EntireRow, Columns("F"))
      .Interior.Color = RGB(156, 0, 6) 'Dark red background
      .Font.Color = RGB(255, 199, 206) 'Light red font color
    End With
    .Clear
  End With
End Sub

 

[hippiehacker]

Here is another macro which you can also consider...

Sub HighlightNonMatchingDFcells()
  Dim UnusedColumn As Long
  UnusedColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                 SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column + 1
  With Intersect(Columns(UnusedColumn), ActiveSheet.UsedRange.EntireRow)
    .FormulaR1C1 = "=IF(RC4<>RC6,""X"","""")"
    .Value = .Value
    With Intersect(.SpecialCells(xlConstants).EntireRow, Columns("F"))
      .Interior.Color = RGB(156, 0, 6) 'Dark red background
      .Font.Color = RGB(255, 199, 206) 'Light red font color
    End With
    .Clear
  End With
End Sub

i knew there was some faster code

 

[ChrisOK]

THANKS GREATLY to both/all 4 of you --- HOWEVER! 2 things:
The highlighting was supposed to be "Yellow" (and)

I found that HippieHacker's worked as long there were values -- but did not catch the variances where Col D was blank and Col E had a value.
Rick's caught the blanks and colorized them. (this was definitely important in this circumstance)

*The thing I forgot to mention was that I need it to by-pass header info and start at Row 4... Can this be easily incorporated?