userform üzerinden satır silme

[kemal turan]

merhaba,
Ek dosyada da açıklamayı yaptım.
Userform da bulunan textbox değerleri sayfadaki A sutundaki değerlerle eşleşiyorsa eşleşen satırı silme koduna ihtiyacım var.
Teşekkür ederim.

 

[kemal turan]

Merhaba,
Textboxdaki veriler sayfadan geldiği için ustaların cevaplarından revize ederek.aşağıdaki kod ile userform üzerinden değilde veri kaynağı sahifeden istediğim satırları sildim.
Teşekkür ederim.

Private Sub CommandButton1_Click()
    Set s1 = ThisWorkbook.Worksheets("ODEMEOZET")
    Set s2 = ThisWorkbook.Worksheets("ODEMEPLANI") 'satır silinecek sayfa
    For i = 6 To 30 'silinecek verilerin olduğu alan
 Set a = s2.Range("A1:A" & s2.Cells(s2.Rows.Count, 1).End(xlUp).Row).Find(s1.Cells(i, 1).Value, LookAt:=xlWhole)
 If Not a Is Nothing Then
s2.Rows(a.Row).Delete Shift:=xlUp
End If
Set a = Nothing
    Next i
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub