UserForm da girilen sayıyı otomatik olarak ondalık hale getirmek

[DWARFEST]

Merhaba,

UserForm da oluşturduğum bir TextBox'a girilen sayılları otamatik olarak nasıl ondalık hale getirebilirm?

Örneğin:
TextBox a XXXX şeklinde bir sayı yazacağım ve bunu kaydet derken makro bunu otamatik olarak XX,XX şeklinde kaydedecek. Yani 1234 yazacağım ve makro bunu 12,34 (12 ytl, 34 ykr) şeklinde görecek ve böyle gireceğim sayıların en son satırda toplamını alacağım. Bunu çalışma sayfasında, "hücre biçimlendir->sayı->ondalık" şeklinde ayarladım fakat kayıttan sonra bunu hatalı kaydediyor ve son satırda toplama işlemini gerçekleştirmiyor.

Kodlarım şu şekilde:

Private Sub CommandButton1_Click() 'KAYIT EKLEME

Dim mesaj, yer As Long
yer = Cells(65536, 3).End(xlUp).Row + 1
mesaj = MsgBox("Bilgiler Güncellenecektir", 4 + 32, "Uyarı")
If mesaj = 6 Then
If yer >= 29 Then
MsgBox "Kayıt Sayınız dolmuştur.Sayfayı yazdırınız..!!", vbCritical, "DİKKAT"
Exit Sub
End If
Sheets("BASKI").Select
Sheets("BASKI").Cells(yer, 2) = TextBox1
Sheets("BASKI").Cells(yer, 3) = ComboBox1
Sheets("BASKI").Cells(yer, 5) = ComboBox2
Sheets("BASKI").Cells(yer, 6) = TextBox2 ' buraya ne tür bir eklenti yapayım ki Textbox2 ye girilen sayıları otomatik olarak ondalık hale getirsin?
Sheets("BASKI").Cells(yer, 8) = ComboBox4


Else
Cancel = True
End If
End Sub

(Sn.Orion2'nin yardım ettiği kodlar şu linkte:
http://www.excel.web.tr/showthread.php?t=43231 )

 

[Orion1]

Aşağıdaki gibi deneyiniz.Cool:

Sheets("BASKI").Cells(yer, 6) = cdbl(TextBox2 .value)/100
sheets("BASKI").cells(yer,6).numberformat="#,##0.00"

 

[DWARFEST]

TeŞekkÜr Ederİm

Sn.Orion2
Çok teşekkür ederim, excel.web.tr nin Hızır A.S.'ı gibisiniz. verdiğiniz kodu denedim ve çalıştı...

 

[Orion1]

Sn.Orion2
Çok teşekkür ederim, excel.web.tr nin Hızır A.S.'ı gibisiniz. verdiğiniz kodu denedim ve çalıştı...

Estafurullah .
İyi çalışmalar.