"birden fazla hücre boşsa" komutu çalışmıyor

[KONYA42]

Merhaba arkadaşlar,ekteki çalışma kitabıma bakabilir misiniz?Makro çalışmıyor.Teşekürler...

 

[Orion1]

A1:d26 aralığında hiç dolu hücre yoksa tamamı boşsa değerleri siler.Saçma bir kod.Zaten boşsa neyi silecen ki.Else 'den sonraki kodda ayni şeyi yapıyor.Ben bir şey anlamadım bu yazdığıız koddan.

Sub Dikdörtgen1_Tıklat()
'
' Dikdörtgen1_Tıklat Makro
' Makro KOLUKISA tarafından 19.06.2009 tarihinde kaydedildi.
'

'
    If WorksheetFunction.CountA(Range("A1:d26")) = 0 Then
    Range("A1:C14").ClearContents
    Range("A1").Select
    Else
    If WorksheetFunction.CountA(Range("A1:d26")) = 0 Then
    Exit Sub
    End If
    End If
End Sub

 

[KONYA42]

Sub Dikdörtgen1_Tıklat()
'
' Dikdörtgen1_Tıklat Makro
' Makro KOLUKISA tarafından 19.06.2009 tarihinde kaydedildi.
'

'
If WorksheetFunction.CountA(Range("A1:d26")) <> 0 Then
Range("A1:C14").ClearContents
Range("A1").Select
Else
If WorksheetFunction.CountA(Range("A1:d26")) = 0 Then
Exit Sub
End If
End If
End Sub

Yazdığınız kodu "<>" şeklinde değiştirdim hocam.Benim istediğim bu şekildeydi teşekür ederim.Yani boş değilse değerleri sil şeklinde.Aslında benim gönderdiğim ekli dosyanın koduda bu anlattığım şekilde.Yani "boş değilse değerleri sil"
Tabi ben daha araya mesaj kutusu filan ekleyeceğim.Örneğin;"Silinecek bişey bulunamadı" gibi.
Tekrar teşekür ederim hocam yazdığınız kod işime yarıyor.