كيف عمل استعلام بين تاريخين وجلب البيانات من جميع الشيتات

[عمر ضاحى]

السلام عليكم اساتذتى الكرام

تحية طيبه للجميع وبعد؛

بعد اذن حضراتكم 

انا كنت عملت موضوع بعنوان ((  إنشاء استعلام عن قيم ونصوص معينه تحت شرط معين   ))

 

ولله الحمد اجابنى استاذى الفاضل احمدزمان

وكان لى استفسارات اخرى لكن للاسف لم يستطع احد ان يجيب عن استفساراتى فى الموضوع السابق 

 

وانا اليوم بعد اذنكم كنت محتاج اطور الكود ده 

بالاتى 

1- كيف ادمج بين مفتاح الاستعلام بالشروط فى عمليت الفلتره 

2- كيف عمل قائمة استطيع ان اختار منها اسم مخزن (المخزن هنا هو اسم الشيت) او عدة مخازن لتحقيق شرط معين يأتى تاليا

3- كيف استعلم بين تاريخين عن جميع الارصده  بمعني ( عند وضع تاريخين يقوم البرنامج بالبحث لى عن جميع الفواتير فى جميع المخازن اذا لم اقوم بتحديد مخازن معينه )

4- وعندما اريد ان اطبع النتائج اريد ان تظهر لى النتائج بصورة معينه دون طباعة صف الادوات ويظهر لى كتقرير ويتم وضع شعار وابيانات اريد وضعها فيما بعد

 

اسف ان طلباتي كثير لكن هنا عمالقة الاكسيل لا يصعب عليهم شئ من هذا 

 

وشكرا للجميع مقدما

 

 

TEST2.xlsm

[احمدزمان]

وعليكم السلام

نصيحة و لتسهيل العمل على الملف

لو كان الملف يخصني

اجمع جميع المستودعات في شيت واحد واضف عمود به اسم المستودع

ثم

اضف خاصية بالكود

بحيث لا يتم اضافة اي بيانات الا بعد تحديد اسم المستودع

 

[عمر ضاحى]

للاسف لا استطيع فعل ذلك بسبب عدة مشاكل

 اولا الملف المرفق ما هو الا ملف صغير  من الملف الكبير 

فبالتالى نقل جميع الداتا فى شيت واحد هيكون الشيت مره كبير وصعب التعامل معاه لان حجم الملف كبير

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

 

فلو امكن ايجاد حل اخر غير الدمج بين الشيتات لانه صعب على الان لان حجم الداتا كبير والملف وهو على هذا الوضع من التجذئه ثقيل فما بالك لو تم دمج كل شئ 

 

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

فانا باحاول اجد حل لكن كلها مش مطلعه اى معلومه 

حتى انى حاولة ان اعدل على الكود لكن لم يأتى لى بنتيجه 

 

واسف ان اطلب منك عمل صعب مثل هذا

[عبدللرحيم]

بعد إذن أستادنا احمدزمان

تفضل أخى عمر ضاحى

 

 

okk_TEST2.xlsm

[عمر ضاحى]

استاذي  عبدللرحيم    الله يعطيك الف عافيه ويبارك فيك

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

[عبدللرحيم]

تريد التاريخين وارد / منصرف

[عمر ضاحى]

لا الاستعلام شغال تمام 

لكن انا عاوز فقط يعطينى الوارد فقط كمثال او المنصرف فقط 

لان لما بابحث الان بيجبلى الوارد والمنصرف وبيأخذ وقت طويل نسبيا لحد ما يخلص 

اما فى حالة الوارد فقط اعتقد انه هيقلل الوقت للنصف 

 

[عبدللرحيم]

تقصد شرط التاريخين مع الوارد أو المنصرف

أو بحث الوارد أو المنصرف بدون شرط التواريخ

[عمر ضاحى]

شرط التاريخ زى ما هو  (لانه هو الاصل فى الاستعلام ) فقط بدل ما يظهرلى الجميع يظهرلى الوارد فقط

[عبدللرحيم]

سهل إن شاء الله

[عبدللرحيم]

تفضل أخى عمر ضاحى

 

okk_TEST2.xlsm

[Ali Mohamed Ali]

احسنت استاذ عبد الرحيم بارك الله فيك

 

[عمر ضاحى]

الف الف شكر لحضرتك استاذ عبدالرحيم

هل لى ان اطلب منك شرح للكود وايه الذى تم تغير ه  ولما تم تغير وما عمل هذه المتغيرات 

 

وفى الكود بيعطينى اسم الشيت الذى فيه العنصر 

هل يمكن تحويل الاسم الى رابط ؟؟ بحيث بمجرد ما اضغط عليه يحولنى الى الشيت مباشرتا حتى لو كانت مختفيه

 

انا اسف انى باطلب منكم الكثير لكن حابب اتعلم منكم  

لانى اشعر وكأني وجدت كنز من المعلومات وحابب ان استفيد منكم قدر الامكان

[عبدللرحيم]

تشرفت بمرورك أستاذى الغالى ali mohamed ali

والله المستعان على طلبك 

أخى عمر ضاحى

[احمدزمان]

10 ساعات مضت, عبدللرحيم said:

تفضل أخى عمر ضاحى

 

okk_TEST2.xlsm

رائع بارك الله فيك

[عبدللرحيم]

