إخفاء أو فلترة الصفوف الفارغة بالليست بوكس

[حواديت]

لو سمحتم ممكن حد يقولى فى كود يخفيلى او يفلتر الصفوف الفاضيه فى اليست بوكس اللى فى الصورة

تــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

[هانى محمد]

لعدم اهدار واضاعة وقت الأساتذة دون جدوى أو أهمية  ... فلا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب , فلايمكن العمل على التخمين ... فاذا تخيلت ما تريد هل ينفع معك هذا الكود , وان لم يصلح معك فكما اخبرتك أدى هذا بدوره الى اضاعة الوقت دون جدوى

Private Sub UserForm_Initialize()
    Dim MyData As Range
    Dim r As Long
    With Me.ListBox1
        .RowSource = ""
        Set MyData = Worksheets("Sheet1").Range("A2:j100")
        .List = MyData.Cells.Value
        For r = .ListCount - 1 To 0 Step -1
            If .List(r, 3) = "" Then
                .RemoveItem r
            End If
        Next r
    End With
End Sub

 

[حواديت]

متشكر لحضرتك جدا