برجاء المساعدة فى دالة بحث

[سيد هاشم]

السلام عليكم

شكر خاص لكل القائمين بتقديم المساعدة للاعضاء الكرام

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

 

oso.rar

[سيد هاشم]

يا مسهل يا رب

[علاء رسلان]

و عليكم السلام و رحمة الله و بركاته

أولا أود توجيهك الى هذا الموضوع بالرابط التالى

http://www.officena.net/ib/index.php?showtopic=60147

و هذا حتى يكون لديك إلمام تام بقوانين المنتدى و شروطه التى لا يستغرق قرأتها منك سوى خمس دقائق ستوفر عليك و على القائمين عناء أسئلة و استفسارات كثيرة

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

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

[سيد هاشم]

و عليكم السلام و رحمة الله و بركاته

أولا أود توجيهك الى هذا الموضوع بالرابط التالى

http://www.officena.net/ib/index.php?showtopic=60147

و هذا حتى يكون لديك إلمام تام بقوانين المنتدى و شروطه التى لا يستغرق قرأتها منك سوى خمس دقائق ستوفر عليك و على القائمين عناء أسئلة و استفسارات كثيرة

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

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

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

اولا اعتذر ان كان هناك ما تراه غير مرتب فى طلبى لعدم خبرتى كثيرا فى الاكسل

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

ولكنى ام اتوفق فى ما اريده وهو ان يكون هناك اكثر من شرط لتحقق ظهور البيانات عند اختيار شرط اخر مع الشرط الاول وهو القطاع  فطلبى هو عند اختيار القطاع ان يظهر كل ما يخص الطقاع وعندما ازيد شرط اخر وهو الصنف فى الخلية I3 ان تتم الفلترة على الشرطين وعن اختيار المورد من الخلية  O2  ان يتم ظهور البيانات التى قمت باختيارها حتى نصل الى الخلية O3 وبذلك اكون قد قمت بجلب البيانات لقطاع محدد اخذ نفس الصنف من نفس المورد بنفس رقم ال  LPO 

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

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

[سيد هاشم]

 

     رمضان جانا ... شهر رمضان ميارك عليكم جميعا باذن الله

 

[علاء رسلان]

رمضان مبارك ان شاء الله و كل سنة و أنت بخير

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

[سيد هاشم]

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

شكرا لاهتمامك

[سيد هاشم]

السلام عليكم و رحمة الله

حتي الان لم اتمكن من الوصول الي اي نتيجة

منتظركم

[علاء رسلان]

السلام عليكم

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

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

دمت بخير و أعزك الله

osoByAR.rar

[علاء رسلان]

السلام عليكم

الأصدار الثانى

انفراج بعض الشئ من التكدير و الهم و خطوة ثانية إضافية على الملف السابق حيث اكتشفت انه عند اختيار ( الكل ) لا يحدث شئ و واتتنى فكرة أخرى لماذا لا يكون هناك عمود اضافى آخر يحتوى على كلمة الكل ثم جاءت فكرة أكثر قوة لماذا عمود أضافى آخر و بالأساس انا مخنوق من العمود الأضافى الأول و مازلت أفكر كيف يمكننى الأستغناء عنه و لكن على أى حال عمود اضافى واحد أفضل من عدة أعمدة أضافية و الفكرة الجديدة عندما يختار الكل و هى ليست من ضمن عمود القطاع يعرض كل شئ و الفكرة بالمرفق لمن يحب الاطلاع عليها الحقيقة جعلتنى سعيدا بعض الشئ و مازلت أفكر فى تنفيذ بقية المطلوب

دمتم بخير و أعزكم الله

osoByAR 2.rar

[ياسر خليل أبو البراء]

أخي الحبيب الغالي علاء رسلان

بارك الله فيك وجزاك الله خير الجزاء على مساهماتك الفعالة في المنتدى ومحاولة مساعدة الآخرين والمشاركة المستميتة بالموضوعات والمحاولة قدر الإمكان (وهذا ما أرغبه من الجميع)

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

عفواً إن كنت قد اطلت عليكم ، بس يلا أديني بسلي صيامكم

جرب الملف التالي عله يفي بالغرض

