Reema2018

ahmedkamelelsayed0 لو تكرمت حضرتك ممكن تضيف الرقم 01000742048 أ/ محمود هذه بياناتى فلا أريد إزعاجك بالاتصال وتشرفنى جدا معرفتك

ahmedkamelelsayed0 انا اسف بس حضرتك بتكرر نفس الرد

ahmedkamelelsayed0 يا ترى أضيف حضرتك واتس آب ولا إيه

معلومة جديدة دى يعنى كان ينفع أحط كود الترتيب علطول من غير كود الاظهار ثم الاخفاء شاكر جدا لحضرتك على معلوماتك وردك الجميل والمشجع من عبقرى زى حضرتك ولى رجاء خاص رقم التليفون للتواصل عند الضرورة فقط لن أزعجك على الاطلاق

ahmedkamelelsayed0 حضرتك كود الحذف الموجود لا يؤثر بأى شكل على المعادلات الموجودة فى عمود الفرز وتمت تجربته أكثر من مرة وتقبل تحياتى وعظيم شكرى على التعديل سأعمل بالملف الجديد إن شاء الله

ahmedkamelelsayed0 انا بشكرك على تعبك معايا وأرجو من حضرتكم رؤية كود الترتيب فقد قمت بالتعديل عليه وأعطنى رأيك فى اظهار واخفاء العمود دون التأثير على الملف عند الترتيب

السلام عليكم ورحمة الله وبركاته إليكم ملف بسيط لشئون العاملين أرجو من الله أن يفيدكم به سواء باستخدامه أو بالأكواد والمعادلات البسيطة التى به وأخص بالشكر ahmedkamelelsayed0 على ما قدمه من جهد وتعب معى فى إخراج الملف بهذا الشكل وإن قمت بالتعديل على بعض أكواده لكنه هو صاحب الفكرة فى الأكواد والمعادلات وأرجو منكم التعليق وابداء الرأى أيا كان لتعديل الملف حسب الطلب فما أرجو إلا الإفادة منكم ولكم ملحوظة عمل البرنامج بسيط لكنه يكفى لمتطلبات المدرسة عندى طبعا الملف مفتوح وقابل للتعديل فمن يرى أنه يستطيع التعديل وتحسين البرنامج وإعادة رفعه طبعا أرحب بالفكرة فى انتظار تعليقاتكم اسم المستخدم Reem كلمة المرور 232629 شئون عاملين 2019.rar

تعبتك معايا بس كل مرة بتعدل على ملف غير التانى كان حلو الملف اللى حضرتك عملته فى الأول عموما جزاك الله خيرا وتقبل الله منكم صالح الأعمال

ahmedkamelelsayed0 طيب بالنسبة لخانة الملاحظات عند ادخال بيانات موظف جديد دى مهمة جدا عشان الاجازات بدون مرتب والانتدابات الكلية بتقل عليك معلهش

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

السلام عليكم ورحمة الله وبركاته أريد ترتيب بيانات الموظفين فى المدرسة حسب الوظيفة المحددة وليس أبجديا على أن يكون الترتيب حسب القيم الآتية اسم المستخدم Reem كلمة المرور 232629 شئون عاملين تحت التعديل.rar

الحمد لله تم حل المشكلة قمت بالتعديل على أحد أكواد الملف وتم حل هذه المشكلة وأصبح الملف يعمل بكفاءة تامة

تم عمل بعض التعديلات على الملف لكن يبقى كود تعديل بيانات موظف شئون عاملين تحت التعديل.rar

فى انتظار تعديل الكود

هذا الكود يعمل على برنامج قديم عندى بكفاءة لكن لا أعلم لماذا لا يعمل هنا فى هذا الملف أرجو التعديل بما يناسب الملف المرفق أعلاه Dim i As Integer t = Cells(Rows.Count, "b").End(xlUp).Row For i = 11 To t If Val(Me.TextBox1) = Cells(i, 2) Then 'If Me.ComboBox1.Value = "" _ 'Then: MsgBox "áã ÊÞã ÈÇÎÊíÇÑ ÇáÇÓã ÇáãÑÇÏ ÊÚÏíáå", fadel, "ali ": Exit Sub 'Cells(i, 2).Value = Me.TextBox1.Value ٍSheet2.Cells(i, 3).Value = Me.TextBox2.Value Sheet2.Cells(i, 4).Value = Me.TextBox3.Value Sheet2.Cells(i, 5).Value = Me.TextBox4.Value Sheet2.Cells(i, 6).Value = Me.TextBox5.Value Sheet2.Cells(i, 7).Value = Me.TextBox6.Value Sheet2.Cells(i, 8).Value = Me.TextBox7.Value Sheet2.Cells(i, 9).Value = Me.TextBox8.Value Sheet2.Cells(i, 10).Value = Me.TextBox9.Value Sheet2.Cells(i, 11).Value = Me.TextBox10.Value Sheet2.Cells(i, 12).Value = Me.TextBox11.Value Sheet2.Cells(i, 13).Value = Me.TextBox12.Value Sheet2.Cells(i, 14).Value = Me.TextBox13.Value Sheet2.Cells(i, 15).Value = Me.TextBox14.Value Sheet2.Cells(i, 16).Value = Me.TextBox15.Value Sheet2.Cells(i, 17).Value = Me.TextBox16.Value Sheet2.Cells(i, 18).Value = Me.TextBox17.Value Sheet2.Cells(i, 19).Value = Me.TextBox18.Value Sheet2.Cells(i, 20).Value = Me.TextBox19.Value Sheet2.Cells(i, 21).Value = Me.TextBox20.Value End If Next i Me.TextBox1.Value = "" Me.ComboBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" Me.TextBox20.Value = "" '----------------------------------------- MsgBox ("Êã ÇáÊÚÏíá ÈäÌÇÍ") Me.Hide UserForm3.Show