تحية طيبة
برجاء تصحيح ماكرو ادناه
شكرا للجميع
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
السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,
اخفاء الصفوف اذا كانت القيم تساوي صفر و اظهارهم اذا تغيرت القيمة تلقائيا حسب الملف المرفق
و شكرا
ملف.xlsx
تحية طيبة
ارجو مساعدة
اريد نقل المبالغ من ورقة 1 و ورقة 2 الى و رقة3 وفقا لتسمية الاعمدة و تسمية الصفوص
انتبه من فضلك.. مشاركة مكررة , تـــم بالفعل حذف المشاركة الأخرى
salary 2022.xls