البحث في القائمة المنسدلة في الفاتورة

[samihkhader]

لو سمحت أرجو المساعدة عاوز أكتب حرف أو أكثر في الفاتورة (القائمة المنسدلة) يعمل بحث عن الأصناف الموجود

والملف موجود في المرفقات وألف شكر للمساعدة

TEST.xlsm

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

هذا الكود يدرج لك القوائم المنسدلة

Option Explicit
Sub data_val()
Dim Fatura As Worksheet, Price As Worksheet
Dim Dic As Object
Dim lr%, i%
Set Fatura = Sheets("فواتير")
Set Price = Sheets("الأسعار")
Set Dic = CreateObject("Scripting.Dictionary")
lr = Price.Cells(Rows.Count, 1).End(3).Row

i = 2
With Price
Do Until i > lr
  If .Cells(i, 1) <> vbNullString Then
   Dic(.Cells(i, 1).Value) = vbNullString
  End If
i = i + 1
Loop
End With
 With Fatura.Cells(5, 1).Resize(15).Validation
 .Delete
 .Add 3, Formula1:=Join(Dic.keys, ",")
 End With
End Sub

الملف مرفق

samihkhader.xlsm

[samihkhader]

عند فتح الملف يحدث خطأ كما في الصور

تم تعديل أكتوبر 29, 2020 بواسطه samihkhader

[أحمد يوسف]

أخى الكريم samihkhader الملف يعمل ويفتح معى بكل كفاءة بدون كل هذه الرسائل وشوف بنفسك ... هذا الخطأ من عندك انت 

ربما لديم اختلاف وعدم توافق فى الإكسيل او الويندوز ... حاول تحميل الملف مرة أحرى من فضلك

[samihkhader]

ألف شكر للجميع بس لقيت حل أخر في المرفق

TEST.xlsm