أ / محمد صالح

جميعا بإذن الله تعالى

شكرا للكلماتك الطيبة في properties الخاص بها غير value إلى true

لا يوجد في الكود شيء يخص طريقة البحث الكود للبحث بأول الخلية فقط للوصول للمطلوب يمكنك تغيير هذا السطر If Trim(c) Like TextBox28 & "*" Then إلى If Trim(c) Like IIf(Me.OptionButton2, "*", "") & TextBox28 & "*" Then وإضافة هذين الحدثين عند الضغط على طريقة البحث Private Sub OptionButton1_Click() TextBox28_Change End Sub Private Sub OptionButton2_Click() TextBox28_Change End Sub بالتوفيق

الموضوع كما قلت حضرتك بسيط جدا ولا يحتاج استيراد ولا تصدير ولا معادلات فقط تقوم بتصفية filter الاسم المطلوب ثم طباعة على طابعة الويندوز pdf أو استعمال كود تصدير الشيت النشط إلى pdf ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & Filename & ".pdf", , , False بالتوفيق

منطقيا حضرتك لا تحتاج لمعادلة في هذه الحالة فصاحبا هذين الصفين لهما اسمان وكل لجانهما احتياطي لذا يلزمك كتابة اسمهما أسفل الاسمين الاحتياطي يدويا أو بمعادلة بسيطة مثل =sheet1!$c17 =sheet1!$c32 مع سحب المعادلة أفقيا بالتوفيق

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

حل جميل استاذ @ميدو63 رغم أأني أميل للاختصار أكثر وعدم اللخبطة في الترتيب بالتوفيق

كما توقعت المشكلة في نوع بيانات الخلايا D2:G601 حيث أنها نص text وليست رقما number لذلك يجب تحديد النطاق المطلوب ثم الضغط على المثلث الأصفر الذي يظهر أنه يوجد خطأ في هذه الخلايا ثم اختيار تحويل إلى رقم convert to number بعدها أي معادلة سيتم استعمالها وسحبها لأسفل ستعمل بنجاح وهذا ملفك بعد تنفيذ هذه الخطوات بالتوفيق الافواج - Copie.xlsx

جميعا بإذن الله

جميعا بإذن الله

يمكنك استعمال هذه المعادلة في الخلية H4 مع سحبها لأسفل =IF(IF(MOD(ROW(),3)=1,$H$1,IF(MOD(ROW(),3)=2,$H$2,$H$3))<>500,0,F4+G4) وتعني لو باقي قسمة رقم الصف الحالي على3 يساوي 1 يستعمل الخلية h1 ولو الباقي 2 يستعمل h2 وهكذا بالتوفيق

مازال المطلوب غير واضح لي بصورة كافية في الصف السابع مثلا بعد نهاية 3 صفوف هل الشرط يكون مرتبط ب H4 ام ماذا؟

ما المطلوب من المعادلة؟؟؟ هل إذا كان مجموع $H$1:$H$3 لا يساوي 500؟ أم ماذا الشرح باستفاضة يساعدك في الوصول للحل

هذه الميزة متوفرة في تطبيق الصور photos في ويندوز 10 يمكنك مراجعة هذا الرابط بالتوفيق

جميعا بإذن الله

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

يمكنك استعمال هذه المعادلة في الخلية E44 للحصول على القروش =IF(A44>=E43,0,100)+A44-E43 وهذه المعادلة في F44 للحصول على الجنيهات =B44-IF(A44>=E43,0,1)-F43 بالتوفيق

جميعا بإذن الله

الكود يرتب الأسماء المكتوبة فقط يعني لو مكتوب في العمود B خمسين اسم يرتب من B5:B54 وهذا هو التعديل الذي تمت اضافته مني لان الكود القديم يرتب 200 صف بغض النظر عن عدد الأسماء رجاء دراسة الكود جيدا قبل الرد

* بالنسبة لتغيير الهوايات ضمن الاربعة الحاليين فلا مشكلة في معادلات المطلوب الأول (مناسب أو غير مناسب) أما إذا أضفت هوايات جديدة فهذا يلزم إعادة تنظيم للمعادلات لتناسب الوضع الجديد (تغييرات ببسيطة لا تخفى عليك) ولعل حضرتك لاحظت أن النطاق في شيت Data إلى الصف 11 فربما تحتاج إن تزيده إلى 1000 مثلا أو حسب الأعداد لديكم * وكما قلت سابقا المطلوب الثاني يتم عرض أفراد المجموعة كلها واختيار البديل يدويا ويمكنك استعمال معادلات البحث المعروفة لحضرتك في هذا الجدول الذي به أفراد المجموعة للوصول إلى أول فرد بجانبه كلمة مناسب بالتوفيق

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

هو بالفعل يرتب جميع الأعمدة الزوجية التي بها الاسم

في هذه الحالة انصحك بإلغاء تثبيت الاوفيس ثم تثبيته مرة أخرى

إذا كان الهدف اختصار الكود فجرب هذا تم تحويل النطاق من range إلى cells للتحكم في رقم العمود بدلا من الحرف الخاص به Sub mySort() For c = 2 To 48 Step 2 Range(Cells(5, c), Cells(Cells(Rows.Count, c).End(xlUp).Row, c)).Sort Key1:=Cells(5, c), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal Next c MsgBox "Done by mr-mas.com" End Sub بالتوفيق

جرب استعمال هذا السطر Private Sub comboBox1_Change() TextBox1.Value = Evaluate("=MAXIFS(Sheet2!A:A,Sheet2!C:C,""" & ComboBox1.Value & """)+1") End Sub باستعمال maxifs تقريبا تعمل في اوفيس 2013 وما بعده ويمكن استعمال هذا السطر لنسخ الأوفيس القديمة TextBox1.Value = Evaluate("=MAX(IF(""" & ComboBox1.Value & """=(Sheet2!C$2:C$100),(Sheet2!A$2:A$100)+1,1))") بالتوفيق