جلب البيانات من اكثر من شيت

[العمراوى 2010]

 لدى قاعدة بيانات بها اكثر من 50 الف مشترك مقسمه الى عشر شيتات كل شيت بيه اكثر من 5000 اسم

ارجو المساعدة في الاتى

البحث بالرقم القومى او الاسم كما بالمثال

الاسم المطلوب يتم تلوينة باى لون مختلف للمعرفة

وشكرا جزيلا مقدما للمساعد  واتمنى ان يكون المطلوب بالاكواد ... طالما انك تريد الحل بالأكواد فكان لزاماً عليك رفع الملف بإمتداد XLSM ... تــــم تعديل رفع الملف

المصنف1 (1).xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

كود للبحث بالرقم القومى و تلوين الاسم

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

 

[Ali Mohamed Ali]

تفضل بعد اذن الأستاذ ابراهيم طبعاً ... فكان عليك تعيين زر لحسن عمل الكود , تفضل

نسخة من المصنف1 1.xlsm

[العمراوى 2010]

الف شكرا استاذنا الغالى الاستاذ ابراهيم والاخ النشيط الاستاذ على

لكن خاصية البحث بالاسم لا تعمل ياريت تفعيلها حتى تعم الفائدة من هذا العمل 

[huss82]

في طريقة ثانية بنفس الاكسيل اذا انا مو غلطان اذا تنورنا اسم الطريقة 

بستخدام

new query

[الاهلاوى 2007]

ننتظر مرور الاساتذه الافاضل للافادة