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

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

جرب الملف التالي: Distribute Numbers.rar

سؤال أخي الحبيب : هل الملف يعمل بكفاءة في ظل النسبة التي ذكرتها أم لا؟ إذا كان يعمل بكفاءة فما الداعي لزيادة النسبة ..؟ عموما افتح ملف الإكسيل ثم اعمل كليك يمين في شريط المهام ثم Task Manager ثم التبويب Processes ثم اعمل كليك يمين على EXCEL.EXE ثم من Set Prority اختر Real-time

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

جرب هذا الكود ..قمت ببعض التعديلات Sub TarheelTRTN() ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, TR As Long, TN As Integer Dim multipleRange As Range ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("TN").Range("C7:K41").ClearContents Sheets("TR").Range("C7:K40").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات TR = 7: TN = 7 Application.ScreenUpdating = False With Sheets("94") ''' بداية ونهاية صفوف الورقة المصدر For R = 3 To 36 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 85) = "ناجح" Then Set multipleRange = Union(Range("I" & R), Range("O" & R), Range("S" & R), Range("W" & R), Range("AA" & R), Range("AE" & R), Range("AI" & R), Range("AM" & R), Range("AQ" & R)) multipleRange.Copy ''' سيتم اللصق في هذا الشيت Sheets("TN").Range("C" & TR).PasteSpecial xlPasteValues Application.CutCopyMode = False TR = TR + 1 End If '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 85) = "دور ثاني" Then Set multipleRange = Union(Range("I" & R), Range("O" & R), Range("S" & R), Range("W" & R), Range("AA" & R), Range("AE" & R), Range("AI" & R), Range("AM" & R), Range("AQ" & R)) multipleRange.Copy ''' سيتم اللصق في هذا الشيت Sheets("TR").Range("C" & TN).PasteSpecial xlPasteValues Application.CutCopyMode = False TN = TN + 1 End If '''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم الترحيل بنجاح إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End With End Sub

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

نعم يمكن حماية محرر الأكواد بكلمة سر من خلال قائمة أدوات في محرر الأكواد Tools ثم VBAProject Properties ثم التبويب Protection وتقوم بوضع علامة صح أمام الخيار Lock Project For Viewing ثم تكتب كلمة السر وتأكيد كلمة السر ثم أوك .. انتهى بس على فكرة حماية الإكسيل في منتهى الضعف .. لأن فيه برامج بتكسر حماية محرر الأكواد بمنتهى السهولة ..انتهى

لا بصراحة صعبة جدا جدا .. ومحتاجة دماغ أعلى مني (هننتظر الباشمهندس طارق يحلها لنا ..) تقبل تحياتي ..

أخي الحبيب ماجد الفكرة في الصيغة Xlsm هي المطلوبة ، لأن الملف يحتوي على كود .. والصيغة xlsx لا تحفظ الأكواد .. أي أنه إذا أردت حفظ ملف يحتوي على أكواد فإنه يتم حفظه بالامتداد xlsm أو xlsb تقبل تحياتي كابتن ماجد

ببساطة قم بتنصيب أوفيس 2007 أو 2010 أو 2013 .. وتصبح المشكلة لا مشكلة .. هذا هو الحل الوحيد إذا أردت أن تكون بيانات جميع المتدربين في ورقة عمل واحدة .. تقبل تحياتي أخي Members-1 (مقصودة)

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

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

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

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

جزيت خير الجزاء أخي الفاضل أبو عيد على هذا الحل الرائع إثراءاً للموضوع قمت بعمل مرفق فيه حلك ، وحل آخر للإفادة SUMIF VBA.rar

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

روعة أخي الحبيب عبد الباري بارك الله فيك ونفع بك الإسلام والمسلمين وجزاكم الله خير الجزاء

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

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

ببساطة المعادلة اللي تحسب لك النسبة - بفرض إن المبلغ الأصلي 1577 مثلا في الخلية A1 قم بكتابة المعادلة التالية في الخلية B1 =100/A1

ممكن تقسم رقم 100 على المبلغ يطلع لك النسبة بالضبط يعني في مثالك الناتج أو النسبة = 6.34115409004439% اضرب المبلغ 1577 في النسبة 6.34115409004439% يطلع الناتج 100 ، اجمع الـ 100 على المبلغ الأصلي يطلع لك المبلغ الجديد هذا حسب ما قهمت لو كان الأمر غير ذلك يرجى إرفاق ملف بالنتائج المرجوة

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

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

جرب الملف التالي (مش عارف ايه ظروفك معاك ..جرب وأخبرني بالنتيجة) Product List For Each Client Formulas YK.rar

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