أحمد يوسف

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

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

عليك برفع الملف تجنبا لإهدار الوقت

تفضل توزيع السكن.xlsx

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

فين الملف ؟!!!!!!!!!!!!!!!!!1

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

هذا الكود بالفعل يحذف كل المسافات فى الجملة

يمكنك تجربة هذا وان لم يكن هذا هو المطلوب فينبغى حليك توضيح للمطلوب بالتفصيل على ملفك بارك الله فيك 1معادلة ضرورية.xlsx

السلام عليكم اهل المنتدى الكرام أريد تعديل هذه المعادلةلكى تأتى بكلمة ترقية اذا كان هذا الموظف يستحق الترقية فعلا بما هو محقق له كما هو وارد ومطابق فى الجدول الموجود فى صفحة Basic - فعلى سبيل المثال فى حالة الموظف الأول أحمد هنا فإنه لا يستحق الترقية,لأن هذا الموظف تلقى اخر ترقية فى عام 2013 بدرجة ب3 واخر تقييم له كان فى 2017 اى بعد مرور 4 سنوات من الترقية الأخيرة ,وبناءا على المعطيات من الجدول الموجود فى صفحة BASIC فإنه يجوز له الترقية من هذه الدرجة الى التى يليها بعد مرور 4 سنوات كما فى هذه الحالة ولكن شرط ان تكون نسبة التقييم ممتاز اى من 90% الى 100% , وهو ما لا يتحقق مع هذا الموظف حيث انه تم تقييمه فى 2017 كان 86% اى تقدير جيد جداً وهو يحتاج الى 6 سنوات بهذا التقييم كى يستحق الترقية فى هذه الحالة بارك الله فيكم اساتذتى الكرام وجزاك الله كل خير اتمنى المساعدة وأرجو ان اكون قد وضحت المشكلة والمعادلة الموجودة بالملف هى: =IFERROR(IF(AVERAGE(I5:L5)>=90%,"ترقية",IF(AVERAGE(I5:L5)>=80%,"ترقية 2019","ترقية 2021")),"") ترقيات.xlsx

اين الملف ؟!!!!!!! عليك برفع ملف وشرح عليه بالتفصيل والتوضيح عما تريد

اخى الكريم مازال هناك غموض ولم توضح شيئا من المطلوب فاناتج المجود بالخلية G14 كيف انحصل عليه بمعنى من اى الخلايا يتم الوصول الى الدرجة الموجودة بالخلية G14 حتى بناءا عليه يتم عمل المعادلة المطلوبة ؟

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

وعليكم السلام هل ينفع بالنسبة لك مسح البيانات من الصفحات الثلاثة بعد الترحيل ام هذا صعب وتريد الإحتفاظ بالبيانات القديمة ؟

وعليكم السلام ليس هناك وجود لهذا !!!!!!!!!!

أستاذى المحترم لماذا تكرر المشاركات لنفس السؤال على الرغم من انه تم الرد من قبل الأستاذ علي محمد ؟!!!!!!!!!!!!!!!! بارك الله فيك

أخى الكريم لما هذه المعضلة عندما لا تحتاج الملف لا تفتحه فهذا لا يحتاج للحيرة والتفكير فى عمل كود لذلك

اخى الكريم لما فكرة الفورم فدائما وابدا العمل على ملف الإكسيل مباشرة افضل واسرع بمراحل من استخدامك الفورم وما هى الفائدة من إستخدام الفورم

أحسنت استاذى الكريم وجزاك الله كل خير وبارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك

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

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

استاذ عبد الرحيم لو ممكن بعد اذن حضرتك تعديل هذا الكود لكى يعمل مضبوط فهو كود لجلب صنف معين بين تاريخين من صفحة الى اخرى جزاك الله كل خير Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Data") Dim T_sh As Worksheet: Set T_sh = Sheets("Search2") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion With T_sh .Range("A2").CurrentRegion.EntireRow.Delete .Range("Q2").Formula = _ "=AND(Data!B2>=$B1$1,Data!B2<=$C1$1,Data!E2=$D$1)" My_Table.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("Q1:Q2"), _ CopyToRange:=.Range("A2") .Range("q2").ClearContents If .Range("A2").Value <> "" Then .Range("A2").CurrentRegion.Columns("B:E").Delete End If .Columns("B:K").AutoFit Application.Goto .Range("B2") End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Search - Copy.xlsm

تفضل الملف مرة اخرى -لاحظ الطريقة بنفسك كلمة سر الأكواد هى 123 __قسيمة مواد غذائية.xlsm

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

اين ملف العمل ؟!!!!!!!!!!!! عليك برفع الملف وشرح بالتفصيل ما تريده