شرح كود لجلب البيانات

[نصر الإيمان]

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

ممكن شرح لهذا الكود 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$P$1" Then
        Dim s As Worksheet
        Dim t As Worksheet
        Dim v As Variant
        Dim r As Long

        Set s = Sheets("تسجيل البيانات")
        Set t = Sheets("الكشوف النهائية")
        v = t.Range("P1").Value
        
        If Not IsNumeric(v) Or IsEmpty(v) Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub
        r = (v * 6) + 5

        t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value
    End If
End Sub

ملحوظه : هذا الكود قد تم رفعه لأخي الفاضل الأستاذ ياسر خليل في هذا الملف

جلب بيانات3.rar

 

لأني أريد أن تكون بيانات الجدول في الصفحة الأولى في وسط الصفحه وليس من بدايتها 

وجزاكم الله خيرا

تم تعديل أغسطس 14, 2017 بواسطه نصر الإيمان

[ياسر خليل أبو البراء]

ضع المرفق في الوضع الجديد للبيانات لتعديل الكود لك ..

[نصر الإيمان]

الملف الجديد

تعديل1.rar

[ياسر خليل أبو البراء]

غير السطر الأخير

t.Range("B14").Resize(6, 4).Value = s.Range("O" & r).Resize(6, 4).Value

لاحظ التغيير بنفسك (حرف واحد)

[نصر الإيمان]

29 دقائق مضت, ياسر خليل أبو البراء said:

غير السطر الأخير

t.Range("B14").Resize(6, 4).Value = s.Range("O" & r).Resize(6, 4).Value

لاحظ التغيير بنفسك (حرف واحد)

جزاك الله خيرا.....حرف  (O).... انا قبل كدا قمت بتعديله بس عدلت حرف r معاه...

شاكر فضلك وكرمك وسعة صدرك أستاذ ياسر

تم تعديل أغسطس 14, 2017 بواسطه نصر الإيمان

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي الكريم

والحمد لله الذي بنعمته تتم الصالحات

[علي فاهم]

13 ساعات مضت, نصر الإيمان said:

t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value

مامعنى هذا السطر ؟ وخاصه كلمه Resize

والارقام الموجوده

[ياسر خليل أبو البراء]

الحرف t  يرمز لورقة العمل الهدف (الكشوف النهائية)

بداية النطاق سيكون من الخلية B14 بامتداد 6 صفوف و 4 أعمدة (حير النطاق المطلوب وضع النتائج فيه)

يساوي

الحرف s يشير لورقة العمل التي تحتوي البيانات (تسجيل البيانات)

وبداية النطاق هو الصف المشار إليه في المتغير r وهو متغير أي أنه يختلف بحسب الأسطر السابقة (في العمود الأول) ، وبنفس حيز النطاق للنتائج