طلب طريقة استخراج جدول من شيت بناءً على اسم

[خالد الجزائري]

استخراج جدول.xlsx

السلام عليكم

اريد تعديل على الملف المرفق بحيث عند اختيار اسم من القائمة يستدعي الجدول الخاص بالاسم

تم تعديل ديسمبر 20, 2020 بواسطه خالد الجزائري

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub extract_Data()
  Dim Source_sheet As Worksheet
  Dim Target_sheet As Worksheet
  Dim Ism, R_to_copy As Range
  Dim Find_rg As Range

Set Source_sheet = Sheets("sheet1")
Set Target_sheet = Sheets("sheet2")

If Target_sheet.Range("B4") = "" Then
 Target_sheet.Range("B4") = "خالد"
End If
 
 Ism = Target_sheet.Range("B4")
 Set Find_rg = Source_sheet.Cells.Find(Ism, lookat:=1)
  If Not Find_rg Is Nothing Then
    Set R_to_copy = Find_rg.Offset(2).Resize(20, 4)
    Target_sheet.Range("B6").Resize(20, 4).Value = _
    R_to_copy.Value
  End If
 
End Sub

الملف مرفق

Khaled.xlsm

[خالد الجزائري]

بارك الله فيك اخي سليم وجزاك الله خيرا

طيب اريد ان افهم كيف عمل هذه الطريقة

هل بالامكان الاستغناء عن هدا الكود واستبداله بدالة VLOOKUP و INDRICT

[مصطفى محمود مصطفى]

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

بعد اذن الاساتذة الكبار هذا حل بالدوال كما طلبت

تحياتي لكم

استخراج++ جدول (1).xlsx

 

[خالد الجزائري]

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

دمتم دخرا للامة

 

[مصطفى محمود مصطفى]

الاستاذ الكبير والمبدع سليم جزاكم الله خيرا

حل ولا اروع فانتم اساتذتنا ومنكم تعلمنا الكثير ولازلنا

زادكم الله علما وخيرا اخي الكريم

تحياتي لكم

[سليم حاصبيا]

يمكن استعمال معادلة واحدة في الخلية B6 وسحبها يميناُ ( 4 أعمدة) ونزولاُ (20صف)

=IFERROR(INDEX(INDIRECT($B$4),$A6,COLUMNS($A$1:A1)),"")

 

 

[سليم حاصبيا]

فقط تختار الاسم ثم تضغط على الزر Run

[خالد الجزائري]

كنت اريد الدرس تطبيقي جزاك الله خيرا