logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





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

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

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

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





look/images/icons/i1.gif طلب عمل محرك بحث برقم الموظف
  15-01-2020 09:48 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
جرب هذا الكود
CODE

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 مرات التحميل :(21)
الحجم :(31.561) KB


أثارت هذه المشاركة إعجاب: عبدالله فتحى،



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




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





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




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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اليكم محرك بحث رائع داخل ورقة العمل زياد عبد الجليل
23 3735 Marioteet
طلب مساعدة في عمل محرك بحث باكثر من معيار في ملف معقد نوعا ما زياد عبد الجليل
0 1156 زياد عبد الجليل
طلب مساعدة في عمل محرك بحث زياد عبد الجليل
4 2026 زياد عبد الجليل
تعديل كود جلب الاسماء و محرك البحث ابوعبدالواجد
2 1601 ابوعبدالواجد
طلب عمل محرك بحث في ملف نوعا ما معقد زياد عبد الجليل
1 1178 زياد عبد الجليل

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









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

الساعة الآن 07:34 AM