overflow hatası

[Fenomen]

If gMFyt.Value = "" Then GoTo islemler
If gMKareFyt.Value = True Then
If gMEn.Value = "" Then GoTo 17
If gMEn.Value = True Then GoTo 18
End If
17 MsgBox "hata"
Exit Sub
18 gMFyt = gMMKareFyt * "500" / ("70000" / gMEn.Value)
Exit Sub

burada herşey normal ama ben bundan sonra işlemin devam etmesini istiyorum exit sub u kaldırınca overflow hatası veriyo bu hatayı nasıl önlerim ve işlemi nasıl devam ettirebilirim yardım ederseniz sevinirim iyi çalışmalar


exit sub ı işlemlerden sonra koyunca oldu :kafa:

 

[ALPEN]

If gMFyt.Value = "" Then GoTo islemler
If gMKareFyt.Value = True AND gMEn.Value = True then
gMFyt = gMMKareFyt * 500 / (70000 / gMEn.Value)
else
msgbox "hata"
end if

kodun tamamını göremediğim için yukarıdaki gibi değiştirirseniz belki düzelir. ancak kod biraz mantıksız görünüyor.

gMKareFyt.Value = True ve If gMEn.Value = True

ile gmkarefyt ve gmen in bir boolean (evet/hayır) değer olduğunu anlıyoruz. ve 1 in çarpma işeminde etkisiz eleman aynı şekilde bölme işleminde eğer bölen ise yine etkisiz eleman olduğunu bildiğimizden

gMFyt = gMMKareFyt * 500 / (70000 / gMEn.Value)
işlemi

gMFyt = 1 * 500 / (70000 / 1)

olacağından

gMFyt = 500 / 70000

yaparsanızda hiçbir fark olmaz.

ayrıca

bir sayıyı matematiksel bir işlemin içinde kullanmak istiyorsanız tırnak içine alamazsınız.

yani1 ile 15 i toplamak istiyorsanız

x = "1" + "15"

yerine

x= 1 + 15 kullanmalısınız.

çalışmanızdan bir örnek gönderirsenin daha çok yardımcı olunacaktır.

 

[Fenomen]

gMMKareFyt gMen Değişken içindeki sayılar değiştikçe formül ona göre işlem yapıyo
yardımcı olduğun için teşekkürler