طباعة تقرير لمجموعة زبائن في فترة معينة

[أبو عبد الملك السوفي]

السلام عليكم

في الملف ادناه شيت به جدول يحتوي على زبائن  اريد كود لتصفية الزبائن حسب الزبون والتاريخ

مثلا اريد ان يكون التقرير في الفتره من 15/08/2020 الى   20/08/2020 للزبون محمد1 ومحمد3 فقط

فالكود يقوم بانشاء تقرير كما في شيت تقرير ..فيقوم الكود باستدعاء المشتريات من الزبون الواقعة بين التاريخين المحددين

Example.xlsm

[أبو عبد الملك السوفي]

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

 

[عبدالفتاح في بي اكسيل]

جرب  هذا  الكود   لعله  المطلوب 

اكتب  في  الخلايا e3,f3   الاسماء بعد  كتابة  التواريخ 

Sub bring_customers()

       Dim CustID As String: CustID = sheet2.[e3].Value
       Dim CustID1 As String: CustID1 = sheet2.[f3].Value
        Dim FromDt As Long: FromDt = sheet2.[d3].Value
        Dim ToDt As Long: ToDt = sheet2.[c3].Value

Application.ScreenUpdating = False
       
        sheet2.[A5].CurrentRegion.Offset(1).Clear
       
        With sheet1.[A2].CurrentRegion
                .AutoFilter 3, CustID, xlOr, CustID1
                .AutoFilter 2, ">=" & FromDt, xlAnd, "<=" & ToDt
                .Offset(1).EntireRow.Copy sheet2.Range("A" & Rows.Count).End(3)(2)
                .AutoFilter
        End With
       
Application.ScreenUpdating = True

End Sub

 

Example.xlsm

[عبدالفتاح في بي اكسيل]

اخي الكريم اليس هذا  ما طلبته  انا  لا اعمل  على  التخمين  كان وجب  عليك  توضيح  ذلك  من  البداية  

[أبو عبد الملك السوفي]

جزاك الله خيرا

نعم ربما المطلوب فيه لبس ولم يوضح جيدا

فقد ضربت مثلا فيه موردين فقط 

...لكن المطلوب ان يكون الموردين من 1 الى ربما قد يصل حتى 100 مورد

 

[أبو عبد الملك السوفي]

للرفع بورك فيكم

 

[أبو عبد الملك السوفي]

للرفع بورك فيكم