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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





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

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



15-09-2018 08:31 مساء
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 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 مرات التحميل :(14)
الحجم :(174.249) KB







15-09-2018 09:02 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 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]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 177
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 5
قوة السمعة : 313
الاعجاب : 132
 offline 
look/images/icons/i1.gif تعديل كود البحث وجلب البيانات بالفلترة ليشمل صفحتين
شكرا لك استاذى الكريم ياسر على سرعة الرد
ولكن هذا الكود لا يقوم بجلب البيانات الا من الصفحة الخامسة Return(1)
اتمنى ان يكون هناك حل
جزاك الله كل خير استاذى الكريم وياريت طبعا بعد اذن حضرتك يكون الكود بدون زر تفعيل اى بمجرد تغيير واختيار البيانات المفلترة
ولكم جزيل الشكر بارك الله فيك استاذى

OF6b2UlbsMbBjTK
 
 






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

أثارت هذه المشاركة إعجاب: مهند محسن، محمد النيل،




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





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

أثارت هذه المشاركة إعجاب: مهند محسن، محمد النيل،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث بمجرد كتابه اول حرف من التكست بوكس ali mohamed ali
20 1036 aljathmai
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
2 70 هانى على
البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى emad ghazi
14 476 abdoo_fox
إضافة تنسيقات شرطية أو تغييرها أو البحث عنها أو مسحها فى اكسيل عبدالجيد
4 78 YasserKhalil
البحث داخل القوائم المنسدلة Validation Lists YasserKhalil
46 2551 YasserKhalil

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


 







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



الساعة الآن 10:14 صباحا

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