أ / محمد صالح

إذا تم تحويل الجدول إلى نطاق convert table to range من تبويب تصميم الجدول table design مع تغيير العمود E في هذا السطر Range("b2:h" & Cells(Rows.Count, "E").End(xlUp).Row).Copy إلى العمود B ستحصل على ما تريد بالتوفيق

مادام الأمر لا ينفذ على جميع ملفات الوورد والاكسل فربما يحتاج برنامج الأوفيس إلى عمل إصلاح repair من خلال ازالة البرامج uninstall programs في لوحة التحكم control panel ولكن تختار اصلاح وليس الغاء تثبيت بالتوفيق

يمكن استخدام For I = 1 to ActiveDocument.Words.count بالتوفيق

ربما يكون الحديث بصورة عامة خارج نطاق العمل

لتطبيق فكرة الحل على ملفك بعد هذا السطر If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then نضع سطر فك الحماية fo.UnProtect password:="mas" وقبل سطر else نضع سطر الحماية fo.Protect password:="mas" حيث mas هي كلمة المرور بالتوفيق

يمكنك الاستغناء عن باقي شيتات الشهور حيث أن المعادلة تجلب بيانات جمبع الشهور بعد كتابة تاريخ بداية الشهر المطلوب (أو أي تاريخ منه) في الخلية A1 بالتوفيق جلب بيانات الشهور.xlsx

بارك الله لك ونفع بك

عليكم السلام ورحمة الله وبركاته إذا كان استخدام الملف بعد رفعه من خلال اوفيس 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 بالتوفيق