Veri değiştirme

[kemal turan]

Merhaba,
Aşağıdaki kod ile bir veritabanında veri değişikliği yapıyorum.
Değişim kriteri bir metin ise "kemal" veya "kemal1234" ise ilgili sutunlarda değişim oluyor.
Değişim kriteri "1234" olduğu zaman kod hata vermeden gereken veri değişikliğini yapmıyor.
Yardımlarınız için teşekkür ederim.

Dim S1 As Worksheet, S2 As Worksheet, Veri As Range, Say As Long, Son As Long

Private Sub CommandButton3_Click()

Set S2 = Sheets("VERITABANI")
Son = S2.Range("J65536").End(xlUp).Row
For i = 2 To Son
If S2.Cells(i, "j").Value = UserForm1.TextBox2.Value Then
S2.Cells(i, "K").Value = UserForm1.TextBox4.Value
S2.Cells(i, "L").Value = UserForm1.TextBox1.Value
S2.Cells(i, "M").Value = UserForm1.TextBox3.Value
End If
Next
MsgBox "İŞLEM TAMAM"

End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton3_Click()
Dim d
Set S2 = Sheets("VERITABANI")
Son = S2.Range("J65536").End(xlUp).Row
For i = 2 To Son
d = UserForm1.TextBox2.Value
If IsNumeric(d) Then d = CDbl(d)
If S2.Cells(i, "j").Value = d Then
S2.Cells(i, "K").Value = UserForm1.TextBox4.Value
S2.Cells(i, "L").Value = UserForm1.TextBox1.Value
S2.Cells(i, "M").Value = UserForm1.TextBox3.Value
End If
Next
MsgBox "İŞLEM TAMAM"

End Sub

 

[kemal turan]

Ömer hocam merhaba,
Çok teşekkür ederim.