Textbox format

[sbayyigit]

arkadaşlar bu texbox formatıyla yine başım dertte,
örnekteki form üzerine gelen değerleri bir türlü tutturamadım. yapmak istediğim şey form açıldıktan sonra ücret kısmındaki yani textbox2 deki değeri baz alarak textbox3 içerisine 000.000,00(örnek1.234,40) olarak yazdırmak istiyorum.
yani
textbox3.value=(textbox2*12*75/10000)+10 olması gerekiyor.
ama format da 000,00 olması gerekiyor. saygılar...

 

[Kemal Demir]

Sn.sbayyigit

Aşagıdaki Kodu deneyebilirsiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(TextBox3.Value, " #.00 ")
End Sub

Umarım İş Görür.

 

[sbayyigit]

Sn.sbayyigit

Aşagıdaki Kodu deneyebilirsiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(TextBox3.Value, " #.00 ")
End Sub

Umarım İş Görür.

ilgin için teşekkürler.
fakat
Private Sub TextBox2_Change()
TextBox3.Value = (TextBox2.Value * 12 * 75 / 10000) + 10
End Sub

burada bu işlemin sonucu bir türlü gerçek sonucu vermiyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub TextBox2_Change()
TextBox3.Value = Format((TextBox2.Value * 12 * 75 / 10000) + 10, "#,##0.00")
End Sub

 

[sbayyigit]

Aşağıdaki gibi deneyin.

Private Sub TextBox2_Change()
TextBox3.Value = Format((TextBox2.Value * 12 * 75 / 10000) + 10, "#,##0.00")
End Sub

ustam ne yazıkki sonuç doğru çıkmıyor.acaba sorun bende mi?

 

[Levent Menteşoğlu]

Doğru çıkmıyor derken neyi kasdediyorsunuz? hesaplama sonucunumu? eğer öyle ise ilk mesajınızda +12, sonrakinde +10 ilave etmişsiniz bunu bir kontrol edermisiniz.

 

[sbayyigit]

usta ilginiz için teşekkürler. fakat ben formülü değiştirsem bile olması gereken sonuçtan çok farklı bir sonuç geliyor. normalde 1 ile çarparsam aynı somucu vermesi gerekirken yine aynı sonucu vermiyor. örneği incelerseniz bana hak vereceksiniz.

 

[Levent Menteşoğlu]

Çıkması gereken ve çıkan ile ilgili bir örnek verirmisiniz.

 

[Kemal Demir]

Sn.sbayyigit

Aşagıdaki Kodu deneyebilirsiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format((TextBox2.Value*1*12*75/10000)+12, "#,##0.00")
End Sub

Umarım İş Görür.

Sn.Ustad Konu ile ilgileniyor ama bende birşeyler ilave etmek istedim.Başta verdiğim cevabın eksik oldugunun farkına vardım.Çok Özür dilerim.Umarım İş Görür.

 

[sbayyigit]

ornek:
neşe baş
çıkması gereken sonuç:185,65
çıkan sonuç:1.766,17

arif gedik

çıkması gereken sonuç:152,34
çıkan sonuç:14.244,22

 

[sbayyigit]

ilgili tüm arkadaşlara sonsuz teşekkürler. sorunumu başka bir yöntem ile hallettim.önce textbox2 değerini herhangi bir hücreye atadım. daha sonra bir altındaki hücrede sonucu formül ile buldum. ve bulunan hazır değeri textbox3 içerisine aldırdım. herkese teşekkürler...