اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

 لدى قاعدة بيانات بها اكثر من 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

 

  • Like 6
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information