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