تعديل على كود الحذف لكي يتم حذف الاسم المختار في حال فتح الفورم من صفحه اخرى غير صفحة data

[ابو طيبه]

السلام عليكم اساتذتنا الافاضل تعديل على كود الحذف لكي يتم حذف الاسم المختار في حال فتح الفورم من صفحه اخرى غير صفحة  data

وشكرا جزيلا لجهودكم 

ملف الحذف.xlsm

[ابو طيبه]

السلام عليكم تم الوصول الى الحل بعد عدة محاولات قمت بها والكود النهائي هل يحتاج إلى الضبط ام لا تحياتي لكم  

Private Sub CommandButton5_Click()
Dim I As Integer, counter As Integer
    WSLR = WS.Cells(Rows.Count, 2).End(xlUp).Row + 1
  With Me.ListBox1
    On Error Resume Next
    For Each C In WS.Range("b2:b" & WSLR)
            I = 1
            For counter = 1 To C.Rows.Count
          If C.Cells(I) = TextBox1.Value Then
          C.Cells(I).EntireRow.Delete
          Else
          I = I - 1
          End If
   Next
  Next C
 End With
       MsgBox "تم حذف الاسم"
End Sub

[أ / محمد صالح]

حسب فهمي للمطلوب يمكنك استعمال هذا الكود

Private Sub CommandButton5_Click()
If ActiveSheet.Name <> "data" Then
Dim wslr As Integer, counter As Integer, ws As Worksheet
Set ws = ThisWorkbook.Worksheets("data")
wslr = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For counter = 1 To wslr
      If ws.Cells(counter, 2) = TextBox1.Value Then
      ws.Cells(counter, 2).EntireRow.Delete
      counter = counter - 1
      End If
    Next
MsgBox "تم حذف الاسم"
End If
End Sub

 

[ابو طيبه]

مشكور جهودك استاذ محمد الله يجعلها في ميزان حسناتك