تصحيح خطا في ماكرو

[Abhsaid]

تحية طيبة 

برجاء تصحيح ماكرو ادناه

شكرا للجميع

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

 

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته وبها نبدأ

يرجي رفع ملف للعمل عليه

[Abhsaid]

 

مبيعات.xlsx

[hegazee]

المطلوب غير واضح

تم تعديل يوليو 22, 2024 بواسطه hegazee

[Abhsaid]

شكرا