Verileri TextBox geri çağırma sorunu

[yavuz829]

Merhaba arkadaşlar ekteki resimde görüldüğü gibi verileri Kr. lu olarak aktariyoriyorum yani kuruşu virgül olarak aktariyor. Bul butonu ile verileri TextBox lara geri çağırdığım zaman işaretlediğim TextBox larda virgüller nokta olarak görünüyor. Bul ile çağırdığımız veriler ile yeni kaıyt yaptığımız zaman veya değiştir butonunu çalıştırdığımı zaman virgüller nokta olarak TextBox larda göründüğü için Kr. tam sayı olarak aktariyor. Yani 100,45 olarak aktaracağına 10045,00 olarak aktariyor.
Verilerin bul botonu ile TextBox lara doğru gelmesi için aşağıdaki kodları nasıl değiştirmem lazım bu konuda yardımlarınızı bekliyorum. İyi çalışmalar.


Private Sub CommandButton11_Click()
If TextBox15.Text = "" Then

MsgBox "Lütfen bulmak istediğiniz numarayı giriniz!!!"
Exit Sub
End If
For Each hucre In Range("a6:a" & WorksheetFunction.CountA(Range("a6:k65000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox15.Value, vbUpperCase) Then
hucre.Select
ComboBox2 = ActiveCell.Offset(0, 1).Value
ComboBox3 = ActiveCell.Offset(0, 2).Value
TextBox3 = ActiveCell.Offset(0, 3).Value
TextBox4 = ActiveCell.Offset(0, 4).Value
TextBox5 = ActiveCell.Offset(0, 5).Value
TextBox10 = ActiveCell.Offset(0, 6).Value
TextBox11 = ActiveCell.Offset(0, 7).Value
TextBox13 = ActiveCell.Offset(0, 8).Value
TextBox6 = ActiveCell.Offset(0, 9).Value
TextBox7 = ActiveCell.Offset(0, 10).Value
End If
Next

End Sub

 

[bmutlu966]

TextBox'ları formatlayın. Örnek :

TextBox1=Format(TextBox1,"#,##0.00")

 

[yavuz829]

Çok teşekürler hocam. Hocam yazdığınız kodu ekteki dosyama uygulayabilirmisiniz.
Koruma parolası :123