Makro ile Formülsüz Hücre Tesbiti

[kulge]

Arkadaşlar merhaba..Yine sizden bir şey isteyecegim umarım kızmassınız.Arkadaşlar ben çalışma kitabının her açılışında msgbox ile bana belirledigim alanda kaç tane hücrenin formülsüz oldugunu bildirsin isim vererek (a1,b1,c1) hücrelerinin formülsüz oldugunu göreyim gb...Yardımlarınız için şimdiden Teşekür ederim.

 

[hamitcan]

Sub formulsuz_hucreler()
    For Each hcr In [a1:a5].SpecialCells(xlCellTypeConstants, 23)
    h = h & vbCrLf & hcr.Address
    Next
    MsgBox h, , "Formülsüz Hücrelerin Adresleri"
End Sub

 

[kulge]

Hamitcan Arkadaşım Teşekürler..Yanlız şöyle bir deneme yaptım ekte mevcuttur tam tersi formüllü hücreleri veriyor.Bi bakarsan sevinirim Teşekürler..Formülsüz hücreleri vermesi gerekiyor...

 

[kulge]

Hamitcan Arkadaşım benden önce sen düzeltme yapmışsın Teşekürler ellerine saglık..