أ / محمد صالح

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

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

* يمكن بعمل حماية للخلايا بكلمة مرور هكذا لا يمكن التعديل اليدوي إلا بكتابة كلمة المرور * وبالنسبة لتعديل الخلايا المحمية بالكود فيجب وضع سطر فك الحماية في بداية الإجراء 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 (رمز القمع) سيتحقق المطلوب بإذن الله

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

إذا ساعدك أحدهم في تنفيذ كل هذا فماذا أبقيت لنفسك حتى تطبق ما تعلمته أخي الكريم ؟؟؟ إذا استخدمت البحث ستجد الكثير من الموضوعات التي تفيدك في تنفيذ برنامجك وهذه بعضها https://www.officena.net/ib/search/?q=فورم بحث تعديل حذف&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and&search_in=titles عليك بالبدء في تنفيذ برنامجك وإذا وقفت في نقطة أو اثنتين يمكن عرضها في موضوع جديد بالتوفيق

هذه معادلة البحث بشرطين باستخدام index match إن شاء اللّه تكون المطلوب بالتوفيق اظهار الاستقطاع على اساس الرقم التعريفي ورقم المستند.xlsx

الشكر لله الذي وفقنا جميعا للخير

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