أ / محمد صالح

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

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

أحسن الله إليك

يبدو أن مسار الملف في قرص النظام C أعتقد إذا كان في غير قرص النظام لن تحتاج صلاحية التشغيل كمسئول

آمين ولك بالمثل ويزيد

يوجد ملف مرفق في المشاركة الأولى به التنفيذ

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

* يمكن بعمل حماية للخلايا بكلمة مرور هكذا لا يمكن التعديل اليدوي إلا بكتابة كلمة المرور * وبالنسبة لتعديل الخلايا المحمية بالكود فيجب وضع سطر فك الحماية في بداية الإجراء ActiveSheet.UnProtect password:="mas" ويجب وضع سطر الحماية قبل نهاية الإجراء ActiveSheet.Protect password:="mas" حيث mas هي كلمة المرور المطلوبة بالتوفيق

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

المتغير k يزيد بمقدار 1 وهو المسئول عن وضع المواد في الأعمدة من 114 وما بعدها لذا ينبغي تعديل هذه السطور Cells(i, k ) = Cells(4, y - 2) k = k + 1 Else Cells(i, k ) = "" إلى Cells(i, k + (y - 10) / 9) = Cells(4, y - 2) Else Cells(i, k + (y - 10) / 9) = "" لأن y بدايتها 10 والخطوات 9 ويوجد في الفصل الثاني نفس الكود ولكن بداية y هي 16 بالتوفيق

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

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

هذا ملفك بعد التطبيق New Microsoft Excel Worksheet.xlsb

آمين ولك مثل ما دعوت وزيادة

يمكنك إضافة العمود c في الترتيب المطلوب هنا تم اعتباره المستوى الثالث للترتيب Sub a_b() Application.GoTo Reference:="sheet" Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _ , Order2:=xlAscending, Key3:=Range("c7"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal, DataOption3:=xlSortNormal Range("A1").Select End Sub لاحظ إضافة key و order و dataoption لكل مستوى فرز بالتوفيق

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

يمكنك استعمال هذا الاجراء Sub tr7eel() For r = 4 To Cells(Rows.Count, 2).End(3).Row r2 = Evaluate("=MATCH(B" & r & ",'الدور الثانى'!B:B,0)") c2 = Evaluate("=MATCH(C" & r & ",'الدور الثانى'!3:3,0)") Sheet2.Cells(r2, c2) = Range("d" & r) Next r MsgBox "Done by mr-mas.com" End Sub بالتوفيق

السبب في ذلك هو طريقة إدخال البيانات حيث تم التعامل مع التاريخ على أنه نص وليس تاريخا والحل استعمال المعادلة التالية في الخلية G3 =VALUE(F3) مع سحب المعادلة لأسفل ثم نسخ بيانات هذا العمود الجديد ولصقها في عمود التاريخ كقيم مع تنسيق عمود التاريخ كتاريخ بعدها يمكن حذف العمود F بالتوفيق

الكود يقوم بترتيب النطاق المسمى sheet حسب العمود E تصاعدي ثم العمود F تصاعدي ما المطلوب ؟

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

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

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

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

بعض الناس تريد أن تتعلم وبعضهم للأسف يريد الحل جاهزا تم عمل المطلوب بالمرفق بالتوفيق ‏‏برنامج تقييم الزيارات عن بعد للوحدات مكرر - نسخة.xlsb

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