رجاء..التعديل على كود الحذف

[عبد العزيز البسكري]

أرجو منكم أساتذتي الأفاضل مساعدتي في التعديل على كود الحذف الموجود داخل الفورم ..بحيث عند الضغط على زر الحذف يحذف الاسم و بيانات خلايا الأعمدة دون حذف بيانات الأعمدة الملونة بالأحمر في الشيت لأنها تحتوي على معادلات ..ولكم مني فائق الشكر و الاحترام و التقدير وجزاكم الله خيرًا مقدّمًا

 

الملف.rar

[ياسر خليل أبو البراء]

الأخ الكريم عبد العزيز

شوف الكود الخاص بالحذف واستبدل الموجود عند بالسطر ده

If Me.TextBox1.Text = Cells(I, 1) Then Range(Cells(I, 1), Cells(I, 54)).SpecialCells(xlCellTypeConstants).ClearContents: Exit For

[عبد العزيز البسكري]

 

الأخ الكريم عبد العزيز

شوف الكود الخاص بالحذف واستبدل الموجود عند بالسطر ده

If Me.TextBox1.Text = Cells(I, 1) Then Range(Cells(I, 1), Cells(I, 54)).SpecialCells(xlCellTypeConstants).ClearContents: Exit For

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

الملف.rar

تم تعديل أبريل 25, 2015 بواسطه عبد العزيز البسكري

[ياسر خليل أبو البراء]

أنا مش فاهم فين اللخبطة عموما أنا حملت الملف الأول في المشاركة الأولى وعدلت عليها

إليك الملف المعدل

File Zizo.rar

[عبد العزيز البسكري]

أنا مش فاهم فين اللخبطة عموما أنا حملت الملف الأول في المشاركة الأولى وعدلت عليها

إليك الملف المعدل

بارك الله فيك أستاذي الغالي ..رجاء لو سمحت شوف الملاحظات بداخل الشيت ..إستحملني لآخر مرة سيدي الفاضل

File Zizo.rar

[ياسر خليل أبو البراء]

أخي الكريم عبد العزيز ..

إليك الملف التالي عله يفي بالغرض

File Zizo.rar

[عبد العزيز البسكري]

أخي الكريم عبد العزيز ..

إليك الملف التالي عله يفي بالغرض

هكذا تمام التمام أستاذي الغالي ..جزاك الله خيرًا و بارك الله فيك و زادها بميزان حسناتك ..وزادك من علمه و فضله .