Sub FilterData()
    Dim LastRow As Long
    LastRow = Sheets("ورقة2").Cells(Rows.Count, 4).End(xlUp).Row
    
    Sheets("Sheet3").Range("G5:N1000").ClearContents
    Sheets("ورقة2").Range("D4:L" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet3").Range("P1:S2"), CopyToRange:=Sheets("Sheet3").Range("G4:M4"), Unique:=True
End Sub

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

تقبل تحياتي وكل عام وأنت بخير

Advanced Filter YasserKhalil.rar

[سيد هاشم]

السلام عليكم ورحمة الله

اخى الحبيب الغالى  .... والله العظيم اعلم تماما مدى العناء واليأس الذى اصابك (اسف جدا جدا جدا) .

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

لقد بدأت فى كتابة الرد دون ان اقوم برؤية الملفات المرفقة من شدة فرحى

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

[علاء رسلان]

السلام عليكم و رحمة الله و بركاته

بين الأمل و اليأس و ارتفاع المعنويات و انخفاضها .. ابحث عن حل يختلف عن حل أخى الكريم ياسر خليل

و الملف المرفق هو أولى خطواتى المتعثرة نحو عالم VBA

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

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

حل أخى الحبيب ياسر خليل رائع للغاية و لكن ما أفكر به مختلف تمام الأختلاف ..

اريد أن أعرف كيف أتجاهل أو أستبعد الخلايا الفارغة ( حيث الكود يختار كل شئ من الأعمدة ) أكرر هذه أولى محاولاتى و لقد قرأت الكثير فى VBA

و شاهدت عشرات الفيديوهات و أطلعت على العديد من المواقع .. لغتى الأنجليزية لا بأس بها و لكن لا تؤهلنى للبحث بقوة أكثر و شاهدت موضوع أخى الكريم ياسر عن VBA

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

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

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

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

دمتم بخير و أعزكم الله .

 

 

YasserHelp.rar

[ياسر خليل أبو البراء]

أخي الحبيب علاء رسلان

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

إليك حل مشابه للحل الذي قدمته في المشاركة رقم 11 إلا أنه لا يعتمد على نطاق ثابت بل إنه يتم إنشاء النطاق الخاص بالشروط في آخر الأعمدة في ورقة العمل التي تظهر فيها النتائج ثم بعد تنفيذ الكود يتم مسح البيانات لجدول الشروط ..

التصفية المتقدمة أسهل الطرق وأيسرها لتنفيذ المطلوب .. إذا كانت الخلية فارغة لأي خلية من خلايا الشرط فهذا يعني أنه يتم جلب كل البيانات بدون اللجوء إلى كلمة " الكل" أو خلافه ... جرب تترك كل الخلايا B2 و B3 و H2 و H3 فارغة .. ونفذ الكود ستجد أن البيانات جميعها يتم جلبها ... ولو اخترت أي شرط سيتم جلب البيانات المرتبطة بهذا الشرط

إليك الكود مع شرح لأسطر الكود لعله يروي ظمأك

Sub AdvancedFilterUsingConditionsArray()
'يقوم الكود بالتصفية المتقدمة للبيانات بشروط والشروط لا توجد في نطاق بل يتم إنشائها ثم مسحها
'------------------------------------------------------------------------------------------
  Dim LastRow As Long, Rng As Range, Header, Criteria, I As Long
'بدء التعامل مع ورقة النتائج المطلوب فيها فرز البيانات
  With Sheets("التقرير")
'تعيين آخر صف به بيانات في ورقة البيانات الرئيسية
    LastRow = Sheets("التوريدات").Cells(Rows.Count, "A").End(xlUp).Row
'وضع عناوين الشروط
    Header = Array("وارد لقطاع", "الصنف", "اسم المورد", "رقم LPO")
'تحديد النطاق الذي ستوضع به الشروط
    Set Rng = .Cells(1, Columns.Count).Offset(, -UBound(Header)).Resize(, UBound(Header) + 1)
'النطاق يساوي عناوين الشروط
    Rng.Value = Header
'تعيين الشروط في الخلايا المحددة داخل المصفوفة
    Criteria = Array("B2", "B3", "H2", "H3")
'حلقة تكرارية للشروط
    For I = LBound(Criteria) To UBound(Criteria)
'إذا كانت الخلية التي بها الشرط فارغة يتم إضافة علامة لا يساوي وإلا يظل الشرط كما هو
        Criteria(I) = IIf(.Range(Criteria(I)) = "", "<>", .Range(Criteria(I)))
    Next I
'النطاق الذي ستوضع به الشروط في الصف التالي توضع به الشروط الجديدة
    Rng.Offset(1).Value = Criteria
'التعامل مع ورقة البيانات الرئيسية لعمل التصفية المتقدمة
    Sheets("التوريدات").Range("A4:I" & LastRow).AdvancedFilter _
       Action:=xlFilterCopy, _
       CriteriaRange:=Rng.CurrentRegion, _
       CopyToRange:=.Range("A4:H4"), Unique:=True
'مسح النطاق الذي تم وضع الشروط به
    Rng.CurrentRegion.ClearContents
  End With
End Sub

أرجو أن يكون الكود مفيد

تقبل تحياتي

Advanced Filter Without Criteria Table.rar

[سيد هاشم]

السلام عليكم ورحمة الله وبركاته

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

لقد تم حل الشيت بفضل الله ثم فضلكم  فلكم وافر الشكر والتحية .

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

مرة اخرى اشكركم من كل قلبى لحرصكم على الافادة

جعله الله فى ميزان حسناتكم