textbox sayı formatı

[kemal turan]

Merhaba,
Forumumuzdaki ustadların çalışmalarından alıntılar yaparak bir haftalık emekle satış userformu oluşturdum.
Bir noktada çözüm bulamadım.
Sorun textbox sayı formatında!
textbox 193 ile başlayan net tutar textboxlarının ondalık kısmı 2 haneli göstermesini istiyorum.

Sizde "yani bu kadar emekten sonra bu sorunu nasıl çözemediniz diye" söylenebilirsiniz.
Formatı net tutar exit olayına bağladım.
doğru olaya bağlayamıyorum herhalde.
Birde bu çalışmada kısaltılabilecek bölümler varmı, bu konudada bakabilirseniz sevinirim.
Açıklama userformun üzerinde ayrıca yaptım.
Yardımlarınızı bekliyorum.
teşekkür ederim.

 

[kemal turan]

resimde hatalı olan kısım şeklinde işaretlenmiştir.

 

[kemal turan]

merhaba,
resimide anlaşılabilir hale getirdim
ürün seçimi işlemi listbox çift klik tir.

 

[kemal turan]

Merhaba,
Konuyu biraz daha anlaşılabilir hale geldi sanırım.
Aşağıdaki kod çalıştığında ;
textbox193 de sonuç bu şekilde görünüyor.166.666.666.666.667,00.
sonucun 1666,66 olarak görünmesi gerekiyor.
Teşekkür ederim.
Private Sub TextBox104_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ısk = (CDbl(TextBox102.Value) - CDbl(TextBox104.Value)) / CDbl(TextBox102.Value)
On Error Resume Next

TextBox193.Value = CDbl(TextBox80.Value) - (CDbl(TextBox80.Value) * ısk)
TextBox194.Value = CDbl(TextBox81.Value) - (CDbl(TextBox81.Value) * ısk)
TextBox195.Value = CDbl(TextBox82.Value) - (CDbl(TextBox82.Value) * ısk)
TextBox196.Value = CDbl(TextBox83.Value) - (CDbl(TextBox83.Value) * ısk)
TextBox197.Value = CDbl(TextBox84.Value) - (CDbl(TextBox84.Value) * ısk)
TextBox198.Value = CDbl(TextBox85.Value) - (CDbl(TextBox85.Value) * ısk)
TextBox199.Value = CDbl(TextBox86.Value) - (CDbl(TextBox86.Value) * ısk)
TextBox200.Value = CDbl(TextBox87.Value) - (CDbl(TextBox87.Value) * ısk)
TextBox201.Value = CDbl(TextBox88.Value) - (CDbl(TextBox88.Value) * ısk)
TextBox202.Value = CDbl(TextBox89.Value) - (CDbl(TextBox89.Value) * ısk)
TextBox203.Value = CDbl(TextBox90.Value) - (CDbl(TextBox90.Value) * ısk)
TextBox204.Value = CDbl(TextBox91.Value) - (CDbl(TextBox91.Value) * ısk)
TextBox205.Value = CDbl(TextBox92.Value) - (CDbl(TextBox92.Value) * ısk)
TextBox206.Value = CDbl(TextBox93.Value) - (CDbl(TextBox93.Value) * ısk)
TextBox207.Value = CDbl(TextBox94.Value) - (CDbl(TextBox94.Value) * ısk)
TextBox208.Value = CDbl(TextBox95.Value) - (CDbl(TextBox95.Value) * ısk)
TextBox209.Value = CDbl(TextBox96.Value) - (CDbl(TextBox96.Value) * ısk)
TextBox210.Value = CDbl(TextBox97.Value) - (CDbl(TextBox97.Value) * ısk)
TextBox211.Value = CDbl(TextBox98.Value) - (CDbl(TextBox98.Value) * ısk)
TextBox212.Value = CDbl(TextBox99.Value) - (CDbl(TextBox99.Value) * ısk)
TextBox213.Value = CDbl(TextBox100.Value) - (CDbl(TextBox100.Value) * ısk)
TextBox214.Value = CDbl(TextBox101.Value) - (CDbl(TextBox101.Value) * ısk)


