أ / محمد صالح

المتغير 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 فقط حتى الآن بالتوفيق

يمكنك استعمال هذا الكود في حدث عند التغيير في شيت سعد ولمن لا يعرف كيفية إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ونختار view code بالعربي عرض التعليمات البرمجية ثم نلصق الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then Sheet24.Range("b10:i1000").ClearContents For r = 3 To Sheet14.Cells(Rows.Count, 2).End(3).Row If Sheet14.Range("n" & r) = Target Then lr = Sheet24.Cells(Rows.Count, 2).End(3).Row + 1 cols = Array(3, 2, 9, 10, 11, 5, 14, 15) For n = 2 To 9 Sheet24.Cells(lr, n) = Sheet14.Cells(r, cols(n - 2)) Next n: End If: Next r MsgBox "Done by mr-mas.com" End If End Sub بالتوفيق

الشكر لله الذي وفقنا

🙄🤔 بالتوفيق

شكرا لكلماتك الطيبة