Commontbutton kaydetmiyor

[damra2005]

ekli dosyadaki kaydet butonu kaydetmiyor. Sebebini bir türlü anlayamadım. Yardımcı olanlara şimdiden teşekkürler

 

[damra2005]

unutmuştum.birde textbox5 işlem yapmıyor

 

[Levent Menteşoğlu]

[vb:1:46404e5941]Controls("textbox" & x - 1) = Cells(sira, x)
[/vb:1:46404e5941]
Kaydet butonunda yukarıda bulunan satırı aşağıdaki gibi değiştirin.

[vb:1:46404e5941]Cells(sira, x) = Controls("textbox" & x - 1)
[/vb:1:46404e5941]

 

[damra2005]

sayın lentm yine hata veriyor

 

[Levent Menteşoğlu]

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]

 

[damra2005]

üstad çok teşekkürler. ben hata yapmışım