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

طريقة جميلة أخي سليم ولكن جربها مع الخلايا التي لها تنسيق شرطي .. وستعرف أين مكمن المشكلة؟

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

أخي الكريم فك الضغط عن ملفك ثم ضع الكود التالي في الموديول Sub trheel() Set myrange1 = Sheets("Myserch").Range("A1:D2") Set myrange2 = Sheets("Myserch").Range("B5:F5") Sheets("Mydata").Range("B1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2 Set myrange1 = Nothing Set myrange2 = Nothing End Sub في ورقة البحث اكتب في الخلية C5 النص "الرقم الوظيفى" وليس الرقم فقط ، لابد من تطابق أسماء الحقول ثم نفذ الكود

وهذه محاولة أخرى Sub Test() Dim arr, X, I As Long arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Resize(, 4).Value On Error Resume Next For I = LBound(arr, 1) To UBound(arr, 1) X = Split(arr(I, 1), "$") arr(I, 2) = X(0) arr(I, 3) = Replace(X(1), "–", "") arr(I, 4) = X(2) Next I Range("B2").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr End Sub

من غشنا فليس منا ... بارك الله فيك أخي عمر من يحاول مساعدة إخوانه بأن يطرح الموضوع في المنتديات الأجنبية فهذا ليس بغش إنما هي محاولات للتعلم والاستزادة من ذوي الخبرات ، وفي نفس الوقت حل مشكلة أخ في الله ربما لا تساعدة اللغة على أن يقوم بذلك ولا يمكننا أن ننكر أن في المنتديات الأجنبية من يفوقونا في الإمكانيات لأنهم سبقونا ، وهذا لا يعني مطلقاً أننا ليس لدينا إمكانيات وقدرات .. يوجد منا الكثير ممن لديهم موهبة فذة (ومن أمثالهم معلمنا أبو تامر) ولي رجاء أن تفصح عما في صدرك فأنا لا أخفي سراً ، واسمي في المنتديات الأجنبية YasserKhalil (في كل المنتديات الأجنبية التي تخص الإكسيل) ، ولا أنكر أنني ربما أطرح أكثر من موضوع كل يوم ، وحتى في الموضوعات التي لدي حل لها طلباً للمزيد ولمزيد من الإفادة والاستفادة وها هو رابط الموضوع http://www.excelforum.com/excel-programming-vba-macros/1156481-gather-similar-data-in-two-tables.html تقبل تحياتي

الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله كلنا نتعلم من بعضنا البعض أخي وحبيبي مختار ، وكم تعلمت منك الكثير والكثير وما زلت تبهرني بما تقدم ، فجزاك الله خير الجزاء

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

أخي الكريم الشيباني إليك حل بالأكواد .. والنتائج بالنسبة للأرقام لن تكون نصوص بل قيم يمكن التعامل معها وجمعها رابط الكود من هنا

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

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

أخي العزيز الزباري بارك الله فيك وجزيت خيراً الدالة Trim تقوم بحذف المسافات الزائدة أما المسافة الواحدة فلا تحذفها ، ولذا مع وجود مسافة واحدة ستظل كما هي وسيظل الناتج كما هو 4 لذا فإن المعادلة التي قدمها أخونا محمد صبحي تعطي النتيجة المطلوبة حيث يتم استبدال المسافات بلا شيء فتعطي النتائج المطلوبة =LEN(SUBSTITUTE(A1," ","")) تقبل تحياتي

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

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

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

بارك الله فيك أخي الغالي عادل على مشاركتك القيمة والرائعة أخي الكريم حسين طالما أن المعادلة أدت الغرض فقد تم حل المشكلة لأنه ببساطة يمكن تحويل المعادلة إلى كود بالشكل التالي .. Sub Test() With Range("H6:H" & Cells(Rows.Count, 8).End(xlUp).Row) .FormulaR1C1 = "=SUMPRODUCT((تقرير!R4C1:R7C1=tafasil!RC[7])*(tafasil!RC[-3]*تقرير!R4C6:R7C6))+tafasil!RC[-2]" .Value = .Value End With End Sub تقبل تحياتي

أخي الكريم عادل مشكور على كلماتك الطيبة الرقيقة ، وما أنا إلا طالب علم مجتهد وفقط بالنسبة لطلبك .. الأسماء يتم جلبها بشكل تلقائي بحيث يتم تفادي عملية التكرار .. يا إما أنني لا أفهم مقصودك بشكل جيد ..! ولما تريد الإبقاء على الأسماء ؟! مجرد تساؤل أيضاً .. لابد أن تتضح المسألة من جميع الجوانب وإذا عرف السبب بطل العجب وفي انتظار المفاجأة ... يا ترى ايه (علبة جنبة .. فطيرة .. ساندوتش حواوشي من لحمة الحم؟؟ .. !!) حيرتني

قم بإرفاق ملفاتك للعمل عليها .. ويحبذ أن ترفق شكل النتائج المتوقعة

هل ستكون عملية البحث في جميع أوراق العمل أم في ورقة Summary Report فقط؟ وهل المطلوب عمل ملخص أي يتم جلب أسماء السائقين ثم حساب العدد الإجمالي لكل منهم ؟ أم أن أسماء السائقين مسجلة بالفعل وتريد إجراء عملية العد بناءً على نتائج عملية البحث؟ وهل عملية البحث ستشمل جميع الجداول الموجودة ؟ ولي سؤال لما لا يتم تجميع الجداول في جدول واحد فقط .. !!؟

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

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

الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي .. تحيا مصر (وصبح على أبو البراء بجنيه .. هي مصر أحسن مني يعني )

حاول وافشل يكفيك شرف المحاولة ..إليك الدليل

استبدل السطر الذي يحدث به خطأ بالسطر التالي Declare PtrSafe Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer

سلمت من كل سوء أخي الكريم وليد ، وكل عام وأنت بخير

الحمد لله أن تم المطلوب على خير تقبل تحياتي