أبو عبدالإله

السلام عليكم ورحمة الله وبركاته حسي ما فهمت من 0 إلى 69 لاشيء 70 إلى 89 ناجح 90 إلى 99 اجتاز 100 مبدع تفضل إن كان فهمي صحيحا : =LOOKUP(Z7;{0,70,90,100};{"لاشيء","ناجح","اجتاز","مبدع"})

السلام عليكم ورحمة الله وبركاته : جرب هذا المرفق لعله المطلوب اضافة ارقام بشرط.rar

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

السلام عليكم تفضل جرب هذا تحديث الخلايا بنقرة واحدة.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الكريم مخازن.rar

الحمد لله أنه أفادك وفق الله الجميع

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

السلام عليكم ورحمة الله وبركاته : تفضل أخي الكريم لعله يفي بالمطلوب بحث1.rar

السلام عليكم ورحمة الله وبركاته : كل عام وأنتم بخير ، وأسأل الله سبحانه وتعالي أن تكونوا بأفضل حال . قد يرغب بعضنا في تفعيل أكثر من كود مرة واحد من خلال ضغطة زر ، بمعني دمج أكودين أو أكثر في كود واحد ولتفعيل ذلك فهذا كود لدمج أكثر من كود في كود واحد : فإذا تم الضغط على الزر المرتبط بهذا المايكرو سينفذ الأكواد المرتبطة به مباشرة سواء في نفس الشيت أو في المصنف بأكلمه : Sub abuabood() Application.Run "name" Application.Run "name" End Sub يجب أن يتم تغيير كلمة ( name ) إلى اسم الكود الخاص الذي تريد إضافته ملاحظة : في الكود السابق يتم تفعيل كودين مع بعض مباشرة ، وإن رغبت بإضافة كود ثالث أضف : "Application.Run "name" وهكذا .. قد يكون هناك حل أكثر تطورا لخبرائنا في المنتدى ، ولكن هذا قد يفيد المبتدئين أمثالي تحيتي للجميع وللأخ الغالي ياسر أبو البراء

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

شاكر ومقدر لك أستاذي ياسر وهذا هو الملف نموذح.rar

السلام عليكم ورحمة الله وبركاته : هذا كود للأستاذ المبدع ياسر كنت قد طلبته سابقا هل يمكن التعديل عليه لكي يمنع التكرار في حالة الضغط عليه مرة أخرى بمعنى عند الضغط عليه يقوم بجلب البيانات ، وعندما تضغط عليه مرة أخرى يجلب البيانات ويضعها مع البيانات السابقة وأنا أريد أن يحذف البيانات القديمة التي جلبها سابقا عند الضغط عليه مرة أخرى Sub Test() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range Dim lRow As Long Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1") Application.ScreenUpdating = False For Each Cel In WS.Range("H3:H43") If Cel.Value >= 0.9 Then lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 SH.Cells(lRow, "B").Value = Cel.Offset(, 1) ElseIf Cel.Value <= 0.5 Then lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1 SH.Cells(lRow, "H").Value = Cel.Offset(, 1) End If Next Cel Application.ScreenUpdating = True End Sub

الحمد لله أستاذي ياسر تم الحل فكل الشكر لكم

حياك الله أخي محمد سؤال للفائدة أستاذي ياسر : لو كانت قيمة العمود E نص أو أي قيمة ، فماذا أغير في الكود ؟

أحرجتني بطيب أخلاقك بعد تغيير الرقم بـ Rows.Count أصبح العمل كاملا ونموذجيا جدا فلك كل الشكر والتقدير . لاحرمنا الله منك ومن علمك . وجعل ذلك في ميزان حسناتك .

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

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

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

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

تم تعديل الاسم . ولكم خالص الحب والود ..

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

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

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

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

بارك الله فيك على التوضيح أخي خالد الرشيدي . كل الحب والتقدير