textbox'a sonradan girilen rakam hakkında

[mertmustafa01]

Sayın Üstatlarım;

bir textboxa1 sonradan girilecek bir rakamı toplam aldığım textbox2 den % hesabı olarak düşülecektir.
Örnek: textbox2 toplam 10.000,00 ytl
textbox1(10) girildi 1.000,00 ytl
textbox1(20) girildi 2.000,00 ytl
gibi olacak

yardım edermisiniz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu textbox1e yazın. İmleç textbox1den ayrıldığında çalışır.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = TextBox2 * TextBox1 / 100
End Sub

 

[mertmustafa01]

Aşağıdaki kodu textbox1e yazın. İmleç textbox1den ayrıldığında çalışır.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = TextBox2 * TextBox1 / 100
End Sub

leventm teşekkürler ilgine bu işlem tamam fakat.!
asıl işlem bu: burda

Private Sub TextBox145_Exit(ByVal Cancel As MSForms.ReturnBoolean)
textbox52=format(cdbl(textbox53)*cdbl(textbox145)/100,"###0,00") 

textbox145 hiç birşey girilmez ise textbox53 ü textbox54 yazmasını istiyorum. yardımların için teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub TextBox145_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if textbox145<>"" then 
textbox52=format(cdbl(textbox53)*cdbl(textbox145)/100,"###0,00") 
else
textbox52=format(cdbl(textbox54)*cdbl(textbox145)/100,"###0,00") 
end if
end sub

 

[mertmustafa01]

Sevgili Leventm;

hata verdi küçük bir örnek hazırladım. buna yazarsan sevinirim.

 

[Skorpiyon]

Sayın mertmustafa01,

Levent Hocam'ım aşağıdaki kodunu bu şekilde düzelterek denermisiniz.

Private Sub TextBox145_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if textbox145="" then
textbox52=format(cdbl(textbox53)*cdbl(textbox145)/100,"###0,00")
else
textbox52=format(cdbl(textbox54)*cdbl(textbox145)/100,"###0,00")
end if
end sub