حسن العسوس قام بنشر سبتمبر 28, 2011 قام بنشر سبتمبر 28, 2011 لدي شيت اكسل مستخرج من برنامج اخر و هو يخرج على هيئة سطر و سطر اي سطر به معلومات و السطر الذي يليه فارغ كيف احذف هذه الاسطر الفارغة
saad abed قام بنشر سبتمبر 28, 2011 قام بنشر سبتمبر 28, 2011 اخى هذا الكود يحذف السطور الفارغة لعل هذا ما طلبت اخوك سعد عابد Sub test() Dim Lastrow As Long Dim i As Long Application.ScreenUpdating = False With ActiveSheet Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lastrow To 2 Step -1 If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete End If Next i End With Application.ScreenUpdating = True End Sub
هشام شلبى قام بنشر سبتمبر 28, 2011 قام بنشر سبتمبر 28, 2011 السلام عليكم ======== هناك طرق كثيرة لحذف الصفوف الفارغة بالاكواد استخدم فقط خاصية البحث بالمنتدى لتحصل على ما تريد وساوافبك الان بهذه الطريقة اليدوية السهلة بعد تحديد الصفحة اضغط F5 وشاهد المرفق حذف صفوف فارغة يدويا.rar
حسن العسوس قام بنشر سبتمبر 28, 2011 الكاتب قام بنشر سبتمبر 28, 2011 الاخ سعد جزاك الله خيرا ولكن كيف يمكنني استخدام هذه الاسطر البرمجية جزاك الله خيرا
حسن العسوس قام بنشر سبتمبر 28, 2011 الكاتب قام بنشر سبتمبر 28, 2011 الاخ هشام جزاك الله خيرا حل سهل و بسيط
saad abed قام بنشر سبتمبر 28, 2011 قام بنشر سبتمبر 28, 2011 اخى حسن حل الاستاذ هشام ممتاز وبسيط نشكره عليه اذا اردت استخدام الكود افتح الملفين الملف المرسل والملف اللى انت شغال عليه اضغط alt+f11 اسحب مديول رقم 1 الى ملفك انسخ المفتاح المكتوب علية اضغط لحذف السطور الى ملفك اضغط على المفتاح كليك يمين اختار تعيين ماكرو اختار test اخوك فى الله سعد عابد Book1.rar
محمد يحياوي قام بنشر سبتمبر 28, 2011 قام بنشر سبتمبر 28, 2011 ادرج موديل عادي و اكتب الكود : Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUp
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.