Sayı formatında kayıt etme

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar dosyamda TextBox lar var bunlardaki verileri sayı olarak kaydetmek istiyorum

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("BAKIM").Range("A65536").End(xlUp).Row
bos_satir = Son_Dolu_Satir + 1
With Sheets("BAKIM")
.Range("B" & bos_satir).Value = ComboBox1.Text
.Range("C" & bos_satir).Value = TextBox1.Text
.Range("D" & bos_satir).Value = TextBox2.Text
.Range("E" & bos_satir).Value = TextBox3.Text
.Range("F" & bos_satir).Value = TextBox4.Text
.Range("G" & bos_satir).Value = TextBox5.Text
.Range("H" & bos_satir).Value = TextBox6.Text
.Range("I" & bos_satir).Value = Format(TextBox7, "#,##0.00") ' Bunu denedim oldu ancak metin attı
.Range("J" & bos_satir).Value = Val(Format(TextBox8, "#,##0.00")) ' bu sayı attı ancak sonucu mesela 1.295.21 degerini 1,30 verdi nasıl yapmalıyım
.Range("K" & bos_satir).Value = TextBox9.Text
.Range("A2") = 1
.Range("A2:A" & bos_satir).DataSeries rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
MsgBox "Kayıt Başarı İle Yapıldı"
End With
TextBox5.SetFocus

Teşekkürler

 

[ÖmerFaruk]

TextBox7*1 şeklinde düzeltip, hücre formatını istediğin şekilde düzenleyip denermisin

 

[Hacı Bayram ÖZKAN]

Denedim oldu abim çok teşekkürler