TextBox ta toplam alma hatası?

[s.savas]

İyi geceler arkadaşlar.
Ekteki belgenin Sayfa2!F23 hücresinde bulunan

=(((F20+F21)*0,03)+(F20+F21))/F33/F34

formülü ile aldığım sonucu TextBox17 de almayı başaramadım.

Aşağıdaki kod satırında hata mesajı alıyorum.

TextBox16.Text = ((((CDbl(TextBox14) + CDbl(TextBox16)) * CDbl(TextBox6)) + CDbl(TextBox14) + CDbl(TextBox16)) / CDbl(TextBox7) / CDbl(TextBox8))

Yardımlarınızı rica ediyorum.

 

[Ergün Güler]

Selam,
TextBox17 de almayı başaramadım. diyorsunuz ancak verdiğiniz kod Textbox16 için. Aynı zamanda kodlarda döngü var.
kırmızı alanları inceleyiniz.

[COLOR="Red"]TextBox16.Text [/COLOR]= ((((CDbl(TextBox14) + CDbl(TextBox16)) * CDbl(TextBox6)) + CDbl(TextBox14) + CDbl([COLOR="Red"]TextBox16[/COLOR])) / CDbl(TextBox7) / CDbl(TextBox8))

Ancak yine de bahsettiğiniz hata Cdbl(Textbox6) 'dan kaynaklanıyor. textbox6'yi siz zaten önceden metin yapıyorsunuz. yani % 3
cdbl(% 3) . sayıya çeviremiyor. Bu kısımda hata veriyor bence aşağıdaki gibi yapınız. kırmızı alanı inceleyiniz.

TextBox17 = ((((CDbl(TextBox14) + CDbl(TextBox16)) * [COLOR="Red"]CDbl(Sheets("Sabitler").Range("E7") * 100[/COLOR])) + CDbl(TextBox14) + CDbl(TextBox16)) / CDbl(TextBox7) / CDbl(TextBox8))

 

[s.savas]

Ergün hocam teşekkür ederim.
Haklısınız Textbox17 ye yazılması gereken kodu Textbox16 ya yazmışım.
Fakat sizin yazdığınız kod, excel deki formüle göre 111,58 TL çıkması gereken sonucu 326.083.333.333.333,00 TL gibi muazzam bir sonuç veriyor.

Private Sub TextBox15_Change()
TextBox16.Text = CDbl(TextBox15) * CDbl(TextBox7) & " TL"
TextBox16 = Format(TextBox16, "#,##0.00") & " TL"
[COLOR="Red"]TextBox17 = ((((CDbl(TextBox14) + CDbl(TextBox16)) * CDbl(Sheets("Sabitler").Range("E7") * 100)) + CDbl(TextBox14) + CDbl(TextBox16)) / CDbl(TextBox7) / CDbl(TextBox8))[/COLOR]TextBox17 = Format(TextBox17, "#,##0.00") & " TL"
End Sub

 

[s.savas]

Merhaba arkadaşlar
Yukarıdaki sorunu aşağıdaki mavi renkli kodla çözdüm. Ancak TextBox15'in change eventinde çalışan TextBox3,TextBox4 ve TextBox5'i TextBox2'in change eventine alınca Run-time error '13': Type mismatch hatasını alıyorum.

Private Sub TextBox15_Change()
TextBox16.Text = CDbl(TextBox15) * CDbl(TextBox7)
TextBox16 = Format(TextBox16, "#,##0.00") & " TL"
TextBox17.Text = CDbl(TextBox14) + CDbl(TextBox16)
TextBox17 = Format(TextBox17, "#,##0.00") & " TL"
[COLOR="Blue"]TextBox18.Text = ((((CDbl(TextBox17) * CDbl(TextBox6)) / 100) + CDbl(TextBox17)) / CDbl(TextBox7) / CDbl(TextBox8))[/COLOR]
TextBox18 = Format(TextBox18, "#,##0.00") & " TL"
TextBox3.Text = (CDbl(TextBox12) * CDbl(TextBox19)) / 100
TextBox3 = Format(TextBox3, "#,##0.00") & " TL"
TextBox4.Text = (CDbl(TextBox12) * CDbl(TextBox20)) / 100
TextBox4 = Format(TextBox4, "#,##0.00") & " TL"
TextBox5.Text = (CDbl(TextBox12) * CDbl(TextBox21)) / 100
TextBox5 = Format(TextBox5, "#,##0.00") & " TL"
End Sub

 

[Ergün Güler]

Merhaba arkadaşlar
Yukarıdaki sorunu aşağıdaki mavi renkli kodla çözdüm. Ancak TextBox15'in change eventinde çalışan TextBox3,TextBox4 ve TextBox5'i TextBox2'in change eventine alınca Run-time error '13': Type mismatch hatasını alıyorum.

Private Sub TextBox15_Change()
TextBox16.Text = CDbl(TextBox15) * CDbl(TextBox7)
TextBox16 = Format(TextBox16, "#,##0.00") & " TL"
TextBox17.Text = CDbl(TextBox14) + CDbl(TextBox16)
TextBox17 = Format(TextBox17, "#,##0.00") & " TL"
[COLOR="Blue"]TextBox18.Text = ((((CDbl(TextBox17) * CDbl(TextBox6)) / 100) + CDbl(TextBox17)) / CDbl(TextBox7) / CDbl(TextBox8))[/COLOR]
TextBox18 = Format(TextBox18, "#,##0.00") & " TL"
TextBox3.Text = (CDbl(TextBox12) * CDbl(TextBox19)) / 100
TextBox3 = Format(TextBox3, "#,##0.00") & " TL"
TextBox4.Text = (CDbl(TextBox12) * CDbl(TextBox20)) / 100
TextBox4 = Format(TextBox4, "#,##0.00") & " TL"
TextBox5.Text = (CDbl(TextBox12) * CDbl(TextBox21)) / 100
TextBox5 = Format(TextBox5, "#,##0.00") & " TL"
End Sub

Selam,
Ne demek istediğinizi anlayamadım. Ancak, Ben sırayla veri girdim hata vemedi. Tavsiyem, kodlar ile sadece sırasıyla girilmesine izin veriniz.
Asıl tavsiyem şu olabilir;
texbox'lar ile 4 işlem yapmak yerine kullanıcı tanımlı sayı değerleri oluşturun. Bunların üzerinden yapınız Ben böyle yapıyorum.
Mesela;

TextBox1.Value = Sheets("Sabitler").Range("E2").Value
TextBox1.Value = Format(CDbl(TextBox1.Value * 1), "#,##0.00")

yerine

 Dim bau as Long 'Brüt Asgari Ücret
bau = Cdbl(Sheets("Sabitler").Range("E2"))
TextBox1 = format(bau, "#,##0.00")

Long -2,147,483,648 ila 2,147,483,647 arası sayıları içerir. Küsüratlı sayıları içermiyor diye biliyorum. Bunun için
Kod Düzenleyici sayfada iken Object Browser'dan arama yapıp yardım menülerini inceleyiniz.