Ondalıklı sayının değiştir butonu kullanınca tamsayıya çeviriyor

[millis]

Sayın üstadlar ve arkadaşlar. Bir Userform'um var. Bu UserFormda ListBoxda Bulunan verileri çift tıklayarak gerekli dosyalara aktarıyorum. Düzeltme işlemi yaptıktan sonra ondalıklı olan rakkamı tam sayıya çeviriyor. Örneğin; 1,60 gibi bir rakkamı seçiliyi düzelt dedikten sonra rakkamı 16 olarak değiştirip kaydediyor. TextBox'ı Ondalıklı rakkam formatına çevirmeme rağmen düzeltme işlemi yaptıktan sonra yine aynı işlemi yapıyor. Bu sorunu nasıl çözebilirim. Acilen yardımlarınızı bekliyorum. Saygılarımla, iyi çalışmalar. Dosya ektedir.

 

[Orion1]

Merhaba.
Kodları aşağıdaki gibi değiştirp deneyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim birim As Single
    On Error Resume Next
    
    TextBox2 = Format(TextBox2.Value, "#,##0.00")
For a = 0 To 5
TextBox2 = Format(TextBox2.Value, "##,##0.00")
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next
birim = ListBox1.Column(1)
sat = ListBox1.ListIndex + 2
TextBox2 = Format(birim, "#,##0.00")
'Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[millis]

Teşekkür

Merhaba.
Kodları aşağıdaki gibi değiştirp deneyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim birim As Single
    On Error Resume Next
    
    TextBox2 = Format(TextBox2.Value, "#,##0.00")
For a = 0 To 5
TextBox2 = Format(TextBox2.Value, "##,##0.00")
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next
birim = ListBox1.Column(1)
sat = ListBox1.ListIndex + 2
TextBox2 = Format(birim, "#,##0.00")
'Range("A" & sat & ":I" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

Sayın üstad, size çok teşekkür ederim. Saygılarımla.

 

[Orion1]

Sayın üstad, size çok teşekkür ederim. Saygılarımla.

Rica ederim.
İyi çalışmalar.