اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

Example.xlsm

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

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

اكتب  في  الخلايا 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

  • Like 3
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information