Formül İçeren Hücreleri Bulma

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

Paylaşmayı unutmayın!
0 0 votes
Article Rating
Subscribe
Bildir
guest
0 Yorum
Inline Feedbacks
View all comments