Abhsaid قام بنشر يوليو 21 مشاركة قام بنشر يوليو 21 تحية طيبة برجاء تصحيح ماكرو ادناه شكرا للجميع Sub EliminarFilasVacias() Dim ws As Worksheet Dim rng As Range Dim cell As Range Set ws = ThisWorkbook.Sheets("Sheet1") Application.ScreenUpdating = False For Each rng In ws.UsedRange.Columns(1).Cells If Application.WorksheetFunction.CountA(rng.EntireRow) = 0 Then rng.EntireRow.Delete End If Next rng Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يوليو 21 مشاركة قام بنشر يوليو 21 السلام عليكم ورحمه الله وبركاته وبها نبدأ يرجي رفع ملف للعمل عليه رابط هذا التعليق شارك More sharing options...
Abhsaid قام بنشر يوليو 22 الكاتب مشاركة قام بنشر يوليو 22 مبيعات.xlsx رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر يوليو 22 مشاركة قام بنشر يوليو 22 (معدل) المطلوب غير واضح تم تعديل يوليو 22 بواسطه hegazee رابط هذا التعليق شارك More sharing options...
Abhsaid قام بنشر أغسطس 20 الكاتب مشاركة قام بنشر أغسطس 20 شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان