مشكلة في كود الحذف

[طارق نادر]

السلام عليكم ورحمة الله وبركاته

ارقف لكم الكود وصورة الكود بعد الخطا لطفا

Private Sub CommandButton5_Click()

Dim WS As Worksheet, LastRow As Long
Set WS = ThisWorkbook.Sheets("ãÎÒä (2024)")

If TextBox2.Text = "" Then
 MsgBox "Þã ÇæáÇ ÈÇÎÊíÇÑ ãæÙÝ áÊÚÏíáå Çæ ÍÐÝå", vbExclamation, "ÍÐÝ"
Exit Sub
End If
LastRow = WS.Cells(Rows.Count, "B").End(xlUp).Row + 1
Dim Q
Q = MsgBox(" ÃäÊ Úáì æÔß ÍÐÝ ÇáÇÓã  " & "  (  " & TextBox2.Text & "  )  " & " ãä ÇáÓÌá ¡ åá ÊÑíÏ ÇáãæÇÕáÉ ", vbCritical + vbYesNo, "ÊÃßíÏ ÇáÍÐÝ")
If Q = vbYes Then
    For i = 2 To 12
    For T = 2 To LastRow
    If TextBox2.Text = WS.Cells(T, 2) Then
  With WS
    .Cells(T, i).Value = ""
    .Rows(T).Delete Shift:=xlUp
  End With
End If
   
    Next
    Next
    MsgBox "    áÞÏ Êã ÍÐÝ ÇáãæÙÝ   " & TextBox2.Text & "  ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ  ", vbInformation, ""
End If
For i = 2 To 12
 Me.Controls("TextBox" & i).Value = ""
 

Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub

مع الشكر الجزيل لتعاونكم الموصول

 

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته  

جرب هذا التعديل 

تم اضافه

next i

في السطر الرابع من اسفل الكود 

Private Sub CommandButton5_Click()

Dim WS As Worksheet, LastRow As Long
Set WS = ThisWorkbook.Sheets("ãÎÒä (2024)")

If TextBox2.Text = "" Then
 MsgBox "Þã ÇæáÇ ÈÇÎÊíÇÑ ãæÙÝ áÊÚÏíáå Çæ ÍÐÝå", vbExclamation, "ÍÐÝ"
Exit Sub
End If
LastRow = WS.Cells(Rows.Count, "B").End(xlUp).Row + 1
Dim Q
Q = MsgBox(" ÃäÊ Úáì æÔß ÍÐÝ ÇáÇÓã  " & "  (  " & TextBox2.Text & "  )  " & " ãä ÇáÓÌá ¡ åá ÊÑíÏ ÇáãæÇÕáÉ ", vbCritical + vbYesNo, "ÊÃßíÏ ÇáÍÐÝ")
If Q = vbYes Then
    For i = 2 To 12
    For T = 2 To LastRow
    If TextBox2.Text = WS.Cells(T, 2) Then
      With WS
       .Cells(T, i).Value = ""
       .Rows(T).Delete Shift:=xlUp
      End With
    End If
   
    Next t
    Next i
    MsgBox "    áÞÏ Êã ÍÐÝ ÇáãæÙÝ   " & TextBox2.Text & "  ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ  ", vbInformation, ""
End If
 For i = 2 To 12
  Me.Controls("TextBox" & i).Value = ""
 next i

Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub

 

[طارق نادر]

كل الاحترام والتقدير تمت العملية بنجاح

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات