sayfadaki verilerimi değiştiremiyorum

[cobanoglu]

aşağıdaki koddaki eksikliği çözemedim
ustalarım bi bakıverirmisiniz.

Private Sub DÜZELT_Click()
If ad.Value = "ADI SOYADI" Then
MsgBox "Bu Veriyi Değiştirmeniz Engellendi", vbExclamation, "HATA"
Exit Sub
End If
If ad.Value = "" Then
MsgBox "Önce Bilgilerini Değiştirmek İstediğiniz Personelin adını Seçiniz", vbExclamation, "HATA"
Exit Sub
End If
secim = MsgBox(ad.Value & "Personelin Bilgilerini Değiştirmek İstediğinizden Emin misiniz?", vbYesNo + vbDefaultButton2 + vbQuestion, "UYARI!!!")
If secim = vbNo Then
ad_Change
Exit Sub
End If
With Sheets("veri")
Sheets("VERİ").Range("b" & ad.ListIndex + 2) = ad.Value
Sheets("VERİ").Range("c" & ad.ListIndex + 2) = görev.Value
Sheets("VERİ").Range("d" & ad.ListIndex + 2) = derece.Value

End With
a = MsgBox(ad.Value & ("Personelin Bilgileri Değiştirildi"), vbInformation, "KAYIT")


End Sub