اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)
بسم الله الرحمن الرحيم



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

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

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





السلام عليكم

Delete_Row.rar

تم تعديل بواسطه هادى سالم
قام بنشر

استاذنا هادي

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

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

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

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

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

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

قام بنشر

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

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

الصبر جميل

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

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

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

السلام عليكم

Delete_1.rar

قام بنشر (معدل)

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

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

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

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information