السلام عليكم ورحمة الله وبركاته
ارقف لكم الكود وصورة الكود بعد الخطا لطفا
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
مع الشكر الجزيل لتعاونكم الموصول