مشكلة بدالة VLOOKUP & MATCH

[أبوبسمله]

السلام عليكم ورحمة الله وبركاته اخوانى الكرام لا اعلم لماذا لم تعمل لدى دالة فولك اب مع ماتش فى الخليتين باللون الاحمر وهل سيكون هناك مشكله عند ضبط هذه الدوال بالاخص مع الخليتين Q & R التى باللون الازرق مع الخلايا التى باللون الازرق بالعمود D & E قمت بعمل ماكرو لدمج الخلايا اللتى بها نفس رقم الموظف وكذلك نفس الاسم والمدى من a2:b4585 اريد ان اجعلها تعمل تلقائى بدل ما اقوم بتحديد الخلايا وباعدين اقوم بتشغيل الماكرو بمعنى ان يقوم الكود بالبحث عن الخلايا المتاطبقه للرقم ويقوم بدمجها مع بعض وكذلك الاسم أرجو ان لا اكون قد اثقلت عليكم وجزاكم الله خيرا

[رجب جاويش]

أخى الفاضل أحمد

لا يوجد ملف مرفق

 

[أبوبسمله]

اعتذر عن هذا الخطأ ولكنى اعانى مشكله بالمتصفحات ورفعت على الميديا فاير لحين حل هذه المشكله http://www.mediafire.com/download/hxcplxup182x1lk/2016.rar وجزاكم الله خيرا

تم تعديل فبراير 5, 2016 بواسطه أحمد الفلاحجى

[أبوبسمله]

مرفق الملف هنا بالمنتدى 

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

2016.rar

[أبوبسمله]

للرفع

وجزاكم الله كل خير اخوانى الكرام

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

أخي الكريم أحمد

جرب المعادلة التالية في الخلية I3

=INDEX($B$1:$B$100,MATCH(""&$H3&"",$A$1:$A$100,0))

والمعادلة التالية في الخلية J3 ..

=INDEX($D$1:$D$100,MATCH(""&$H3&"",$A$1:$A$100,0)+COLUMN()-10)

ثم قم بسحبها عبر الأعمدة .. ولكن يجب أن تكون البنود بنفس الترتيب لا كما رأيت من أن هناك بنود زائدة في بعض الموظفين وبنفس الاسم !!

إذا كان ولابد من هذه البنود لما لا تجعلها ثابتة مع كل الموظفين و تغير بند منهم للتمييز بينها؟!

 

[أبوبسمله]

للاسف هذا الملف قد اتانى من الاداره عبر برنامج مرتبات

ومطلوب منى تنسيقه واستخراج اجزاء معينه من هذه البيانات فان قمت بها على النحو التالى فسيجن جنونى فاردت تبسيط الامر على نفسى لتسهيل العمل

فانتظر رايك اخى ياسر  وهل ما طلبته بالنسبه للماكرو ينفع ام لا اخى

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

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

استبعاد القيمه الاصغر فى ولاء و إنتماء وهى مبالغ بسيطه ونكتفى بالثانيه وهى المطلوبه لى بالبيان

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

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

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

تقبل تحياتي

[أبوبسمله]

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

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

طيب ايه أول حاجة نحب نبدأ بيها ..حدد حاجة واحدة عشان تلاقي استجابة أفضل أخي الغالي أحمد

تقبل تحياتي

[أبوبسمله]

حاضر اخى ياسر وجزاك الله كل خير اود ضبط الاكواد الخاصه بالبحث مع استبعاد القيمه الاصغر فى ولاء و إنتماء وهى مبالغ بسيطه ونكتفى بالثانيه وهى المطلوبه لى بالبيان وجزاكم الله كل خير

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

جرب الكود التالي لعملية الدمج (يتم تنفيذ الكود مرة واحدة فقط) .. حاول ترفق شكل النتائج المتوقعة ..

Sub MergeDataWithBlankCellsBelow()
    Dim Col As Range, Ar As Range
    On Error Resume Next
    
    Application.DisplayAlerts = False
        For Each Ar In Range("A2:A" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas
            Ar.Offset(-1).Resize(Ar.Rows.Count + 1).Merge
        Next Ar
        
        For Each Ar In Range("B2:B" & Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas
            Ar.Offset(-1).Resize(Ar.Rows.Count + 1).Merge
        Next Ar
    Application.DisplayAlerts = True
End Sub

أعرف أن هذا ليس طلبك الأخير ولكني لاحظت الطلب في الملف المرفق فعملت عليه كبداية ..

 

[أبوبسمله]

اخى ياسر جزاك الله خيرا انتظرك لتكملة الملف اخى ياسر بارك الله فيك

كود الدمج يعمل بشكل رائع جزاك الله كل خير بانتظار تكملة الجزء الاول وجزاك الله كل خير

[أبوبسمله]

للرفع

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

 

[أبوبسمله]

للرفع

 

تم تعديل فبراير 7, 2016 بواسطه أحمد الفلاحجى

[أبوبسمله]

جزاكم الله كل خير اخوانى

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

ارجو منكم تحملى بارك الله فيكم

[أبوبسمله]

توجد مشكله بكود الدمج لا اعلم ما هى

لا يتم التنفيذ

ارجو مساعدتكم اخوانى

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

2016-1.rar

[أبوبسمله]

للرفع وجزاكم الله كل خير

[أبوبسمله]

للرفع