كريم 201190

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

29 دقائق مضت, عبدالله الصاري said:

السلام عليكم

محاولة ربما تحقق طلبك

تحياتي

كشوف معاشات استثنائية.rar

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

السادة الافاضل 

بعد التحية 

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

ملفى.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

في ١٣‏/٧‏/٢٠١٧ at 21:12, كريم 201190 said:

السادة الافاضل 

بعد التحية ،،،،

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

ولسيادتكم جزيل الشكر

كشوف معاشات استثنائية.rar

للرفع 

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

السادة الافاضل 

بعد التحية ،،،،

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

ولسيادتكم جزيل الشكر

كشوف معاشات استثنائية.rar

في ١٢‏/٧‏/٢٠١٧ at 09:04, ياسر خليل أبو البراء said:

لا أستطيع الجزم بقولي أن الاستعلام متاح أم لا .. لسببين : 

الأول أنني ليس لدي ما يكفي من تفاصيل لمعرفة ذلك

الثاني هو أنني أفضل أن يكون الموضوع لطلب واحد فقط (لذا من الأفضل طرح موضوع جديد مع إرفاق ملف مع ذكر النتائج المتوقعة) .. 

تصدق والله تعبت من نفس النصيحة ..بس مش مشكلة .. كلكم إخواني ولازم تستحملوني

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

2 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم كريم (حلوة القافية)

جرب الكود التالي .. عله يفي بالغرض

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

في ٢١‏/٤‏/٢٠١٧ at 11:41, محمود أبوالدهب said:

 

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

2 ساعات مضت, محمود أبوالدهب said:

 

اخ كريم انته شغال فين اصل تاريخ الميلاد وتاريخ نهاية الخدمه يقول يا تسويات معاشات يا تامينات 

وشكرا اخ كريم اتمنى يكون هذا الحل ما احببت

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

2 ساعات مضت, سليم حاصبيا said:

جرب هذه المعادلة قي الخلية E2  (تنسيق الخلية يجب ان يكون General)

=DATEDIF(A2,B2,"y")+IF(C2+D2>0,1,0)

 

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

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

السادة الافاضل 

بعد السلام عليكم ورحمة الله وبركاته

ارجوا المساعدة فى الملف المطلوب 

وشكرا جزيلاً

New Microsoft Excel Worksheet.rar

2 ساعات مضت, إبراهيم ابوليله said:

اخى جرب الكود التالى

هو للاخ الفاضل ياسر العربى

بارك الله فيه

تقبل تحياتى

حالات التقاعد1.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"

في 10/7/2016 at 16:50, mohamed elforse said:

الاستاذ / كريم

تحية طيبة ,,,,

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

وشكرا

متشكر جدا لحضرتك استاذ / محمد 

ومتأسف على التأخر فى الرد من جانبى لوجود اعطال فى النت لدى

انا سأرفق لسيادتكم الملف المراد انجاز المطلوب فيه بعد التعديل من طرفى 

برنامج حالات الاحياء الجديد1.rar

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