Hata : Unable to get countif property of the Worksheet Function Class

[shairane]

Iyi Gunler,

Asagidaki kodlar,

runtime error 1004 : Unable to get countif property of the Worksheet Function Class

Hatasina neden oluyor. Nedenini bir turlu cozemedim.

Sub hesap()
Dim SOG200 As Range
Dim SOG250x1 As Range
Dim SOG250x2 As Range
Dim SOG150 As Range
Dim SOG500 As Range
Dim SOG0 As Range

Set SOG200 = Range("alan200")
Set SOG2501 = Range("alan250_1")
Set SOG2502 = Range("alan250_2")
Set SOG150 = Range("alan150")
Set SOG500 = Range("alan500")
Set SOG0 = Range("alan0")

sayi = WorksheetFunction.CountIf(SOG200, 0)
sayi = sayi + WorksheetFunction.CountIf(SOG2501, 0)
sayi = sayi + WorksheetFunction.CountIf(SOG2502, 0)
sayi = sayi + WorksheetFunction.CountIf(SOG150, 0)
sayi = sayi + WorksheetFunction.CountIf(SOG500, 0)
sayi = sayi + WorksheetFunction.CountIf(SOG0, 0)

MsgBox sayi * 1, 44

End Sub

Isin ilginc tarafi bu hata

sayi = WorksheetFunction.CountIf(SOG200, 0)

satirini normal bir sekilde atladiktan sonra

sayi = sayi + WorksheetFunction.CountIf(SOG2501, 0)

Satirinda meydana geliyor.

Bu arada kodlardaki alan200, alan250_1, alan250_2, alan150, alan500 isimleri, excelde belirli araliklara atanmis isimlerdir.

Bu hatanin sebebi ne olabilir?

 

[Recep İpek]

Normalde hata yok gibi görünüyor.

Fakat alan200, alan250_1.. şeklinde tanımladığınız alanlarda birleştirilmiş hücreler veya birden fazla satır/kolon olabilir.

 

[shairane]

evet tanimladigim alanlarda, calisma sayfasinin cok farkli yerlerinde birbirinden ayrik alanlar var.. bu durumda bu imkansiz mi oluyor? peki bu ayrik alanlari bir sekilde gruplamanin baska bir yolu var mi? (islem kolayligi acisindan)

 

[Recep İpek]

Küçük örnek bir dosya eklerseniz daha rahat inceleme fırsatı bulmuş oluruz.

 

[shairane]

Buyrun, ornek dosya degil de direkt dosyanin kendisini gonderiyorum.. HESAP butonuna bastiginizda hatayi gorebilirsiniz..