kayır değiştir makromda hata var başka yere kaydediyor

[dogan_yigit]

Private Sub CommandButton2_Click() 'KAYIT DEĞİŞTİR
Application.ScreenUpdating = False
Sheets("ÇEK").Select
ONAY = MsgBox("Seçtiğiniz kayıt üzerinde yaptığınız değişikliği onaylıyor musunuz?", vbExclamation + vbYesNo, "Dikkat !")
If ONAY = vbYes Then
Kayıtbul = WorksheetFunction.Match(Val(UserForm37.ListBox1.Text), [A13:A65536], 0)
Veri1 = TextBox1.Text
Veri2 = TextBox2.Text
Veri3 = CDate(TextBox3.Value)
Veri4 = TextBox4.Text
Veri5 = TextBox5.Text
Veri6 = CDate(TextBox6.Value)
Veri7 = TextBox7.Text * 1
Veri8 = TextBox8.Text * 1
Veri9 = TextBox9.Text * 1
Veri10 = TextBox10.Text
Veri11 = TextBox11.Text
Veri12 = TextBox12.Text
Veri13 = TextBox13.Text

Cells(Kayıtbul, 2) = Veri1
Cells(Kayıtbul, 3) = Veri2
Cells(Kayıtbul, 4) = Veri3
Cells(Kayıtbul, 5) = Veri4
Cells(Kayıtbul, 6) = Veri5
Cells(Kayıtbul, 7) = Veri6
Cells(Kayıtbul, 8) = Veri7
Cells(Kayıtbul, 9) = Veri8
Cells(Kayıtbul, 10) = Veri9
Cells(Kayıtbul, 11) = Veri10
Cells(Kayıtbul, 12) = Veri11
Cells(Kayıtbul, 13) = Veri12
Cells(Kayıtbul, 14) = Veri13



Range("B13").Select
ListBox1.ListIndex = -1
Call Formu_Temizle
Call UserForm_Initialize
Else
ListBox1.ListIndex = -1
Call Formu_Temizle
Call UserForm_Initialize
End If
Application.ScreenUpdating = True
End Sub

 

[veyselemre]

Kayıtbul = WorksheetFunction.Match(Val(UserForm37.ListBox1.Text), [A13:A65536], 0) +12

deneyin.