شرح جزء من هذا الكود

[بلانك]

شرح السطرين كما بالصورة المشار اليهما بالسهمين

[محمد هشام.]

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

lr = Cells(Rows.Count, 2).End(3).Row

تحديد رقم الصف الأخير في العمود B الذي يحتوي على بيانات 

End(3)

هي اختصار للخاصية xlUp التي تعني التحرك صعودا في العمود  حتى تصل إلى أول خلية تحتوي على بيانات  

 

    x =  الصف الذي يبدأ منه النطاق المحدد

 

Set my_rg = Range("A" & x & ":A" & lr).SpecialCells(4)

لتحديد الخلايا داخل نطاق معين و هو اختصار للخاصية  xlCellTypeBlanks التي تعني الخلايا الفارغة  

 

 إدن بعد تحديد صف بداية النطاق وليكن مثلا الصف 5

الكود

Option Explicit

Sub test()
    Dim lr As Long, x As Long, my_rg As Range
    On Error Resume Next
    lr = Cells(Rows.Count, 2).End(3).Row
    x = 5
    Set my_rg = Range("A" & x & ":A" & lr).SpecialCells(4)
    If Not my_rg Is Nothing Then
        my_rg.EntireRow.Delete
    End If
    On Error GoTo 0
End Sub

لنفترض ان اخر خلية في العمود B هي 100  إذا كان هناك خلايا فارغة في العمود A ضمن النطاق  A5:A100 سيتم حذف الصفوف التي تحتوي على هذه الخلايا  مع تجاهل الخلايا التي تتضمن قيم أو معادلات 

تم تعديل يناير 23 بواسطه محمد هشام.

[بلانك]

شكرا جزيلا وربنا يبارك فيك