[حل شده] حذف کردن ردیف فراخوانی شده

[ozviat83]

با سلام داخل فایلی که گذاشتم یه فرم هست که بر اساس سه پارامتر مختلف عمل فراخوانی را انحام میدهد من میخواهم دکمه ای داشته باشم که به وسیله آن بتوانم رکورد فراخوانی شده و ردیف مربوط به آن را حذف کنیم با تشکر از تمام اساتید

[امين اسماعيلي]

با درود
با توجه به اینکه کد ملی هر فردی منحصر به فرد هستش این کد رو برای دکمه حذف خودت به کار ببری حله

If TextBox7.Value <> "" Then
Dim c As Range
Dim LastRow As Long
        'Search for any entry, by searching backwards by Rows.
LastRow = Sheet4.Cells.find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each c In Sheet4.Range("H6:H" & LastRow)
If c.Text = TextBox7.Text Then
Rows(c.Row).Delete
Exit For
End If
Next c
End If