أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع عدة مصنفات في مصنف واحد اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





طلب عمل محرك بحث برقم الموظف

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



15-01-2020 07:05 مساء
Jansdedo
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-10-2019
رقم العضوية : 15120
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 2-2-1989
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
السلام عليكم ورحمة الله وبركاته
أخواني الأعزاء أصدقاء المنتدي ارجو المساعدة

أطلب كود للبحث برقم الموظف في ورقة عمل أخري وذلك عند كتابتي للرقم الموظف والضغط علي بحث يتم استدعاء جميع بيانات الموظف حتي اذا كانت مكررة في اكثر من مرة ومسح تلك البيانات فور الخروخ من صفحة البحث.
مع تثبيت اماكن وصف كل خلية في كل مرة للبحث

وعند البحث علي رقم غير موجود ظهور رسالة بأن لا يوجد مخالفات لهذا الموظف في هذا العام
ولكم مني جزيل الشكر أخواني

مرفق ملف للعمل عليه
 
 
  sheet.xlsx   تحميل xlsx مرات التحميل :(10)
الحجم :(22.663) KB





15-01-2020 09:48 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 444
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 19
قوة السمعة : 3470
الاعجاب : 327
 offline 
look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
جرب هذا الكود

Option Explicit

Sub FIND_ALL()
  Dim D As Worksheet
  Dim S As Worksheet
  Dim My_rg As Range
  Dim m%: m = 5
  Dim T%
  Dim NEW_RO%
  Dim Curt_rg 'Curt_rg=currentrange in sheet s
  Dim Add_1$, ADD_act$
 'Add_1=first Address  ADD_act=Actual Address
  Set D = Sheets("Data"): Set S = Sheets("search")
  Set Curt_rg = S.Range("b4").CurrentRegion
  Set Curt_rg = Curt_rg.Offset(1).Resize(Curt_rg.Rows.Count - 1)
Curt_rg.Clear
Set My_rg = D.Range("B2").CurrentRegion.Columns(1).Find(S.Range("E2"), lookat:=1)
    If My_rg Is Nothing Then _
    MsgBox "Not found": Exit Sub
Add_1 = My_rg.Address: ADD_act = Add_1
 Do
  S.Cells(m, 2).Resize(, 20).Value = _
  My_rg.Resize(, 20).Value
 m = m + 1: T = T + 1
 Set My_rg = D.Range("B2").CurrentRegion.Columns(1).FindNext(My_rg)
 ADD_act = My_rg.Address
 If ADD_act = Add_1 Then Exit Do
Loop
  With S.Range("b5").Resize(T, 20)
  .InsertIndent 1
  .Font.Size = 14
  .Font.Bold = True
   .Borders.LineStyle = 1
  End With
End Sub

الملف مرفق
 
 
  MY_SAECRH.xlsm   تحميل xlsm مرات التحميل :(15)
الحجم :(31.561) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، أحمد يوسف، YasserKhalil، Jansdedo،



16-01-2020 03:51 مساء
مشاهدة مشاركة منفردة [2]
Jansdedo
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-10-2019
رقم العضوية : 15120
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 2-2-1989
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
أشكرك أخي الكريم ولكن لم أجرب الملف حتي الأن
بسبب عدم عمله علي جهازي الحالي ولا أعلم سبب عدم عمل أي ملف به vba او Macro
سوف اوافيك فور تجربته مع تكرار شكري
وأيضاً اذا كنت تعلم سبب عدم تشغيل اي ملف به ماكرو ارجو الأفادة وشكرا لك




16-01-2020 07:36 مساء
مشاهدة مشاركة منفردة [3]
Jansdedo
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-10-2019
رقم العضوية : 15120
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 2-2-1989
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
 جهازي بالمنزل جهاز العمل يعمل عليه الماكرو عادي ولكن جهاز المنزل يعطيني هذه الرسالة
 
 
  Untitled.jpg   تحميل jpg Untitled.jpg مرات التحميل :(1)
الحجم :(29.421) KB
  Untitled1.jpg   تحميل jpg Untitled1.jpg مرات التحميل :(2)
الحجم :(34.816) KB
 





18-01-2020 02:37 مساء
مشاهدة مشاركة منفردة [4]
Jansdedo
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-10-2019
رقم العضوية : 15120
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 2-2-1989
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
أستاذى Salim بعد الشكر مرة أخري
للأسف يوجد مشكلة في الكود لأنه لايعمل في حالة وجود خلاية معمل بها Merge
ممكن التعديل لكي يعمل علي هذه الخلايا أيضاً ...
مع الشكر




18-01-2020 11:32 مساء
مشاهدة مشاركة منفردة [5]
Jansdedo
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-10-2019
رقم العضوية : 15120
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 2-2-1989
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
واطلب منك إفادتي ازاي أقدر اعدل علي هذا الكود لعمله في ملف اخر مع تغيير العمود المراد البحث به
علي سبيل المثل في هذا الملف يتم البحث علي العمود الاول فقط
كيف اقدر اغير البحث الي العمود الرابع مثلا لاني حولت كثير وفشلت بحس ان الكود صعب التغير به
ولك مني جزيل الشكر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اليكم محرك بحث رائع داخل ورقة العمل زياد عبد الجليل
23 1642 Marioteet
طلب مساعدة في عمل محرك بحث باكثر من معيار في ملف معقد نوعا ما زياد عبد الجليل
0 482 زياد عبد الجليل
طلب مساعدة في عمل محرك بحث زياد عبد الجليل
4 822 زياد عبد الجليل
تعديل كود جلب الاسماء و محرك البحث ابوعبدالواجد
2 574 ابوعبدالواجد
طلب عمل محرك بحث في ملف نوعا ما معقد زياد عبد الجليل
1 499 زياد عبد الجليل

الكلمات الدلالية
محرك ، برقم ، الموظف ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:10 مساء

أعلن هنا
أعلن هنا
أعلن هنا