Değiştir Makrosu ile ilgili

[ferhatgurbuz]

Aşağıdaki kod ile düzenleme yaptıktan sonra değiştir dediğimde E sutunundaki veriler tarih formatına dönüşüyor. Yardımalrınızı bekliyorum teşekkürler






Private Sub CommandButton2_Click()
Sheets("Data").Select
If TextBox1.Value = "" Then
MsgBox "Personel No'su Boş Olamaz..!", vbCritical
TextBox1.SetFocus
Exit Sub
End If
If MsgBox("DEĞİŞİKLİK YAPMAK İSTYORMUSUNUZ.?", vbQuestion) = vbNo Then
TextBox1.SetFocus
Exit Sub
End If
Set k = Range("B3:BW65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
For i = 4 To 7
If Not IsNumeric(Controls("TextBox" & i)) Then Controls("TextBox" & i) = 0
Cells(k.Row, "B").Value = TextBox1.Value
Cells(k.Row, "c").Value = TextBox2.Value
Cells(k.Row, "d").Value = TextBox3.Value
Cells(k.Row, "e").Value = TextBox4.Value
Cells(k.Row, "f").Value = TextBox5.Value
Cells(k.Row, "g").Value = TextBox6.Value
Cells(k.Row, "h").Value = TextBox7.Value
Cells(k.Row, "ı").Value = TextBox8.Value
Cells(k.Row, "m").Value = TextBox9.Value
MsgBox "Değişiklik Yapıldı"
For j = 1 To 9
Controls("TextBox" & j) = ""
Next
Exit Sub
Next i
Else
MsgBox "Değitirelecek Veri Bulunamadı.!"
End If
End Sub

 

[Orion1]

neden 4ten 7ye kadar bir döngüye giriyorsunuz .bu kodlarda gereksiz ve anlamsız.Onun altındaki kodu niye yazdınız ?

For i = 4 To 7
If Not IsNumeric(Controls("TextBox" & i)) Then Controls("TextBox" & i) = 0

 

[ferhatgurbuz]

Evren hocam haklısınız da

bu kodları ben yazmadım yazmadım derken başka yerden alıp uyarlamaya çalıştım o yüzden yani teşekkür ederim.
kolay gelsin