değişiklik kaydetme

[talatcd]

Slm arkadaşlar aşağıdaki gibi değişitr kodlarım var değişikliği kaydetmesi için çok bekliyorum. Bunu nasıl düzeltebiliriz.

Private Sub CommandButton2_Click() 'Değiştir
On Error Resume Next
Worksheets("Parametre").Select
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2 * 1
Cells(sonsat, 4) = TextBox3 * 1
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6 * 1
Cells(sonsat, 8) = TextBox7
Cells(sonsat, 9) = TextBox8 * 1
Cells(sonsat, 10) = TextBox9 * 1
Cells(sonsat, 11) = TextBox10 * 1
Cells(sonsat, 12) = TextBox11 * 1
Cells(sonsat, 13) = TextBox12 * 1
Cells(sonsat, 14) = TextBox13 * 1
Cells(sonsat, 15) = TextBox14 * 1
Cells(sonsat, 16) = TextBox15 * 1
Cells(sonsat, 17) = TextBox16 * 1
Cells(sonsat, 18) = TextBox17 * 1
Cells(sonsat, 19) = TextBox18
Cells(sonsat, 20) = TextBox19
Cells(sonsat, 21) = TextBox20
Cells(sonsat, 22) = TextBox21
Cells(sonsat, 23) = TextBox22
Cells(sonsat, 24) = TextBox23 * 1
Cells(sonsat, 25) = TextBox24
Cells(sonsat, 26) = TextBox25
Cells(sonsat, 27) = TextBox26 * 1
Cells(sonsat, 28) = TextBox27 * 1
Cells(sonsat, 29) = TextBox28 * 1
Cells(sonsat, 30) = TextBox29 * 1
Cells(sonsat, 31) = TextBox30 * 1
Cells(sonsat, 32) = TextBox31 * 1
Cells(sonsat, 33) = TextBox32 * 1
Cells(sonsat, 34) = TextBox33 * 1
Cells(sonsat, 35) = TextBox34 * 1
Cells(sonsat, 36) = TextBox35 * 1
Cells(sonsat, 37) = TextBox36 * 1
Cells(sonsat, 38) = TextBox37 * 1
Cells(sonsat, 39) = TextBox38 * 1
Cells(sonsat, 40) = TextBox39 * 1
Cells(sonsat, 41) = TextBox40 * 1
Cells(sonsat, 42) = TextBox41 * 1
Cells(sonsat, 43) = TextBox42 * 1
Cells(sonsat, 44) = TextBox43 * 1
Cells(sonsat, 45) = TextBox44 * 1
Cells(sonsat, 46) = TextBox45 * 1
Cells(sonsat, 47) = TextBox46 * 1
Cells(sonsat, 48) = TextBox47 * 1
Cells(sonsat, 49) = TextBox48 * 1
Cells(sonsat, 50) = TextBox49 * 1
Cells(sonsat, 51) = TextBox50 * 1
Cells(sonsat, 52) = TextBox51 * 1
Cells(sonsat, 53) = TextBox52 * 1
Cells(sonsat, 54) = TextBox53 * 1
Cells(sonsat, 55) = TextBox54 * 1
Cells(sonsat, 56) = TextBox55 * 1
Cells(sonsat, 57) = TextBox56 * 1
Cells(sonsat, 58) = TextBox57 * 1
Cells(sonsat, 58) = CLng(CDate(TextBox57))
ListBox1.RowSource = "B2:IV" & [A65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[excellium]

iki şeyi sırayla deneyin;

1. 1 ile çarptırmadan deneyin
2. rowsource ettirmeden deneyin

bunlardan biri olabilir...