البحث واضافة السطر اسفل الجدول

[وليد زين العايدن]

السلام عليكم لدي ملف ارجو المساعدة اريد البحث في خانة بمجرد كتابة الكلمة يظهر جميع البنود التي تحتوي على الكلمة وعند اختيار اي بند يتم جلب كامل البيان التابعه له واضافتها اسفل الجدول وعند البحث مرة ثانية يتم اضافة السطر اسفل السطر الاسبق 

 

ارجو المساعدة ولكم جزيل الشكر 

البحث عن طريق القاءمة المسندلة.rar

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

جرب هذين الماكروين

الماكرو الاول  للقائم المنسدلة(مطاطة لا تذكر المكرر الا مرة واحدة و تتغيير مع تعديل البيانات)

الماكرو الثاني على الزر "هات ماعندك" يقوم باستخراج المطلوب

Option Explicit
'+++++++++++++++++++++++++++++++++++++++++
Sub Salim_Data_Val()
Dim D1 As Worksheet, D2 As Worksheet
Set D1 = Sheets("Sheet1"): Set D2 = Sheets("Sheet2")
Dim i#: i = 2
Dim arr
Dim Laste_row#
Laste_row = D1.Cells(Rows.Count, "A").End(3).Row
Dim rg As Object
Set rg = CreateObject("system.collections.arraylist")
With rg
 Do Until i > Laste_row
  If Not .Contains(D1.Range("A" & i).Value) _
   And D1.Range("A" & i) <> vbNullString Then _
  .Add D1.Range("A" & i).Value
 i = i + 1
 Loop
 .Sort
 arr = Join(.Toarray, ",")
 End With

 With D2.Range("F7")
    With .Validation
      .Delete
      .Add xlValidateList, Formula1:=arr
     End With
  End With
 Set rg = Nothing: Set D1 = Nothing: Set D2 = Nothing

End Sub


'++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub FilterME()
Dim D1 As Worksheet, D2 As Worksheet
Set D1 = Sheets("Sheet1"): Set D2 = Sheets("Sheet2")
Dim f_Rg As Range
Dim r, col
D2.Range("G8", Range("M7").End(4)).ClearContents
Set f_Rg = D1.Range("a1").CurrentRegion
If D1.FilterMode Then
 D1.ShowAllData: f_Rg.AutoFilter
End If
r = f_Rg.Rows.Count
col = f_Rg.Columns.Count

f_Rg.AutoFilter 1, D2.Range("f7")
f_Rg.Offset(1).Resize(r - 1).SpecialCells(12).Copy _
D2.Range("G8")
f_Rg.AutoFilter
End Sub

الملف مرفق

My_saerch.xlsm

[وجيه شرف الدين]

بعد اذن استاذى سليم واثراء للموضوع حل بطريقة اخرى

البحث عن طريق القاءمة المسندلة.xlsm

[وليد زين العايدن]

الف شكر للاستاذ سليم والاستاذ وجية على مساعدتكم ومروركم الكريم لكن كان طلبي هو عند الكتابة في القائمة للبحث يظهر لي كافة البنود التي ابحث عنها وعند اختيار واحد يتم ادراجه اسفل الجدول مثل الصورة المرفقة  في الصورة اختيار وجبة  ويتم ادراج كافة الارقام بعد اختيارها  اما انا اريد ان اختار احد البنود ليتم ادراجه مع مواصفاته اسفل الجدول