عبدالله المجرب قام بنشر نوفمبر 27, 2010 قام بنشر نوفمبر 27, 2010 اتمنى منكم اخواني الكرام ان تساعدوني في تطوير هذا البرنامج (نسخة معدلة حسب احتاجاتي لها في العمل وهي من برنامج الاخ العزيز المايسترو) ولكم جزيل الشكر والامتنان Employs v1.1.rar
طارق محمود قام بنشر نوفمبر 27, 2010 قام بنشر نوفمبر 27, 2010 السلام عليكم أخي الكريم أول نقطة تريد البحث يكون بتطابق الرقم وليس بتطابق جزء من الرقم في أوائل الكود iFind() وبعد سطر End If بسطرين ستجد السطر If (Sheets(MySheets).Cells(F, "B") Like "*" & [D7] & "*") Then بدله بـ If Sheets(MySheets).Cells(F, "B") = [D7].Value Then تم تعديل الكود ثاني نقطة و ثالث نقطة أنظر المرفق - الزرين الأصفرين Employs v2.rar
عبدالله المجرب قام بنشر نوفمبر 27, 2010 الكاتب قام بنشر نوفمبر 27, 2010 اخي العزيز طارق اشكرك من كل قلبي على سرعة الاستجابةوهذا هو المطلوب ولكن لي طلب ( اتمنى ان لا اثقل على حضرتك) ان يكون زر بحث متشابه خاص للبحث عن القيمه الاخرى المتشابهة ان وجدت وليس اضهار القيمة الاولى وبعدها الثانية فنستخدم للاولى زر البحث عن موظف وللقيمة المتشابهة الثانية زر بحث متشابهة وفي حال عدم وجود قيمة متشابهة تظهر رسالة تنبيهة ((اترك نصها لحضرتك)) وشكراً للمرة الثانية ابو احمد
عبدالله المجرب قام بنشر نوفمبر 29, 2010 الكاتب قام بنشر نوفمبر 29, 2010 (معدل) هل يمكن اضافة خانات جديدة لبيانات جديدة في الماحة الملونة بالرماي على يسار الصورة تم تعديل نوفمبر 29, 2010 بواسطه ولد المجرب
عبدالله المجرب قام بنشر نوفمبر 29, 2010 الكاتب قام بنشر نوفمبر 29, 2010 هل يمكن اضافة خانات جديدة لبيانات جديدة في الماحة الملونة بالرماي على يسار الصورة ارجوكم اخوان ان تساعدوني في حل هذه المعضلة ((اضافة الخانات)) حيث انه هناك حاجة ماسة لاضافة بيانات اكثر عن الشخص (مثل تاريخ الميلاد والمؤهل العلمي وتاريخ اخر اجازة ونوعها وغيرها من البيانات الهامة ) والشكر موصول للاخ طارق على مساهمته وانا اعلم باني على خطاء عندما لم ادرج جميع هذه الطلبات دفعة واحدة.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.