Texboxa ondalık sayı?...

[MERDAG]

Texboxa hücrede yazılı olan kuruşlu para birimi aktarıyorum ama kuruşlu olunca hatalı yazıyor. Şu kodu yazdım TextBox3 = Format((TextBox3.Value), "##,# .00"" YTL.") Mesela 17,00 YTL yazınca 17,00 YTL yazıyor ama 17,50 YTL yazınca texboxa 175,00 YTL yazıyor. Bunu nasıl düzeltebilirim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox3 = Format((TextBox3.Value), "#,##0.00"" YTL.")

 

[Zeki Gürsoy]

Alternatif,

TextBox3 = FormatCurrency(TextBox3)

 

[MERDAG]

İlginiz için teşekkürler Sn.leventm ve anemos ama olmadı yine aynı ekte dosyayı gönderiyorum bi bakarsanız sevinirim.Birde userformu kapatınca dosya kapanmıyor başka bir excel dosyası açında diğer dosyada açılıyor.Tekrar teşekkürler

 

[MERDAG]

dosya ekte

 

[Zeki Gürsoy]

"TextBox3_Change" olayını tamamen silin.
"TextBox1_Change" i aşağıdaki ile güncelleyin.

Private Sub TextBox1_Change()
'TextBoxa girilen karakter uzunluğunu sınırlamak için'
TextBox1.MaxLength = 13
Set s1 = Sheets("stok")
If WorksheetFunction.CountIf(s1.[a:a], TextBox1) = 0 Then Exit Sub
sat = s1.[a1:a65536].Find(TextBox1).Row
TextBox2 = s1.Cells(sat, "b")
TextBox3 = FormatCurrency(s1.Cells(sat, "c"))
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Ytl Formatı için birde böyle deneyiniz.

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

 

[MERDAG]

Sn.anemos ilginiz için teşekkürler tam istediğim gibi oldu Yanlız TL yazısı nasıl çıkıyor onu öğrenebilirmiyim Birde userformu kapatıp başka excel sayfası açınca stok sayfası tekrar açılıyor bunu nasıl önleriz. Sn.V. Basic For Applications sizin kodda sadece kuruşu ayırıyor (17,5 YTL) ama tam oldumu sadece (17 YTL) yazıyor. ilginiz için tekrar teşekkürler....

 

[MERDAG]

Birde kod satırlarının açıklamalarını üstlerine yazabilirmisiniz kaynak olması açısından...

 

[Zeki Gürsoy]

"FormatCurrency", sayıyı para birimine çeviren fonksiyondur. Çevirirken bölgesel ayarlardaki bilgileri kullanır.