وبارك الله فيك أستاذى الغالى احمدزمان

جارى التنفيذ أخى عمر ضاحى

الله المستعان

[عمر ضاحى]

في ١٣‏/١٠‏/٢٠١٨ at 10:56, عبدللرحيم said:

وبارك الله فيك أستاذى الغالى احمدزمان

جارى التنفيذ أخى عمر ضاحى

الله المستعان

 

استاذ عبدالرحمن 

اولا اشكر حضرتك على مجهودك 

ولى استفسار اخر 

انا دلوقتى حضرتك حطيت 

الكود ده 

If QQ = ("وارد") Then
Q4 = ("وارد")
Else
Q4 = ("")
End If

علشان تنفذ الشرط وهو شغال تمام 

لكن لما باختار من القائمة الكل (ال هو الوارد والمنصرف) بيجبلى فقط المنصرف 

يعنى فى حالة اني عاوز الاثنين محتاج اعمل ايه ؟

 

[عبدللرحيم]

تفضل تعديل الكل / وارد / منصرف

جارى العمل على لينك الشيت

 

okk_TEST2.xlsm

[أحمد يوسف]

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

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

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

Sub filter_for_ME()
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    Dim S_sh As Worksheet: Set S_sh = Sheets("Data")
    Dim T_sh As Worksheet: Set T_sh = Sheets("Search2")
    Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion
    With T_sh
        .Range("A2").CurrentRegion.EntireRow.Delete
        .Range("Q2").Formula = _
        "=AND(Data!B2>=$B1$1,Data!B2<=$C1$1,Data!E2=$D$1)"
        My_Table.AdvancedFilter Action:=xlFilterCopy, _
                                CriteriaRange:=.Range("Q1:Q2"), _
                                CopyToRange:=.Range("A2")
        .Range("q2").ClearContents
        If .Range("A2").Value <> "" Then
            .Range("A2").CurrentRegion.Columns("B:E").Delete
        End If
        .Columns("B:K").AutoFit
        Application.Goto .Range("B2")
    End With
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

 

Search - Copy.xlsm

[عمر ضاحى]

7 ساعات مضت, عبدللرحيم said:

تفضل تعديل الكل / وارد / منصرف

جارى العمل على لينك الشيت

 

okk_TEST2.xlsm

 

 

الف شكر لك شغال تمام 

انا شايف هذا الكود 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Long
On Error GoTo 1
If Not Intersect(Target.Cells(1, 1), Range("q11").Resize(Me.UsedRange.Rows.Count)) Is Nothing Then
    If IsNumeric(CStr(Target.Cells(1, 1))) Then
        R = Target.Cells(1, 1)
        Cancel = True
        With Sheets(TEAK - WOOD)
' Worksheets("البحث في المكتبة")
            .Select
            .Cells(R, "A").Select
        End With
    End If
End If
1:
End Sub

 

وايضا 

هذا الكود 

 

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'حدث النقر المزدوج
On Error GoTo 1
Application.ScreenUpdating = False 'True
  ListBox3.Enabled = True
  ListBox2.SetFocus 'تنشيط الست بوكس 2
 ListBox3.SetFocus 'تنشيط الست بوكس 3
    For I = 0 To ListBox1.ListCount - 1
           If ListBox1.Selected(I) = True Then 'اذا تم تحديد في الست بكس الاولى
              ListBox2.Selected(I) = True 'فإنه يتم تحديدنفس المكان في الست بكس الثانية
              ListBox3.Selected(I) = True
              vas = ListBox2.Value 'وهنا يعطينا قيمة الصف لما تم تحديدة في الست بكس
           End If
    Next I
          If ListBox3.ListIndex > -1 Then
             Sheets(ListBox3.Value).Activate ' كود تحديد الشيت
          End If
              Application.Goto Range(Cells(vas, 2), Cells(vas, 9)), True 'كود تحديد مكان صف البحث
1:


ListBox3.Enabled = False
Application.ScreenUpdating = True
End Sub

فهل لهم فائدة فى استفسارى ؟

وايضا كان نفسي حضرتك تعمل فيديو شرح لالية العمل هذا الكود وكيف جعلت الشرط يتحقق فى الثلاث حالات 

حتى يستفاد غيرى من هذه الاعمال الرائعه 

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

[عبدللرحيم]

تفضل أخى أحمد يوسف

أخى عمر ضاحى هذه الأكواد محاولات لتنفيذ

طلبك لينك الذهاب الشيت

فأصبر معى قليلا

 

 

OK_Search - Copy.xlsm

تم تعديل أكتوبر 17, 2018 بواسطه عبدللرحيم

[عمر ضاحى]

الف الف شكر لحضرتك واسف انى تعبت حضرتك

وربنا يوسع عليك ويجزيك عنا كل خير 

[أحمد يوسف]

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

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

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

.

 

[عبدللرحيم]

نعم أخى أحمد يوسف

ولكن الكود المطلوب يجلب بيانات الصفحة كاملة وليس أعمدة معينة منها

والكود المرسل بالملف لك يجلب أعمدة مختارة لصنف بين تاريخين

فماذا تختار

تم تعديل أكتوبر 17, 2018 بواسطه عبدللرحيم

[أحمد يوسف]

أحسنت استاذى الكريم وجزاك الله كل خير وبارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك