أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil اكثر من 350 لعبة فلاش للأطفال مجمعه في برنامج واحد Y-GAMES اكسيل اسئله واجابات


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين

السلام عليكم الأساتذة والخبراء الكرام أرجو مساعدتى فى إستدعاء بالفلترة من صفحتين ,الأن الكود يعمل بكفاءة فى إحضار البيان ..



15-09-2018 08:31 مساء
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 334
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 463
الاعجاب : 5
 offline 

gpDCPpd3quF8BrOالسلام عليكم الأساتذة والخبراء الكرام
أرجو مساعدتى فى
إستدعاء بالفلترة من صفحتين ,الأن الكود يعمل بكفاءة فى إحضار البيانات ولكن من صفحة واحدة
وهى Sales(1)
أريده ان يجلب ايضا البيانات من صفحة Return(1)مع الصفحة السابقة
ولكم جزيل الشكر بارك الله فيكم
Option Explicit
Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("sales(1)")
Dim T_sh As Worksheet: Set T_sh = Sheets("Search")
Dim My_Table As Range: Set My_Table = S_sh.Range("B3").CurrentRegion

T_sh.Range("B6").CurrentRegion.ClearContents
T_sh.Range("q2").Formula = "=AND($B3=Search!$B$3,$C3=Search!$C$3,Search!$D$3=$D3,Search!$E$3=$E3,Search!$F$3=$F3,Search!$G$3=$G3,Search!$H$3=$H3,)"

My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _
CopyToRange:=T_sh.Range("B5:M5")
T_sh.Range("q2").ClearContents
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub
Sub Alsqr()
Sheet3.Range("B2:M10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet6.Range("B2:H3"), CopyToRange:=Sheet6.Range("B5:M5"), Unique:=False
End Sub

Sub Alsqrr()
Dim lr As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
If lr = 5 Then: Exit Sub
Sheet6.Range("B6:M" & lr).ClearContents
End Sub





Advanced Filter.rar


 
 
 
  Advanced Filter.rar   تحميل rar مرات التحميل :(15)
الحجم :(174.249) KB







15-09-2018 09:02 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
أخي الكريم مهند
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim lr As Long
    
    Sheet3.Range("B2:M10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet6.Range("B2:H3"), CopyToRange:=Sheet6.Range("B5:M5"), Unique:=False
    lr = Sheet6.Cells(Rows.Count, 2).End(xlUp)(2).Row
    Sheet5.Range("B2:M10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet6.Range("B2:H3"), CopyToRange:=Sheet6.Range("B" & lr & ":M" & lr), Unique:=False
    Sheet6.Rows(lr).Delete
End Sub





15-09-2018 09:26 مساء
مشاهدة مشاركة منفردة [2]
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 334
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 463
الاعجاب : 5
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
شكرا لك استاذى الكريم ياسر على سرعة الرد
ولكن هذا الكود لا يقوم بجلب البيانات الا من الصفحة الخامسة Return(1)
اتمنى ان يكون هناك حل
جزاك الله كل خير استاذى الكريم وياريت طبعا بعد اذن حضرتك يكون الكود بدون زر تفعيل اى بمجرد تغيير واختيار البيانات المفلترة
ولكم جزيل الشكر بارك الله فيك استاذى

OF6b2UlbsMbBjTK
 
 






16-09-2018 05:26 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
الكود يعمل على نفس الشروط من ورقتي العمل .. ولا أدري لما لا يعمل لديك؟
ضع بعض النتائج المتوقعة للإطلاع عليها ، كما يرجى تجربة الكود مرة أخرى 





16-09-2018 01:03 مساء
مشاهدة مشاركة منفردة [4]
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 334
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 463
الاعجاب : 5
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
اسف لك استاذى الكريم يعمل الكود الأن بكل كفاءة جزاك الله كل خير
ولكن هل يمكن جعله بدون زر بمجرد اختيار البنود يتم جلب البيانات بناءا لما اخترته
بارك الله فيك وجعله فى ميزان حسناتك
 





16-09-2018 04:36 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
يمكنك في حدث ورقة العمل في الخلايا المطلوب التعامل معها عمل Call أي استدعاء للكود وإن كنت لا أحبذ ذلك .. فالتعامل مع الأزرار أفضل حيث أنك ستقوم بتنفيذ الكود مرة واحدة عند اللزوم
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث بشرطين mo7mad2008
4 123 مجدى يونس
مشكلة في تنفيد كود البحث في لليست بوكس المبتدأ
3 150 YasserKhalil
البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى OmarGad
4 246 OmarGad
البحث و الاستعلام فى الاكسال salim5d
9 201 Eslam Abdullah
البحث من خلال الكومبوكس المبتدأ
5 131 YasserKhalil

الكلمات الدلالية
تعديل ، البحث ، وجلب ، البيانات ، بالفلترة ، ليشمل ، صفحتين ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:16 مساء

أعلن هنا
أعلن هنا
أعلن هنا