تعديل على كود استاذ حسين لجلب البيانات

[عبدالله صباح]

السلام عليكم - رمضان مبارك

جدول يحتوي على اعمدة كثيرة

واريد جلب البيانات لبعض الاعمدة

والاعمدة تتغير حسب الطلب (راس جدول مطاطي)

جلب البيانات على اساس راس الجدول.xlsm

[حسين مامون]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim x, lr, C
Dim ws As Worksheet
Set ws = Sheets("بيانات")
With ws
           lr = .Cells(Rows.Count, "a").End(xlUp).Row
           If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then
           For x = 2 To lr
           If Target.Text = .Cells(x, 1).Text Then
           C = .Cells(x, Columns.Count).End(xlToLeft).Column
           Range("a1").Resize(, C).Value = .Range("a1").Resize(, C).Value
           Target.Offset(, 1).Resize(, C).Value = .Cells(x, 2).Resize(, C).Value
'           Target.Offset(, 2).Value = .Cells(x, 6).Value
'           Target.Offset(, 3).Value = .Cells(x, 7).Value
'           Target.Offset(, 4).Value = .Cells(x, 8).Value
                      Exit For
           End If
            Next x
            End If
End With
End Sub

 

عدل اسم الشيت ان لم يعمل 

[عبدالله صباح]

السلام عليكم

اريد جلب البيانات على اساس ما يكتب برأس الجدول في ورقة1

جلب بعض البيانات على اساس راس الجدول وليس كل البيانات

ورأس الجدول يتغير حسب نوع البيانات المطلوبة

فيكون التقرير حسب البيانات المطلوبة

مرة بدون مخصصات

ومرة بدون تاريخ

وهكذا

تم تعديل أبريل 29, 2021 بواسطه عبدالله صباح

[عبدالفتاح في بي اكسيل]

لا ادري  اذا  كان  هذا  ما  تريده  جرب  هذا  الملف 

جلب البيانات على اساس راس الجدول1.xlsm

[عبدالله صباح]

السلام عليكم

تمام هذا المطلوب والمقصود

فقط شغلة واحدة اذا سمحت وهي

عدم جلب البيانات - إلا - بعد ان اكتب الرمز في شيت 2 خانة A 

لانه اختار بعض الرموز وجلب بياناتها