حراثي تواتي قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 السلام عليكم ورحمة الله وبركاته اخواني زملائي اعضاء منتدانا الغالي ارجوا منكم مساعدتي في كود يقوم بازاحة نطاق الصفوف الفارغة في الجدول كما هو موضح في الشرح والملف المرفق ولكم منا أسمى عبارات الاحترام والتقدير وعيدكم مبارك كل عام والامة الاسلامية بخير تواتي 15.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 ممكن توضيح اكثر هل تقصد حذف واذا كان لا من اي صف يبدا ؟! 1 رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 تفضل Private Sub CommandButton2_Click() On Error Resume Next With Range("b9:b10000") .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With End Sub تواتي 15.xlsm 2 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 23, 2020 الكاتب مشاركة قام بنشر مايو 23, 2020 اخي عبدالفتاح في بي اكسيل اقصد حذف الصف الفارغ في الجدول فقط وليس كل الورقة يبدا من الصف ( D32:A1 ) يعني يحذف الصف الفارغ في هذا النطاق من الجدول فقط رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 تفضل انتبه اخي قلت من a1 وو في الجدول الفعلي في ورقتك a9 لذلك هذا الكود يقوم بالاززاحة الى الاعلى ابتداءا من الخلية a1 و لا يحذف الصف كاملا اذا اردتت البدء من a9 غير في الكود Private Sub CommandButton2_Click() On Error Resume Next With Range("a1:d32") .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp End With End Sub تواتي 15.xlsm 2 رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 أخي التواتي . كان يجب التوضيح من الاول بأن هناك معادلات مع طلبك .ليتم اجابتك بسرعة .لعدم ضياع الوقت تفضل حبيبي الملف النهائي الازاحة الى الاعلى و ازاحة الخلايا التي تحنوي على المعادلات معها تواتي 15) fini.xlsm 1 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 23, 2020 الكاتب مشاركة قام بنشر مايو 23, 2020 هناك خلايا متعددة في الصف بها دوال من فضلك لا تكرر نفس الطلب فى مشاركة منفصلة وجديدة ... تم حذف المشاركة الأخرى لعدم اهدار وقت الأساتذة وتشتيت الأعضاء تواتي 15) fini.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مايو 23, 2020 مشاركة قام بنشر مايو 23, 2020 جرب هذا بعد التعديل تواتي 15) fini (1).xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 23, 2020 أفضل إجابة مشاركة قام بنشر مايو 23, 2020 جرب هذا الكود Private Sub CommandButton2_Click() On Error Resume Next Range("a9").Resize(9).SpecialCells(4) _ .EntireRow.Delete Shift:=xlUp End Sub 1 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 23, 2020 الكاتب مشاركة قام بنشر مايو 23, 2020 وفيت وكفيت الله يعطيك العافية أنت وكافة الأساتذة الساهرين على خدمتنا في هذا المنتدى الغالي واخص بالذكر سليم حاصبيا الرائد77 عبدالفتاح في بي اكسيل فبارك الله فيكم جميعا واتمنى للجميع عيد مبارك سعيد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.