#SAYI Sorunu VBA çözümü

[Deidara]

Merhaba,

Bir tablom var;
A1 Hücresini B1'e bölüyorum. Sonuç sıfır çıkarsa 0, çıkmama ihtimalinde ise bölüm sonucunu yazdırıyorum. Fakat B1 hücresi bazen 0'a dönüşebildiği için #SAYI/0! hatası ile karşılaşıyorum. 0'a bölünürse bu hata çıkıyormuş. Bende VBA ile yapayım orda bu hata çıkmaz diye düşündüm ama bir türlü yapamadım.

if
range ("a1"/"b1") = 0 then
range ("c1") = 0
else
range ("c1") = "a1"/"b1") gibi bir çok formül denedim ama vba bilgisi olmadığı için beceremedim.

Kod yapısı için İngilizce veya Türkçe kaynak da bulamadım açıkçası.

Yardım rica edebilir miyim ?

 

[uzmanamele]

Merhaba

Bu şekilde deneyiniz.

Sub sayıhatası_1()
On Error GoTo 10
[C1] = [A1] / [B1]
Exit Sub
10:
[D1] = [A1] * [B1]
End Sub

Sub sayıhatası_2()
On Error Resume Next
[C1] = [A1] / [B1]
End Sub

 

[Korhan Ayhan]

Bu excelde bir kuraldır. İster formülle ister vba ile yapın bir değeri sıfıra bölerseniz bu hatayı alırsınız.

Formül olarak aşağıdaki gibi kullanabilirsiniz.

=EĞERHATA(A1/B1;0)

 

[Deidara]

Selam,
@uzmanamele hocam çalışıyor ama 0 a bölündüğü durumlarda 0 çıkması gerekiyorken 1 gösteriyor.

Teşekkür ederim @Korhan Ayhan

 

[YUSUF44]

Selam,
@uzmanamele hocam çalışıyor ama 0 a bölündüğü durumlarda 0 çıkması gerekiyorken 1 gösteriyor.

Teşekkür ederim @Korhan Ayhan

0'a bölündüğünde 0 çıkmaz. Matematiksel olarak 0'a bölünme diye bir şey yoktur.

 

[uzmanamele]

Selam,
@uzmanamele hocam çalışıyor ama 0 a bölündüğü durumlarda 0 çıkması gerekiyorken 1 gösteriyor.

Teşekkür ederim @Korhan Ayhan

Merhaba
Önceki verilerin sonucu 1 çıkmıştır, silmeden tekrar bölme işlemi yapıyorsunuz ve sonucu yazmadan makrodan çıktığı için sonuç 1 çıktı sanıyorsunuz.

Meraklısına: Neden Bir Sayıyı 0’a Bölemiyoruz?