Değiştir koduna yardım

[orkuncan5]

Çok uğraştım ama değiştir ve sil kodunu ayarlayamadım.Yardımcı olursanız sevinirim.

 

[Huseyinkis]

Çok uğraştım ama değiştir ve sil kodunu ayarlayamadım.Yardımcı olursanız sevinirim.

Değiştir kısmı için kodları ekteki ile değiştirin.

Not:tavsiye olarak textbox lar boş ise değiştirme diye bir işlemde ekleyin.

Private Sub CommandButton5_Click()
    A = Sheets("Sayfa2").Range("a1:a65000").Find(What:=ListView1.SelectedItem.ListSubItems(1).Text, LookAt:=xlWhole).Row
  
   
    
    If A > 0 Then
    Cells(A, 1) = TextBox2.Value
    Cells(A, 2) = TextBox3.Value
    Cells(A, 3) = TextBox4.Value
    Else
    MsgBox "Böyle bir isim kayıtlarda yok..!", , "DİKKAT"
    End If
    
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
   
    Call UserForm_Initialize
End Sub

 

[orkuncan5]

Teşekkür ederim Hüseyin Bey.Allah razı olsun.