اضافة لليست فيو

[صياد الجراح]

بسم الله الرحمن الرحيم 

أخواني تحية من القلب للقلب 

ومشكورين على المجهود الجبار داخل المنتدى

بعد اذنكم مرفق يوزر فورم  قائمة الليست فيو  محتاج اضافتين وهما 

1-  يحدد عدد الصفوف التى تظهر فى الليست فيو  هو حاليا بيظهر الجدول كامل  انا محتاجه يظهر فيها عدد صفوف محدد مثلا 20 صف

ويكونوه اخر  20 صف فى الجدول 

2- اضافة كود داخل زر المسح لحذف الصف المحدد فى الليست فيو 

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

listview.xlsm

تم تعديل نوفمبر 26, 2023 بواسطه صياد الجراح

[أ / محمد صالح]

لعرض آخر 20 ضف يمكنك تغيير هذا السطر في الاجراء showdata

For frw = 4 To last

إلى

For frw = last - 19 To last

ولخذف الصف المطلوب

Private Sub CommandButton1_Click()
If MsgBox("Are you sure you want to delete this item?", vbYesNo, "Confirm Delete") = vbYes Then
Rows(ListView1.SelectedItem.ListSubItems(1).Text + 3).EntireRow.Delete
showdata
End If
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق

[صياد الجراح]

15 hours ago, أ / محمد صالح said:

For frw = last - 19 To last

 بارك الله فيك اخي محمد الكود ده شغال تمام.  تسلم ايدك 

استذانك في استفسار اخر في نفس الجزئية دى

لو حابب أن اللي يظهر في الليست صفوف العمليات اللي حصلت خلال اليوم فقط

ايه التعديل 

ولك جزيل الشكر 

[محمد هشام.]

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

بعد ادن الاستاد  أ / محمد صالح  بالنسبة لاظهار بيانات اليوم فقط تفضل جرب اخي  

 

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

تم تعديل نوفمبر 28, 2023 بواسطه محمد هشام.

[صياد الجراح]

بارك الله فيك اخى محمد هشام .. لك ودى وتقديرى لشخصك الكريم

وكل الشكر للاستاذ محمد صالح 

لكم ودى وتحياتى