hesaplamalarda virgül sorunu

[bulentc76]

Herkese nerhaba
Cari hesapları girip listview yardımıyla bakiye raporu alıyorum ama virgül yüzünden yanlış hesaplıyor.Seçeneklerden ayarlamaya çalıştım ama olmadı.İlgilenirseniz çok sevinirim.

Ekteki dosyada açıklamalar sayfasında userform 40 bakiye raporunu çağırıyor.Verileri ise CARİ HESAP GİRİŞ ÇIKIŞLARI sayfasında bir form yardımıyla giriyorum.

Yradımcı olacaklara şimdiden teşekkürederim...

 

[Tarkan VURAL]

Ben denedim gayet güzel raporluyor. Userform11'den giriyorsunuz herhalde, bu formdaki textbox kodlarının formatlarında sonlarında yazan YTL eklerini kaldırarak dener misiniz ? Bakalım bu şekilde sayı formatı uygun olacak mı ?

 

[Seyit Tiken]

Formda kullandığınız bir kod bu soruna yolaçıyor olabilir. Form açılıp kapandıktan sonra, imleç bile kilitleniyor.

 

[bulentc76]

evet formatları kaldırınca oldu ama 3 haneden sonrasını ayırmıyor.Diyelim ki formatları yeniden yazdım ve sadece ytl kısmını kaldırdım bu seferde kullanıcı kuruşları yazmak için sayılar bölümündeki del tuşunu virgül atmak için kullanıyor.Yine bu formatıda tanımıyor.Ne yapacağımı şaşırdım.
Sizin dediğiniz gibi çalışıyor fakat 3 rakamdan sonra ayraç yok
İlginize teşekkürederim

 

[bulentc76]

bu arada yeni ytl eklentisi yüklü bundan yapabilirmi acaba ...

 

[Tarkan VURAL]

Kullanıcı herhangi bir ayraç koymadan textbox otomatik olarak mı yapsın diyorsunuz ?

 

[bulentc76]

textbox kuruş hanesini ayıramazki
evet 35246 yı 35.246 olarak yazabilir ama kuruşu yani
35.246,18 bunu kullanıcı 3524618 yazarsa nasıl olacak..

 

[Tarkan VURAL]

Userform34 kodlarını aşağıdaki gibi değiştirip dener misiniz ?

Private Sub ComboBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox16.Value = Val(TextBox7.Value) * Val(ComboBox8.Value)
TextBox18.Value = (((Val(TextBox16.Value) * Val(TextBox17.Value)) / 100) - Val(TextBox16.Value)) * -1
TextBox19.Value = (Val(TextBox18.Value) * Val(TextBox23.Value) / 100)
TextBox19.Value = ((Val(TextBox18.Value) * Val(TextBox23.Value)) / 100)
'ComboBox8 = Format(ComboBox8, "#,##0.00 YTL")
TextBox16 = Format(TextBox16, "#,##0.00 YTL")
TextBox18 = Format(TextBox18, "#,##0.00 YTL")
TextBox19 = Format(TextBox19, "#,##0.00 YTL")
TextBox20 = Format(TextBox20, "#,##0.00 YTL")
End Sub

 

[bulentc76]

ListView1.ListItems(i).SubItems(5) = Format(ListView1.ListItems(i).SubItems(5), "#,##0.00")
ListView1.ListItems(i).SubItems(6) = Format(ListView1.ListItems(i).SubItems(6), "#,##0.00")
ListView1.ListItems(i).SubItems(7) = Format(ListView1.ListItems(i).SubItems(7), "#,##0.00")

bu kodlarla sorunu çözdüm ama 7. sütunda bakiye sonunna a yada b yazdığı için olmadı bu kodu userformda
Private Sub ComboBox5_Change()
altına yazdım.Ama dediğim gibi 7. sütun olmadı.

 

[bulentc76]

Sayın Tarkan Vural bu kodlarda fark nerede anlamadım...

Private Sub ComboBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox16.Value = Val(TextBox7.Value) * Val(ComboBox8.Value)
TextBox18.Value = (((Val(TextBox16.Value) * Val(TextBox17.Value)) / 100) - Val(TextBox16.Value)) * -1
TextBox19.Value = (Val(TextBox18.Value) * Val(TextBox23.Value) / 100)
TextBox19.Value = ((Val(TextBox18.Value) * Val(TextBox23.Value)) / 100)
'ComboBox8 = Format(ComboBox8, "#,##0.00 YTL")
TextBox16 = Format(TextBox16, "#,##0.00 YTL")
TextBox18 = Format(TextBox18, "#,##0.00 YTL")
TextBox19 = Format(TextBox19, "#,##0.00 YTL")
TextBox20 = Format(TextBox20, "#,##0.00 YTL")
End Sub

 

[Tarkan VURAL]

Combobox8

başına tırnak koydum bu satırı okumasın diye, buradan fiyat seçilip çıkıldığında fazladan sıfır attığını görmüştüm.