السلام عليكم ورحمة الله نعالى وبركاته
بعد ادن الاستاد أ / محمد صالح بالنسبة لاظهار بيانات اليوم فقط تفضل جرب اخي
Private Sub UserForm_Initialize()
Dim f As Worksheet: Set f = Sheets("ورقة1")
Set d = CreateObject("scripting.dictionary")
Col = f.Range("B4:E" & f.[B65000].End(xlUp).Row).Value
Rng = UBound(Col, 2)
With Me.ListView1
.Gridlines = True
.FullRowSelect = True
.View = lvwReport
.ColumnHeaders.Add , , "code", 0
.ColumnHeaders.Add , , "م", 30, lvwColumnCenter
.ColumnHeaders.Add , , "التاريخ", 80, lvwColumnCenter
.ColumnHeaders.Add , , "اسم العميل", 120, lvwColumnCenter
.ColumnHeaders.Add , , "الرقم ", 60, lvwColumnCenter
Cpt = 1
' من بداية الجدول
' For i = 1 To UBound(Col)
For i = UBound(Col) - 19 To UBound(Col) ' تحديد اخر 20 صف
If Col(i, 2) = Date Then ' شرط تاريخ اليوم
.ListItems.Add , , Col(i, 1)
For k = 1 To Rng
.ListItems(Cpt).ListSubItems.Add , , Col(i, k)
Next k
Cpt = Cpt + 1
End If
Next i
End With
End Sub
listview 2.xlsm