عبدالله صباح قام بنشر أبريل 29, 2021 مشاركة قام بنشر أبريل 29, 2021 السلام عليكم - رمضان مبارك جدول يحتوي على اعمدة كثيرة واريد جلب البيانات لبعض الاعمدة والاعمدة تتغير حسب الطلب (راس جدول مطاطي) جلب البيانات على اساس راس الجدول.xlsm رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 29, 2021 مشاركة قام بنشر أبريل 29, 2021 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 رابط هذا التعليق شارك More sharing options...
عبدالله صباح قام بنشر أبريل 29, 2021 الكاتب مشاركة قام بنشر أبريل 29, 2021 (معدل) السلام عليكم اريد جلب البيانات على اساس ما يكتب برأس الجدول في ورقة1 جلب بعض البيانات على اساس راس الجدول وليس كل البيانات ورأس الجدول يتغير حسب نوع البيانات المطلوبة فيكون التقرير حسب البيانات المطلوبة مرة بدون مخصصات ومرة بدون تاريخ وهكذا تم تعديل أبريل 29, 2021 بواسطه عبدالله صباح رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أبريل 29, 2021 مشاركة قام بنشر أبريل 29, 2021 لا ادري اذا كان هذا ما تريده جرب هذا الملف جلب البيانات على اساس راس الجدول1.xlsm 2 رابط هذا التعليق شارك More sharing options...
عبدالله صباح قام بنشر أبريل 29, 2021 الكاتب مشاركة قام بنشر أبريل 29, 2021 السلام عليكم تمام هذا المطلوب والمقصود فقط شغلة واحدة اذا سمحت وهي عدم جلب البيانات - إلا - بعد ان اكتب الرمز في شيت 2 خانة A لانه اختار بعض الرموز وجلب بياناتها رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.