معلومات الاساتذة

وهذا زر حذف سطر ان اردت استعمالة ضف زر واضف الكود التالى
Dim i As Integer
TextBox1.Enabled = True
For i = 3 To 2000
If Val(TextBox1.Value) = Cells(i, 1) Then
Cells(i, 1).Select
ActiveCell.EntireRow.Delete
MsgBox "!! done"
End If
Next

من كتر الاسئلة بتدخل فى بعض بنسى حكم السن ارسل مرة ثانية انا الاميل بيجيلى رسايل من المنتديات واليوتيوب وخاصة انا بفضل تفتح موضوع وتكتب فيه اللى انت عاوزة ساعتها بتابع الموضوع