اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل في برنامج بيانات الافراد


الردود الموصى بها

اتمنى منكم اخواني الكرام ان تساعدوني في تطوير هذا البرنامج (نسخة معدلة حسب احتاجاتي لها في العمل وهي من برنامج الاخ العزيز المايسترو)

ولكم جزيل الشكر والامتنان

Employs v1.1.rar

رابط هذا التعليق
شارك

السلام عليكم

أخي الكريم

أول نقطة

تريد

البحث يكون بتطابق الرقم وليس بتطابق جزء من الرقم

في أوائل الكود iFind()

وبعد سطر

End If

بسطرين ستجد السطر

If (Sheets(MySheets).Cells(F, "B") Like "*" & [D7] & "*") Then
بدله بـ

If Sheets(MySheets).Cells(F, "B") = [D7].Value Then

تم تعديل الكود

ثاني نقطة

و

ثالث نقطة

أنظر المرفق - الزرين الأصفرين

Employs v2.rar

رابط هذا التعليق
شارك

اخي العزيز طارق

اشكرك من كل قلبي على سرعة الاستجابةوهذا هو المطلوب

ولكن لي طلب ( اتمنى ان لا اثقل على حضرتك)

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

وشكراً للمرة الثانية

ابو احمد

رابط هذا التعليق
شارك

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

تم تعديل بواسطه ولد المجرب
رابط هذا التعليق
شارك

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

ارجوكم اخوان ان تساعدوني في حل هذه المعضلة ((اضافة الخانات)) حيث انه هناك حاجة ماسة لاضافة بيانات اكثر عن الشخص (مثل تاريخ الميلاد والمؤهل العلمي وتاريخ اخر اجازة ونوعها وغيرها من البيانات الهامة )

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information