Runtime error 6 hatası

[necoo14]

Merhabalar
Öncelikle herkese iyi günler dilerim. Excel VBAda yaklaşık 1 haftalık olduğumu belirteyim.
Nu1 = (Ch1 * (Re1 ^ n1) * (UserForm1.TextBox11 ^ 0.33)) * (UserForm1.TextBox15 ^ 0.17) formülünde run time error6 hatası çıkmaktadır. Nerdeyse tüm veri tiplerini kullanarak Nu1in tipini değiştirdim ama hala hata devam ediyor. Yardımcı olabilecekler varsa şimdiden teşekkür ederim.

 

[Suskun]

Merhaba,
"Taşma" hatası, bir değişkene (veya özelliğe vb.) bir sayı koymaya çalıştığınız ve değişkenin veri türü bu kadar büyük sayılara yada sayıya izin vermediği anlamına gelir.

Ör. Tamsayılara yaklaşık 32K ya kadar değer atayabilirsiniz. Bundan yüksek değerde hata verir. Yada metin sayısal değerler olarak Kullanıyorsunuzdur. (UserForm1.TextBox11.Value ^ 0.33 gibi kullanın yada TextBox değerlerini değişkenlere atayarak kullanın) . Değişkenler hakkında değerleri görmeden fazla tahmin yürütmek zor.

 

[necoo14]

Öncelikle yardımınız için teşekkürler
Bu denklemin sonucu yaklaşık 185,8 civarı bişey çıkıyor. Büyük ihtimalle virgülden sonra çok rakam var ondan dolayı hata veriyor.
Dim Nu1 as byte Dim Nu1 as integer Dum Nu1 as Long diye hep yazdım denklemden önce bunları ama yine de hata veriyor.
UserForm1.TextBoxları bundan önceki denklemlerde de kullandım ama herhangi bir sıkıntı yaratmadı ondan olduğunu zannetmiyorum tabi siz daha iyi biliyosunuzdur daha bu konularda yeniyim ben

 

[Haluk]

TextBox'lardaki sayılarda ondalık ayracı olarak virgül yerine nokta kullanın.

.

 

[necoo14]

TextBox'lardaki sayılarda ondalık ayracı olarak virgül yerine nokta kullanın.

.

Öncelikle cevabınız için teşekkür ederim. Öyle yapınca cevaplarım yanlış çıkıyor

 

[Korhan Ayhan]

Dim Nu1 As Double olarak deneyiniz.

 

[necoo14]

Dim Nu1 As Double olarak deneyiniz.

Cevabınız için teşekkür ederim ama işe yaramadı maalesef
Eğer izniniz olursa dosyamı sizin için atsam inceleme firsatınız var mıdır

 

[Korhan Ayhan]

Bu durumda örnek dosyanızı paylaşınız. Deneyerek cevap verelim.

Harici dosya barındırma sitelerine yükleyip linkini paylaşabilirsiniz.

 

[necoo14]

https://disk.yandex.com.tr/d/mEvHtyBBG0i-SA?w=1
buyrun

 

[Korhan Ayhan]

Nokta-virgül sorunu var...

Nu1 = Ch1 * (Re1 ^ Replace(n1, ".", ",")) * (UserForm1.TextBox11 ^ 0.33) * (UserForm1.TextBox15 ^ 0.17)

Diğer satırlarda da aynı sorun var. Hata veren tüm satırları bold yaptığım bölüm gibi düzelterek sonuca gidebilirsiniz.

 

[necoo14]

Nokta-virgül sorunu var...

Nu1 = Ch1 * (Re1 ^ Replace(n1, ".", ",")) * (UserForm1.TextBox11 ^ 0.33) * (UserForm1.TextBox15 ^ 0.17)

Diğer satırlarda da aynı sorun var. Hata veren tüm satırları bold yaptığım bölüm gibi düzelterek sonuca gidebilirsiniz.

Çook teşekkür ederim sizden Allah razı olsun sonunda çözüldü tekrardan teşekkür ederim.