Aşağıda ki kodu inceleyin. Formül içeren yada içermeyen tüm hücreleri kolaylıkla bulacağınız bir kod.
Sub FORMULTARAMA()
Dim ws As Worksheet
Dim son As Integer
Set ws = Sheets("Sayfa1")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To son
If ws.Range("e" & i).HasFormula = False Then
ws.Range("e" & i).Interior.ColorIndex = 3
End If
Next
End Sub