Ben denedim gayet güzel çalışıyor, kod aşağıdaki gibi olacak.
[vb:1:9b5684bf70]Private Sub CommandButton1_Click()
TextBox3 = Format(TextBox3.Value, "#0")
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
TextBox3 = CCur(TextBox1) + CCur(TextBox2)
End If
TextBox5 = Format(TextBox5.Value, "#0")
If IsNumeric(TextBox3) And IsNumeric(TextBox4) Then
TextBox5 = CCur(TextBox3) - CCur(TextBox4)
End If
sira = ListBox1.ListIndex + 1
For x = 2 To 6 Cells(sira, x) = Controls("textbox" & x - 1)
Next
End Sub
[/vb:1:9b5684bf70]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.