VBA to stop macro based on Conditional Formatting fill

[xrobc]

Hi

I have a sheet with the following data in columns A, C and D (Column B is empty).

A B C D Qty UMT UMS 3 EA UN 4 UN UN 1.5 UN UN 1 UN UN 0 UN BT 0 UN CN 1 UN UN 1.5 UN UN <tbody> </tbody>

<tbody>
</tbody>

I have conditional formatting to apply yellow fill when, A2 Does not Equal 0 and C2 does not equal D2, =IF(AND(C2<>D2,A2<>0)=FALSE,FALSE,TRUE).

I am looking for some help to write some VBA code to display a message and stop the macro when the above formula is true for any Row in Column C.

Please can you help?

 

[xrobc]

Sorted this one myself in the end with the help of some other code I got from a previous post.

Sub CheckUM()

    Dim v, i As Long
    v = Range("G2:J" & Range("F" & Rows.Count).End(xlUp).Row).Value
    For i = 1 To UBound(v)
     If v(i, 3) <> v(i, 4) And v(i, 1) > 0 Then
             'Check for UM conflicts
              MsgBox ("You have Unit of Measure Confilcts." & vbNewLine & "Please Check and resolve before continuing"), vbCritical
              Range("G2:J2").Resize(UBound(v)).Value = v
              Exit Sub
        End If
    Next i
    Range("G2:J2").Resize(UBound(v)).Value = v


End Sub

This is the full version and not the version from where I was trying to work it out (so the columns are different)

I knew that there had to be a table involved somewhere, but could not figure it out yesterday.