سحب معلومات من ورقة اخرى

المشاركة الأصلية كتبت بواسطة: YasserKhalil

هذه محاولة مني لجلب البيانات اعتماداً على عناوين الحقول .. قم بدمج الخلايا D1 إلى الخلية D3 ، كبقية الخلايا الأخرى في الملف المسمى MASTER ...
ضع الكود التالي في حدث ورقة العمل المسماة TNG في الملف المسمى NEW .. عن طريق كليك يمين على اسم ورقة العمل ثم اختر View Code ثم ضع الكود التالي .. 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count <> 1 And Target.Column <> 5 Then Exit Sub



    Dim wbS     As Workbook

    Dim wbT     As Workbook

    Dim s       As Variant

    Dim x       As Variant

    Dim y       As Variant

    Dim c       As Long

    

    Set wbS = Workbooks("MASTER.xlsx")

    Set wbT = ThisWorkbook

    s = Target.Value

    x = Application.Match(s, wbS.Sheets(1).Columns(1), 0)

    If Not IsError(x) Then

        For c = 1 To 6

            If c <> 5 Then

                y = Application.Match(wbT.Sheets(1).Cells(1, c).Value, wbS.Sheets(1).Rows(1), 0)

                If Not IsError(y) Then

                    wbT.Sheets(1).Cells(Target.Row, c).Value = wbS.Sheets(1).Cells(x, y).Value

                End If

            End If

        Next c

    End If

End Sub

يجب أن يكون كلا الملفين مفتوحين عند تنفيذ الكود .. وسيتم التنفيذ بمجرد كتابة الرقم الوظيفي في العمود الخامس في الملف المسمى NEW 
أرجو أن يفي هذا بالغرض

المشاركة الأصلية كتبت بواسطة: ابو فرحان

المعذرة  استاذ ياسر

تابعت الشرح
ولكن الملف لم يعمل معي بطريقة صحيحة

وهل لديك طريقة على شكل معادلة
لكي نستغني عن الكود