Toplama yapılacak aralıkta veri yoksa hata veriyor

[sdegirmenci]

Merhaba;

Range("C133") = WorksheetFunction.Sum(Range("C97:C121"))
Kodunda ("C97:C121") aralığında toplanacak sayı bulamazsa hata kodu vermekte, Eğer bu aralıkta "0" dan büyük sayı bulamazsa "C133" hücresine "0" yazsın. Şimdiden ilginize teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Kodu boş excel sayfasında çalıştırdığımda hiçbir hata mesajı almadım. Sizin uyguladığınız sayfada belirttiğiniz hücre aralığında ne tarz veriler bulunmaktadır.

 

[sdegirmenci]

Sayın Korhan AYHAN Hocam
İlginize çok teşekkür ederim. Dosyamı 1. mesajıma ekliyorum üzerinde açıklama mevcut.

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz dosyada belirttiğiniz böümde düşeyara formülü uygulanmış. Sorduğunuz soruyla bir bağ kuramadım.

Eğer amacınız düşeyara formülü hatalı sonuç ürettiğinde hücredeki sonucun sıfır çıkması ise aşağıdaki şekilde formülünüzü kurgulayabilirsiniz.

=EĞER(EHATALIYSA([COLOR=red]FORMÜLÜNÜZ[/COLOR]);0;[COLOR=red]FORMÜLÜNÜZ[/COLOR])

Siz uygularken kırmızı bölümlere düşeyara formülünüzü yazınız.

 

[sdegirmenci]

Sayın Korhan AYHAN Hocam;
Tesbitiniz doğru;Kodun hata vermesi formülün hata vermesinden kaynaklanıyor.İlginize çok teşekkür ediyorum.İşleriniz kolay gelsin.