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

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


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


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





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

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



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

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

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

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





15-01-2020 09:48 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 477
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3715
الاعجاب : 21
 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 مرات التحميل :(18)
الحجم :(31.561) KB





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اليكم محرك بحث رائع داخل ورقة العمل زياد عبد الجليل
23 1769 Marioteet
طلب مساعدة في عمل محرك بحث باكثر من معيار في ملف معقد نوعا ما زياد عبد الجليل
0 523 زياد عبد الجليل
طلب مساعدة في عمل محرك بحث زياد عبد الجليل
4 887 زياد عبد الجليل
تعديل كود جلب الاسماء و محرك البحث ابوعبدالواجد
2 634 ابوعبدالواجد
طلب عمل محرك بحث في ملف نوعا ما معقد زياد عبد الجليل
1 549 زياد عبد الجليل

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


 







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

الساعة الآن 12:56 مساء

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