معادلة لجلب بيانات من الشيتات

[ابايوسف]

السلام عليكم

محتاج معادلة لجلب البيانات من الشيتات على اساس الرقم

جلب بيانات من الشيتات.xlsx

[الرائد77]

يمكنك عمل ذللك بـ: nested if و لكن عند اضافة الشيتات تضظر دائما اللى تغييير المعادلات باضافة الاوراق  الجديدة

كما أانه في حال بيانات كثييرة تكون الاستتجابة بظيئة.

تفضل هدا  الكود اسرع و يعمل مهما اضفت من صفحات جديدة.

ضع فقط الارقام التي تريد في العمود A في ششيت البحث ثم اضغط جلب.

Sub bring()
Dim ash As Worksheet
Dim sh As Worksheet
Dim cell As Range
Dim lrw As Integer
Set ash = Sheets("search")

ash.Range("b2:e1000").ClearContents
For Each sh In ThisWorkbook.Sheets
If sh.Name <> ash.Name Then
For Each cell In sh.Range("a2:a1000")
lrw = ash.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lrw
If cell = ash.Cells(i, 1) Then
ash.Cells(i, 2) = cell.Offset(, 1)
ash.Cells(i, 3) = cell.Offset(, 2)
ash.Cells(i, 4) = cell.Offset(, 3)
ash.Cells(i, 5) = cell.Offset(, 4)
End If
Next i
Next cell
End If
Next sh



End Sub

 

جلب بيانات من الشيتات.xlsb

[ابايوسف]

تسلم - كود بسيط وشغال 100 %

 

فقط ممكن شرح هذه الفقرة

For i = 2 To lrw
If cell = ash.Cells(i, 1) Then.

والشغلة الثانية 

في حالة اريد جلب بيانات من شيت واحد فقط لعمل قائمة 

 

تم تعديل يوليو 17, 2020 بواسطه ابايوسف