احمد بدره

تسلم الأنامل أستاذنا الفاضل وجعله الله في ميزان حسناتكم

أولا لا داعي وضع ملف مضغوط طالما حجمه صغير ثانيًا تم وضع كود للحذف وترحيل لورقة العمل مخزن من اليوزر فورم ثالثًا تم وضع عمل ماكرو أبجدي ليعمل عند الإضافة أو التعديل أو الحذف عن طريق الفورم في شيت new كحل للترتيب الأبجدي بعد الإضافة أو التعديل أو الحذف في شيت new أما أن يتم الترحيل كما تريد فأعتقد أنه لا يكمن ذلك لأن الترحيل لآخر خلية بها بيانات في عمود D تسجيل بيانات متفرقة وترحيل.xlsm

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

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

بعد إذن أستاذنا الفاضل سليم حاصبيا جرب هذا وأرجو من أي شخص يقوم برفع ملف على المنتدى بدون حماية ويكون ملف مثال للمطلوب ( الجزء المراد التعديل عليه وورقة العمل المرتبطة به إذا كان هناك ارتباط ) وليس ملف كامل حتى يتسنى لأي عضو من أعضاء المنتدى تقديم المساعدة وعدم إهدار وقت كل من يحاول الدخول للمساعدة الملف مضغوط وهو بنوع ملف تمكين وحدات الماكرو بعد التنزيل قم بحفظه بتسيق 97- 2003 إذا شئت برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

تم عمل كود ترتيب حسب السن بجانب زر الترتيب الأبجدي وتم عمل الترحيل كقيم برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

أولاً من قواعد المنتدى عدم توجيه المساعدة من شخص بعينه حتى يتسنى لأي عضو المساعدة وممكن أن يساعدك يكون لديه خبرة أكثر منه أو الشخص الذي تم التوجيه إليه عنده ظروف فكل عضو يعمل حسب ظروفه الملف ثقيل جدا وحجمه كان كبير ثانيًا حضرتك قمت بسخ الشيتات ولم تقم بنسخ الماكروهات فتم نسخها وتم عمل ماكرو لترتيب الطلاب على ملف Main وتم عمل كود ترحيل عمود الاسم والنوع من شيت Main إلى شيت تسجيل البيانات وتفعيل زر الترتيب واستدعاء البيانات تم تغيير امتداد الملف لرفعه على المنتدى حيث أن أقصى حجم هو 3 ميجا ممكن بعد تنزيله تقوم بحفظه بتسيق 97-2003 برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

لا شكر على واجب ولك بمثل ما دعوت لا تنس اختيار أفضل إجابة حيث أن الموضوع أصبح مكتمل

تم عمل التحقق من الصحة بحيث لا يتم الكتابة في العمود B إلا إذا كانت الخلية A2 بها بيانات وأيضا العمود C لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود B فارغة وأيضا العمود D لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود C فارغة وأيضا العمودE لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود D فارغة وأيضا العمودF لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود E فارغة وتم عمل معادلات بالعمود G للاستعانة حتى يتم الترحيل عندما تكون الخلايا من B : E غير فارغة وإلا لا يتم تنفيذ الترحيل وتظهر رسالة بيانات ناقصة New Microsoft Excel Worksheet2.xlsm

على حسب فهمي جرب هذا بشرط الترحيل من الخلية A2 إلى الخلية F2 حتى لا يتم الترحيل إذا كانت إحدى الخلايا فارغة وتظهر رسالة بينات ناقصة New Microsoft Excel Worksheet2.xlsm

جرب هذا لعله يفي الغرض New Microsoft Excel Worksheet.xlsx

تم تعديل المعادلات قوائم (1).xls

تسلم الأنامل أستاذنا الفاضل إبراهيم الحداد وبعد إذنك حضرتك تم التعديل في تاريخ الإحالة والنوع حيث أن تاريخ الإحالة قبل تاريخ الميلاد بيوم id 2.xlsm

أتوجه بالشكر لأستاذنا الفاضل إبراهيم الحداد على مروره وبعد إذنه تم التعديل على كوده وأصبح يعمل بصورة ممتازة قوائم (1).xls

تسلم الأنامل بارك الله فيك

عليكم السلام ورحمة الله وبركاته خلية اسم الشهر في ورقة العمل J1 وفي الكود كانت I1 وتم تعديلها جرب هذا لعله يفي الغرض Payroll123-3-2020 - Copy.xlsm

من المفترض أن تكون الشرط الأربعة لنفس الخلايا لأنه بعد كتابة المعادلة يتم السحب نزولا لأسفل والأربع معادلات التي كتبتبهم في الملف يعتبروا شرطان فقط أول شرط عندما تكون الخليتان كلاهما أكبر من الصفر الثاني عندما تكون الخليتان كلاهما أصغر من الصفر على العموم حسب فهمي ممكن يتكون المعادلة =IF(AND(L5>0;S5>0);"مستلم منفذ ";IF(AND(L5>0;S5=0);" منفذ غير مستلم ";IF(AND(L5=0;S5=0);" غير مستلم وغير منفذ ";" مستلم غير منفذ "))) ثم السحب نزولا لأسفل تقييم.xlsx

تم إضافة مسح النطاق من a2 : p27 بعد الترحيل ترحيل واستدعاء.xlsm

تم وضع عمود اسم الشييت في العمود R جرب هذا ترحيل واستدعاء.xlsm

جرب هذه الفكرة ربما تفي الغرض وهي أن يتم عمل عمود لكل اسم تريد الترحيل المبلغ فيه ترحيل واستدعاء.xlsm

تنبيه عند إرفاق ملف إكسيل يجب أن يكون من نوع تمكين وحدات الماكرو حتى يتسنى للأعضاء المساعدة بإرفاق ملف العمل بعد التعديل فقط الكود يحتاج تعديل اسم ورقة العمل فقط Sub Transfer() Sheets("ترحيل واستدعاء").Activate For Each F In Range("e2:E1000") If F <> "" Then x = F.Value Range(F.Offset(0, -4), F.Offset(0, 0)).Copy LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("A" & LR + 1).Select Selection.PasteSpecial xlPasteValues End If Next F Sheets("ترحيل واستدعاء").Activate Application.CutCopyMode = False Range("A2:E1000").ClearContents MsgBox "تم الترحيل الى كل صفحة بنجاح" End Sub

وعليكم السلام ورحمة الله وبركاته وأنت بكامل الصحة جرب هذا بعد اضافة كود فاصل الصفحات ...المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb

بعد إذن أستاذنا الفاضل علي لإثراء الموضوع يمكن استعمال دالة vlookup شاهد الملف المرفق New Microsoft Excel Worksheet0.xlsx

عليكم السلام ورحمة الله وبركاته جرب هذا ترحيل.xlsm

أستاذ / القول المأثور المعادلة الأخيرة لا يمكن أن تحسب الصفوف المخفية وإن كثر عدد الصفوف