Textboxlardaki değer "" olunca çarpım sonucu hata

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
417
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
merhaba arkadaşlar. yaptığım bir çalışmada bazı noktalarda takıldım. yardımcı olursanız sevinirim.
form içinde normal ve diyetli texboxlarına rakam giriliyor ve alttaki texboxlarda işlem sonucu elde ettğim bilgileri deneme sayfası içerisinde işlem sonucunu ilgili kaydın karşısına gelecek şekilde eklmesi gerekiyor.
1. çarpım sonucu sonuç gerektiğinden texboxlardan herhangi biri boş geçtiğinde hata veriyor
2. hata olmadığı durumlarda bilgiyi aktarma sırasında sadece bir veriyi aktarabiliyorum.
bu iki sorun hakkında yardımlarınızı beliyorum.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,572
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

İlk sorunuz için aşağıdaki kodları kullanabilirsiniz.

Kod:
Private Sub TextBox25_Change()
    If TextBox25 = "" Then
    TextBox17 = ""
    TextBox18 = ""
    TextBox19 = ""
    TextBox20 = ""
    TextBox21 = ""
    Else
    Normal = TextBox25
    TextBox17.Value = TextBox9.Value * Normal
    TextBox18.Value = TextBox10.Value * Normal
    TextBox19.Value = TextBox11.Value * Normal
    TextBox20.Value = TextBox12.Value * Normal
    TextBox21.Value = TextBox13.Value * Normal
    End If
End Sub

Private Sub TextBox26_Change()
    If TextBox26 = "" Then
    TextBox27 = ""
    TextBox28 = ""
    TextBox29 = ""
    TextBox30 = ""
    TextBox31 = ""
    Else
    Diyet = TextBox26
    Normal = IIf(TextBox25 = "", TextBox25 = 0, TextBox25)
    TextBox27.Value = TextBox43.Value * Normal
    TextBox28.Value = TextBox44.Value * Normal
    TextBox29.Value = TextBox45.Value * Diyet
    TextBox30.Value = TextBox46.Value * Diyet
    TextBox31.Value = TextBox47.Value * Diyet
    End If
End Sub
İkinci sorunuz için ürünlerin adı birbiri ile tam olarak benzeşmediği için problem yaratabilir. Örnek olarak "deneme" isimli sayfanızda ürün adı "Et Dana" olarak geçerken "Sayfa8" de "Dana Eti" olarak geçmektedir. Bunları eşleştirdiğiniz takdirde istediklerinizin çözümü daha kolay olacaktır.
 

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
417
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
Selamlar,

İlk sorunuz için aşağıdaki kodları kullanabilirsiniz.

İkinci sorunuz için ürünlerin adı birbiri ile tam olarak benzeşmediği için problem yaratabilir. Örnek olarak "deneme" isimli sayfanızda ürün adı "Et Dana" olarak geçerken "Sayfa8" de "Dana Eti" olarak geçmektedir. Bunları eşleştirdiğiniz takdirde istediklerinizin çözümü daha kolay olacaktır.
sorun sadece bahsettiğiniz şekilde ürün adı ise o farketmeden yazdığım şeydi. ürün adları eşit olacak. yani sonradan form ile giriş yapacağım.
ilginiz için teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,572
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ayrıca formdan girdiğiniz bütün ürünler "deneme" sayfanızda mevcutmu ?
 

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
417
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
Selamlar,

Ayrıca formdan girdiğiniz bütün ürünler "deneme" sayfanızda mevcutmu ?
evet usta formdan gireceğim ürünlerin tamamı deneme sayfasında olmak zorunda.
 
Üst