طلب كود حذف اخر عشرين صف بالورقه

[الســـــــاهر]

السلام عليكم و رحمة الله وبركاته

ياليت لو بالامكان كود لحذف اخر ثلاث صفوف بالورقه ضمن الحقول الغير فارغة

___________.rar

[الســـــــاهر]

للرفع

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



جرب الملف المرفق

ملحوظه :
العنوان بالغاء 20 صف
المشاركه بالغاء 3 صفوف
الملف بالغاء اخر سجل

و فى النهايه قمت بالغاء الاعمده الملونه باللون الاصفر





السلام عليكم

Delete_Row.rar

تم تعديل مايو 5, 2007 بواسطه هادى سالم

[الســـــــاهر]

استاذنا هادي

اشكرك على مرورك جزيل الشكر

أخي الكود اللي بالملف اللي ارفقته يلغي سجل محدد

المطلوب هو حذف اخر ثلاث صفوف باستمرار من الصف 65000 صعودا و حتى الوصول الى الصف الرابع

يعني كل ما نطلب الكود يحذف اخر ادخال اللي هو اخر ثلاث صفوف

أرجو اني اكون قدرت اوضح لحضرتك الفكرة

الله يثيبك و يجزاك خير

[الســـــــاهر]

للرفع

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

للرفع "بعد ساعتان فقط"

الصبر جميل

لالغاء اخر 3 صفوف استخدم الكود التالى

Sub sDelete()
    For i = 1 To 3
        Rows.End(xlDown).Delete
    Next
End Sub

مرفق ملف تستطيع تطبيقه مع عدم وجود فراغات

السلام عليكم

Delete_1.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخ ابو هادي تحياتي لك

و مشكور

[عبدالله باقشير]

بسم الله الرحمن الرحيم

اضافة الى مشاركة اخي هادي سالم جزاه الله الف خير

اليك الملف التالي ممكن تحذف بوجود صفوف فارغة حسب ملفك المرفق

اخوك / خبور

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



الله يفتح عليك اخى خبور
و لكن تظهر رساله خطأ عندما يكون عدد الصفوف اقل من 3
مرفق الملف بعد التعديل



السلام عليكم

____________01.rar

[الســـــــاهر]

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

الاخ هادي اشكرك جزيل الشكر الكود جميل و واضح ابداع جميل

الاخ ابو اسامة اشكرك على مرورك و اهتمامك

الاخ خبور ايه الابداع هذا بجد حاجه اكثر من روعة

و الله يعجز اللسان عن الشكر

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

بصراحة انا الى الان ما ادري مدى عطاء وكرم هذا المنتدى بجد عمري ما شفت كده

لكن كل اللي نقدر نقوله ان منتدى و مشرفين و أعضاء اوفيستا = عطاء بلا حدود

تم تعديل مايو 6, 2007 بواسطه assahir