زر التعديل والحذف على يوزرفورم

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

https://www.up-00.com/bd0gkjb8rq38/طلب_من_rghd_tam.rar.html

بحمل الملف وحشوفه بعد الفجر ان شاء الله

مجدى يونس كتب:

ممكن التعديل كما بالصورة انا عدلت الفورم بالصورة التالية اكمل حذف فى انتظار الرد

نعم أستاذي يعطيك العافية ، بس هل لمن أكتب الاسم في الكومبوبوكس "البحث" يعطيني معلوماته في الخانات وأستطيع التعديل عليها ؟

مجدى يونس كتب:

تم عمل اللازم اى خدمة

ضع رد لظهور الرابط

شكراً جزيلا أستاذ مجدي  ،، الله يجعله في ميزان حسناتك ويعطيك الف عافية
بس جربت زر الحذف اللي قلت حتعدل عليه فحذفلي الصف الاخير من الجدول ( الكود القديم اللي كنت حاطته) هل أستطيع حذف الصف ل الاسم المدخل في البحث (الكومبوبوكس)؟

انت لم تحددى طلبك الحذف حاضر

الكود:

Private Sub CommandButton1_Click()
Dim Cl As Range
    For Each Cl In Range("a3:a103")
        If Cl.Value = TextBox1.Text Then
            Cl.EntireRow.Delete
        End If
    Next Cl
End Sub

مجدى يونس كتب:

عدلت الكود ليناسب ملفك وهو يعمل ضع الكود فى زر حذف

الكود:

Dim Cl As Range
    For Each Cl In Range("b9:b1000")
        If Cl.Value = ComboBox8.Text Then
            Cl.EntireRow.Delete
        End If
    Next Cl

الله يسعدك يا أستاذ زبطت الحمدلله ،، جزاك الله خيرا

عاشت ايدك

الف شكر

شكرا