Sub TutarsizBul()
Dim hcr As Range
For Each hcr In ActiveSheet.UsedRange
If hcr.Errors(xlInconsistentFormula).Value Then
hcr.Interior.ColorIndex = 6
Else
hcr.Interior.ColorIndex = xlNone
End If
Next hcr
End Sub