TextBox193.Value = Format(TextBox193.Value, "0,000.00")
TextBox194.Value = Format(TextBox194.Value, "0,000.00")
TextBox195.Value = Format(TextBox195.Value, "0,000.00")
TextBox196.Value = Format(TextBox196.Value, "0,000.00")
TextBox197.Value = Format(TextBox197.Value, "0,000.00")
TextBox198.Value = Format(TextBox198.Value, "0,000.00")
TextBox199.Value = Format(TextBox199.Value, "0,000.00")
TextBox200.Value = Format(TextBox200.Value, "0,000.00")
TextBox201.Value = Format(TextBox201.Value, "0,000.00")
TextBox202.Value = Format(TextBox202.Value, "0,000.00")
TextBox203.Value = Format(TextBox203.Value, "0,000.00")
TextBox204.Value = Format(TextBox204.Value, "0,000.00")
TextBox205.Value = Format(TextBox205.Value, "0,000.00")
TextBox206.Value = Format(TextBox206.Value, "0,000.00")
TextBox207.Value = Format(TextBox207.Value, "0,000.00")
TextBox208.Value = Format(TextBox208.Value, "0,000.00")
TextBox209.Value = Format(TextBox209.Value, "0,000.00")
TextBox210.Value = Format(TextBox210.Value, "0,000.00")
TextBox210.Value = Format(TextBox210.Value, "0,000.00")
TextBox211.Value = Format(TextBox211.Value, "0,000.00")
TextBox212.Value = Format(TextBox212.Value, "0,000.00")
TextBox213.Value = Format(TextBox213.Value, "0,000.00")
TextBox214.Value = Format(TextBox214.Value, "0,000.00")
TextBox104.Value = Format(TextBox104.Value, "0,000.00")
End Sub

 

[Orion1]

Şunu deneyin.

TextBox193.Value = format(CDbl(TextBox80.Value) -(CDbl(TextBox80.Value) * ısk),"#,##0.00")

 

[kemal turan]

Evren hocam,
Sonucu 0,00 olarak gösterdi

 

[Orion1]

Evren hocam,
Sonucu 0,00 olarak gösterdi

5 numaralı mesajdaki kodu değiştirdim.Deneyiniz.

 

[kemal turan]

merhaba evren hocam,
kodun bu kısmını değiştirince oldu gibi
ısk = Format((CDbl(TextBox102.Value) - CDbl(TextBox104.Value)) / CDbl(TextBox102.Value), "#,##0.00")
Yardımlarınız teşekkür ederim

 

[Orion1]

merhaba evren hocam,
kodun bu kısmını değiştirince oldu gibi
ısk = Format((CDbl(TextBox102.Value) - CDbl(TextBox104.Value)) / CDbl(TextBox102.Value), "#,##0.00")
Yardımlarınız teşekkür ederim

Olduysa problem yok.
Kolay gelsin.

 

[kemal turan]

5 numaralı mesajdaki kodu değiştirdim.Deneyiniz.

evran hocam merhaba,
sonucu yine aynı verdi

 

[Orion1]

evran hocam merhaba,
sonucu yine aynı verdi

8 nolu mesajda oldu demiştiniz temin.

 

[kemal turan]

Merhaba Evren hocam,
Sizin çözümünüz oldu.Benim oldu dediğim olmadı.
0,00 çıkmasının sebebi "-" den sonra bir boşluk olması lazımmış.
şöyle (TextBox80.Value) - (CDbl(TextBox80.Value)
TextBox193.Value = format(CDbl(TextBox80.Value) -(CDbl(TextBox80.Value) * ısk),"#,##0.00")
yardımlarınız için çok teşekkür ederim.
Selametle kalınız.

 

[Orion1]

Merhaba Evren hocam,
Sizin çözümünüz oldu.Benim oldu dediğim olmadı.
0,00 çıkmasının sebebi "-" den sonra bir boşluk olması lazımmış.
şöyle (TextBox80.Value) - (CDbl(TextBox80.Value)
TextBox193.Value = format(CDbl(TextBox80.Value) -(CDbl(TextBox80.Value) * ısk),"#,##0.00")
yardımlarınız için çok teşekkür ederim.
Selametle kalınız.

Rica ederim.İyi çalışmalar.