Merhaba arkadaşlar,
benim degiştir makrosuyla başım derte, geçersiz işlem yürüttü, kurtarma raporu gibi bir sürü şey çıkıyor.
Kodu aşağıya yazıyorum, lütfen bir bakarmısınız....
Private Sub CommandButton2_Click()
On Error Resume Next
Sheets("veri").Select
Range("a2").Select
lig = Columns(1).Find(TextBox1, Range("a2"), , , xlByRows).Row
Cells(lig, 2) = TextBox2.Value
Cells(lig, 3) = TextBox3.Value
Cells(lig, 5) = TextBox4.Value
Cells(lig, 6) = TextBox5.Value
Cells(lig, 15) = TextBox8.Value
Cells(lig, 16) = TextBox9.Value
End Sub
Selamlar...
benim degiştir makrosuyla başım derte, geçersiz işlem yürüttü, kurtarma raporu gibi bir sürü şey çıkıyor.
Kodu aşağıya yazıyorum, lütfen bir bakarmısınız....
Private Sub CommandButton2_Click()
On Error Resume Next
Sheets("veri").Select
Range("a2").Select
lig = Columns(1).Find(TextBox1, Range("a2"), , , xlByRows).Row
Cells(lig, 2) = TextBox2.Value
Cells(lig, 3) = TextBox3.Value
Cells(lig, 5) = TextBox4.Value
Cells(lig, 6) = TextBox5.Value
Cells(lig, 15) = TextBox8.Value
Cells(lig, 16) = TextBox9.Value
End Sub
Selamlar...