TextBoxlarda ondalık sayı formatındaki sorun

[sin77]

Merhaba arkadaşlar. 4 saattir formu alt üst ettim ama çözüm bulamadım sorunuma. TextBoxlarda 0,0056123 gibi rakam yazdığımda Textboxda başka türlü sayılar gösteriyor ve hücreye bunu kayıtedince metin olarak algılıyor. TextBoxun formatını nasıl düzenleyebiliriz. Yardım ederseniz seviniriz. tşk

 

[chngrcn]

Merhaba arkadaşlar. 4 saattir formu alt üst ettim ama çözüm bulamadım sorunuma. TextBoxlarda 0,0056123 gibi rakam yazdığımda Textboxda başka türlü sayılar gösteriyor ve hücreye bunu kayıtedince metin olarak algılıyor. TextBoxun formatını nasıl düzenleyebiliriz. Yardım ederseniz seviniriz. tşk

Format(textbox1, "#,##0.00")
belki bu işinize yarar.. iyi çalışmalar..

 

[Orion1]

Ekli dosyayı inceleyiniz.A sütununa kayıt eder.

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1.Text) Then
    MsgBox "Lütfen textboxa sayısal bir değer giriniz.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "A").Value = CDbl(TextBox1.Text)
Cells(sat, "A").NumberFormat = "#,##0.0000000"
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1.Text, "#,##0.0000000")
End Sub



Private Sub UserForm_Initialize()
TextBox1.Text = Format(0.0056123, "#,##0.0000000")
End Sub

 

[sin77]

Tşk Evren Bey uyarlayaildim sonunda.

 

[Orion1]

Tşk Evren Bey uyarlayaildim sonunda.

Rica ederim.
İyi çalışmalar.