Textbox sayı sorunsalı.

[methura]

Merhaba.

"Main" sayfasındaki userform düğmesi ile "Veri" sayfasındaki hücreleri doldurmak istiyorum.

Döviz bilgilerini yazdığım zaman hücreye rakamı büyüterek yazıyor.
Örneğin 3,1525 yazdığımda 31.525 oluyor.

İsteğim virgül de dahil virgülden sonraki 4 rakamı da hücreye aktarması.

 

[antonio]

Tüm textbox larınızın "Change" olayını aşağıdaki örneğe uygun şekilde değiştiriniz:

Private Sub TextBox11_Change()
Sheets("veri").Range("dolar") = Format(TextBox11.Value, "#,###.0000")
ActiveCell = TextBox11

 

[methura]

Tüm textbox larınızın "Change" olayını aşağıdaki örneğe uygun şekilde değiştiriniz:

Private Sub TextBox11_Change()
Sheets("veri").Range("dolar") = Format(TextBox11.Value, "#,###.0000")
ActiveCell = TextBox11

Dediğinizi yaptım lakin hala değişen yok.

yazdıklarım hücreye geçen
3,1524 31.524,0000
4,0254 40.254,0000
1,0255 10.255,0000

 

[Orion1]

İlgili sütunları biçimlendirdikten sonra

Private Sub TextBox11_Change()
Sheets("veri").Range("dolar") = CDbl(TextBox11.Value)
ActiveCell = CDbl(TextBox11.Value)
End Sub

 

[methura]

İlgili sütunları biçimlendirdikten sonra

Private Sub TextBox11_Change()
Sheets("veri").Range("dolar") = CDbl(TextBox11.Value)
ActiveCell = CDbl(TextBox11.Value)
End Sub

Çok teşekkür ederim hocam.

 

[Orion1]

Çok teşekkür ederim hocam.

Rica ederim.
İyi çalışmalar.