كيفية حذف القيم الفارغة والاكتفاء بالحقول التي تحتوي على نص

[مصطفى العراقي1988]

السلام عليكم ورحمة الله وبركاته 

 اخواني كيف اقوم بحذف القيم الفارغة نهائياً في الملف المرفق  

بحيث يتم حذف القيم الفارغة من يوم 1 الى يوم 28 والاكتفاء بالقيم التي تحتوي على نص 

شكراً جزيلاً لكم 

مسودة الاجازات.xlsx

[مصطفى العراقي1988]

علماً ان الملف قد تم اخذ نسخة منه من الاكسس لذلك اواجه مشكلة في حذف الفراغات 

[أبومروان]

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

جرب هذا الكود يقوم بحذف الخلايا الفارغه لعله يفيدك 

Sub DeleteRows()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1
    If Cells(i, 1) = "" Then
        Rows(i).Delete
    End If
Next
End Sub

[مصطفى العراقي1988]

استاذ هل توجد طريقة ابسط 

كوني مبتدء في الاكسل ولا امتلك خبرة ادخال الكودات

[abdelfattahbadawy]

مسودة الاجازات.xlsmأنا أضفت لك الكود فى الملف جرب الكود 

شوف قائمة التشغيل دى أو بدايتها عشان تعرف فين الكود بيتكتب 

 

[مصطفى العراقي1988]

احسن الله اليكم ورضى الله عنكم