Virgülden sonra değer giremiyorum.

[ememiks]

Merhaba.Benim sorunum şöyle;Ekteki dosyada "Birim Fiyatı" ve "Ödenen" kısımlarına 1.258,65 şeklinde sayı giremiyorum.Gerekli yerlerdeki TextBox6.Text = FormatNumber(TextBox6.Text, 2) ifadesini kaldırdığım zaman girebiliyorum fakat bu seferde çarpım işleminde virgülden sonrasını hesaba katmıyor.Ve "Toplam Borç Bakiye" "Toplam Alacak Bakiye" kısımlarında toplama işini yanlış yapıyor, resmen sapıtıyor.

İkinci sorunum ise kodlara

ActiveWorkbook.Save
Columns("E:J").Select
Selection.NumberFormat = "0.00"
Range("A1").Select

kodu eklenmiş olmasına rağmen "çıkış" tuşuna bastıktan sonra çalışma kitabında sayılar metin olarak gözüküyor diye hata veriyor.3 gündür uğraşıyorum, yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

Birinci sorunuz textboxların içine uyarlayın.
Private Sub TextBox1_Change()
Dim a
a = Replace(TextBox1, ",", "")
a = Replace(a, ".", "")

If IsNumeric(a) = False Then
TextBox1.Value = "0,00"
ElseIf a < 10 Then
TextBox1 = "0,0" & a * 1
ElseIf a < 100 Then
TextBox1 = "0," & a * 1
ElseIf a < 1000 Then

If Mid(a, 1, 1) = 0 Then
TextBox1 = Mid(a, 2, 1) & "," & Right(a, 2)
End If

If Mid(Right(TextBox1, 2), 1, 1) = "," Then
TextBox1 = Mid(a, 1, 1) & "," & Right(a, 2)
End If

If TextBox1.Value Like "*,*" = False Then
TextBox1 = Mid(a, 1, 1) & "," & Right(a, 2)
End If

ElseIf a < 10000 Then
TextBox1 = Mid(a, 1, 2) & "," & Right(a, 2)
ElseIf a < 100000 Then
TextBox1 = Mid(a, 1, 3) & "," & Right(a, 2)
ElseIf a < 1000000 Then
TextBox1 = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "," & Right(a, 2)
ElseIf a < 10000000 Then
TextBox1 = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "," & Right(a, 2)
ElseIf a < 100000000 Then
TextBox1 = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "," & Right(a, 2)
ElseIf a < 1000000000 Then
TextBox1 = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "." & Mid(a, 5, 3) & "," & Right(a, 2)
ElseIf a < 10000000000# Then
TextBox1 = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "." & Mid(a, 6, 3) & "," & Right(a, 2)
Else
TextBox1 = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "." & Mid(a, 7, 3) & "," & Right(a, 2)
End If

End Sub
&#304;kinci sorunuz ara&#231;lar se&#231;enekler hata denetiminden say&#305; metin olarak saklans&#305;n kutucu&#287;undaki i&#351;areti kald&#305;r&#305;n.

 

[N.Ziya Hiçdurmaz]

Dosya

Textbox formatı revize edilmiş.

 

[ememiks]

sorunlar

Öncelikle cevap verdiğiniz için teşekkür ederim.Metinleri yazıya dönüştürme sorunu halloldu.Ama ilk yazdığınız kod başka problemlere sebep oldu.İsim soyisim bölümüne kafasına göre rakam yazıyor.Ben "Birim fiyatı" ve "Ödenen" bölümlerine girdiğim sayıların herhangi bir formatta olmasını istemiyorum.Ben nokta ve virgülü klavyeden kendim girmek istiyorum.Yani orası tamamen serbest olsun, sadece sayı gir! kısıtlaması olsun, o kadar.Ben onu yaptığım zaman 1.258,65 sayısındaki 0,65 kısımını çarpımda hesaba katmıyor.Bunu da hesaba katsın istiyorum.