كريم 201190

شكراً جزيلاً استاذ/ محمود أبوالدهب وجزاك الله خيراً

الف الف شكر استاذ / عبد الله وجزاك الله خيراً وجعل ذلك فى ميزان حسانتك

السادة الافاضل بعد التحية وجدت كود للبحث فى جميع صفحات اوراق العمل ووجدته فى عمل باسم استاذنا الفاضل / عبد الله باقشير ، وهذا العمل باسم (استيراد بيانات بطريقة النسخ واللصق مع فورم بحث في جميع اوراق العمل) عملت الفورم فى ملفى وحاولت ان انسخ الاكواد الموجودة فى ملف استاذنا الفاضل ولصقها فى الفورم الموجود بملفى ولكن لم يعمل كما اريد لذا رفعت اليكم ملفى وملف استاذنا الفاضل لنقل الكود الموجود به وتطويعه للعمل بملفى وهذا بعد اذن استاذنا الفاضل / عبد الله باقشير ولسيادتكم جزيل الشكر ملفى.rar ملف استاذ عبد الله باقشير.rar

شكرا على الاهتمام استاذ / ياسر وجزاك الله خيراً

السادة الافاضل ارجو مساعدتى فى تعديل هذا الكود حيث اريد ان يتم تسمية الصفحة الجديدة باسم "كشف رقم" بدلا من تسميتها بالوقت الحالى حيث حاولت ان اعدل بنفسى وتظهر رسالة تخبرنى ان الاسم موجود مسبقاً Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("معاشات استثنائية ") ws.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Format(Time, "hhmmss") ws.Activate ws.Range("F12:H36").ClearContents MsgBox "Done ...", 64 End Sub

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

السادة الافاضل بعد التحية ،،،، ارجوا من حضراتكم مساعدتى فى تنفيذ الفكرة المطلوب تنفيذها بالملف المرفق ولسيادتكم جزيل الشكر كشوف معاشات استثنائية.rar

معذرة استاذ ياسر على التعب واتمنى من الله ان يجعله فى ميزان حسناتك وان شاء الله سوف اضع مرفق جديد للمطلوب وشكرا جزيلا على تعاونكم معنا

استاذى الجليل استاذ ياسر شكرا جزيلا على الاهتمام بالموضوع والرد بقى جزئية اخيرة وهى الاستعلام هل متاح من سيادتكم ومساعدتى فيها ام لا واكون شاكر لسيادتكم

السادة الافاضل ،،،، بعد السلام عليكم ورحمة الله وبركاته ارجوا من سيادتكم مساعدتى فى تنفيذ الفكرة المطلوبة فى الملف المرفق ولسيادتكم جزيل الشكر كشوف معاشات استثنائية.rar

بحاول اعمل برنامج فى القيمة الرأسمالية

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

اشكرك استاذ / محمود أبوالدهب وزادك الله من علمه وجزاك الله خيراً

السادة الافاضل بعد السلام عليكم ورحمة الله وبركاته ارجوا المساعدة فى الملف المطلوب وشكرا جزيلاً New Microsoft Excel Worksheet.rar

استاذ/ ابراهيم متشكر على الاهتمام والرد ولكن لم يعمل الكود معى او لم يعمل الملف كما اريد فهل من الممكن ان نجعل البحث استنادا الى التاريخ الموجود فى العمود G الموجود فى الشيت رقم 1

السادة الافاضل بعد التحية،،،، ارجوا مساعدتى فى كود اضعه فى حدث الورقة المحددة فى الملف التالى بحيث يقوم بحصر الشغل المطلوب لاحد الباحثين خلال فترة معينة، ولسيادتكم جزيل الشكر حالات التقاعد.rar

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

السادة الافاضل بعد السلام عليكم ورحمة الله وبركاته فى البداية اود ان اتوجه اليكم بجميل الشكر والعرفان على ما قدمتموه لى من مساعدة فى ما اريده حتى اتمكن من انجاز المطلوب فى البرنامج الذى اعده فالفضل يعود الى الله اولا ثم اليكم ثانياً فى انجاز المراد فى البرنامج فتعلمت كيفية عمل فورم الترحيل والبحث وكذلك عمل الاحصائيات ولكن بقيت خطوة واحدة حتى انهى هذا البرنامج كما اردت لذلك لجأت اليكم حتى ارى البرنامج كما اريد فاانا {اريد كود اضعه في حدث اليوزر فورم رقم 2 ومااريده هو عندما يساوى التاريخ الموجود في اى خليه من خلايا العمود (i) تاريخ اليوم يظهر في الفورم الاسم من العمود(c) وجهة عمله من العمود (D) وتاريخ فتح الملف من العمود (i)} ومرة ثانية اشكر لكم حسن تعاونكم معى حالات التقاعد.rar

للرفع

متشكر جداً لحضرتك استاذ / زيزو العجوز وجزاك الله خيراً وزادك من فضله

الاساتذة الافاضل بعد السلام عليكم بحث كثيراً عما اريده لتطبيقة على الملف المرفق وبالفعل وجدت ما اريده وهو البحث بين تاريخين معينين ولكن المشكلة التى واجهتنى هى عدم مقدرتى على تطويع المعادلات لتنفيذ ماريدة بملفى لذا اريد من سيادتكم مساعدتى فى ما اريده وهو البحث بين تاريخين سواء بالمعادلات او بالاكواد ، البرنامج مطلوب منى فى العمل واريد استخدامه وتجربته قبل شهر 11 لذا لجئت الى خبرتكم لمساعدتى حالات التقاعد.rar

متشكر جدا لحضرتك استاذ/ ابو حنين

Private Sub ComboBox1_Change() Set sh2 = Sheets("Sheet1") LR = sh2.[c65536].End(xlUp).Row For Each cl In sh2.Range("b2:Q" & LR) If Me.ComboBox1.Text = cl Then (Me.TextBox1 = cl.Offset(0, 0 (Me.TextBox2 = cl.Offset(0, -1 (Me.TextBox3 = cl.Offset(0, 1 (Me.TextBox21 = cl.Offset(0, 2 (Me.TextBox4 = cl.Offset(0, 3 (Me.TextBox5 = cl.Offset(0, 4 (Me.TextBox6 = cl.Offset(0, 6 (Me.TextBox8 = cl.Offset(0, 8 (Me.TextBox9 = cl.Offset(0, 9 (Me.TextBox12 = cl.Offset(0, 13 (Me.TextBox13 = cl.Offset(0, 14 (Me.TextBox7 = cl.Offset(0, 7 (Me.TextBox22 = cl.Offset(0, 12 End If Next End Sub فى السطر رقم 10 اللى هو تكست بوكس 4 يظهر التاريخ فى التكست بوكس 4 بالعكس ارجو من حضراتكم تعديل الكود او السطر بحيث يظهر التاريخ فى التكست بوكس بصورة صحيحةويظهر بصيغة "yyyy/mm/dd"

متشكر جدا لحضرتك استاذ / محمد ومتأسف على التأخر فى الرد من جانبى لوجود اعطال فى النت لدى انا سأرفق لسيادتكم الملف المراد انجاز المطلوب فيه بعد التعديل من طرفى برنامج حالات الاحياء الجديد1.rar

السادة الافاضل ، منتظر رد سيادتكم ، للرفع