العمراوى 2010 قام بنشر يناير 20, 2021 مشاركة قام بنشر يناير 20, 2021 لدى قاعدة بيانات بها اكثر من 50 الف مشترك مقسمه الى عشر شيتات كل شيت بيه اكثر من 5000 اسم ارجو المساعدة في الاتى البحث بالرقم القومى او الاسم كما بالمثال الاسم المطلوب يتم تلوينة باى لون مختلف للمعرفة وشكرا جزيلا مقدما للمساعد واتمنى ان يكون المطلوب بالاكواد ... طالما انك تريد الحل بالأكواد فكان لزاماً عليك رفع الملف بإمتداد XLSM ... تــــم تعديل رفع الملف المصنف1 (1).xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر يناير 21, 2021 أفضل إجابة مشاركة قام بنشر يناير 21, 2021 السلام عليكم ورحمة الله كود للبحث بالرقم القومى و تلوين الاسم Sub SearchData() Dim ws As Worksheet, Sh As Worksheet Dim lr As Long, i As Long Dim data Set Sh = Sheets("البحث") data = Sh.Range("C7").Value Application.ScreenUpdating = False For Each ws In Worksheets If ws.Name <> "البحث" Then lr = ws.Range("A" & Rows.Count).End(3).Row i = 8 Do While i <= lr If ws.Cells(i, 1) = data Then Sh.Range("C8").Value = ws.Cells(i, 2).Value Sh.Range("C9").Value = ws.Cells(i, 3).Value Sh.Range("C10").Value = ws.Cells(i, 4).Value Sh.Range("C11").Value = ws.Cells(i, 5).Value ws.Cells(i, 1).Interior.ColorIndex = 10 End If i = i + 1 Loop End If Next Application.ScreenUpdating = True End Sub 6 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 22, 2021 مشاركة قام بنشر يناير 22, 2021 تفضل بعد اذن الأستاذ ابراهيم طبعاً ... فكان عليك تعيين زر لحسن عمل الكود , تفضل نسخة من المصنف1 1.xlsm 4 رابط هذا التعليق شارك More sharing options...
العمراوى 2010 قام بنشر يناير 22, 2021 الكاتب مشاركة قام بنشر يناير 22, 2021 الف شكرا استاذنا الغالى الاستاذ ابراهيم والاخ النشيط الاستاذ على لكن خاصية البحث بالاسم لا تعمل ياريت تفعيلها حتى تعم الفائدة من هذا العمل رابط هذا التعليق شارك More sharing options...
huss82 قام بنشر يناير 23, 2021 مشاركة قام بنشر يناير 23, 2021 في طريقة ثانية بنفس الاكسيل اذا انا مو غلطان اذا تنورنا اسم الطريقة بستخدام new query رابط هذا التعليق شارك More sharing options...
الاهلاوى 2007 قام بنشر يناير 24, 2021 مشاركة قام بنشر يناير 24, 2021 ننتظر مرور الاساتذه الافاضل للافادة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.