مساعدة في كود حذف صف من شيت عن طريق اليوزرفورم

[شبل ليث]

السلام عليكم اغضاء المنتدى الكرام

يرجى مساعدتي في كود حذف صف من شيت الملاك عن طريق اليوزرفورم حيث عجزت عن معرفة اي تكمن المشكلة في كود الحذف في الملف المرفق ادناه 

هذا ولكم الشكر والامتنان

ملاك 2023.xlsb

[أبوأحـمـد]

وعليكم السلام 

تفضل

Private Sub CommandButton6_Click()
Dim i
Dim lrw
lrw = Sheets("الملاك").Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To lrw
If TextBox2.Text = Cells(i, 3) Then
   If MsgBox("هل تريد حذف " & " " & Cells(i, 3) & _
    vbNewLine & " ", vbYesNo + vbQuestion + vbMsgBoxRight, "تنبيه") = vbNo Then Exit Sub
     Omar_1.Range("A" & i & ":R" & i).Delete
Call Fil_list
Exit For
End If
Next i
End Sub

 

[شبل ليث]

الاستاذ ابو احمد

شكرا لتعاونك معي ولكن الكود لم يغمل ولا اعرف ما المشكلة حيث اني اود عندما ابحث عن اسم واختاره من الليست بوكس واريد ان احذف بياناته من شيت الملاك اضغط على الزر حذف

[أبوأحـمـد]

غريبة عندي يعمل بدون مشاكل

 

 

ملاك 2023.xlsb

[محي الدين ابو البشر]

Omar_1.Range("A" & i & ":R" & i).Delete
 or


Sheets("الملاك").Range("A" & i & ":R" & i).Delete

 

[شبل ليث]

اساتذتي الكرام

عندما اضغط على الزر حذف لا يحدث اي شيء لا اعرف هل الخلل من حاسوبي 

[عبدالفتاح في بي اكسيل]

@شبل ليث

مجرد ملاحظة  

ملفك ثقيل به  بيانات  ضخمة  ولا  يتماشى  مع  الكود  الذي لديك  ، انت  تظن  انه  لا يحدف  شيء  ولكن  عليك  الانتظار  قليلا  وستلاحظ  انه  حدف  كما  ان  الكود   لا يعتمد بتاتا  على  الليست بوكس   فقط  يقوم  بمطابقة  ما  يظهر  في  التيكست  بوكس  مع  العمود الثاني للشيت .

تحياتي