المساعدة في تسريع كود بحث

[idriss idrissou]

أرجو المساعدة في تسريع هذاالكود للبحث في تكست بوكس و تظهر النتائج في ليست بوكس شكرا لكم جزيلا

الملف مرفق اسفله 

CONSULTATION.xlsm

[omar elhosseini]

الاخ idriss idrissou

تفضل جرب المرفق

CONSULTATION_1.rar

[idriss idrissou]

شكرا لك لكن المشكل لا زال موجود في الصورة اسفله 

تم تعديل نوفمبر 29, 2019 بواسطه idriss idrissou

[omar elhosseini]

الاخ idriss idrissou

 

جررب حذف هذه الاسطرمن الكود

 

With Sheets("liste")
    .Columns("A:D").Columns.AutoFit
    Col_Width = ""
    For Col = 1 To 4
        Col_Width = Col_Width & .Columns(Col).Width + 10 & ";"
    Next Col
    ListBox1.ColumnWidths = Col_Width
End With

 

تم تعديل نوفمبر 30, 2019 بواسطه عمر الحسيني *** أبو تامر

[idriss idrissou]

جربت اشتغل لكن لما تكون قاعدة البيانات أكثر من 5000 آلاف يرجع ثقيل مثل الأول هل من حل أو فكرة لتسريعه 
و شكرا لاهتمامك أخي الفاضل 

[الـعيدروس]

السلام عليكم

بعد اذن استاذنا ابو تامر

جرب المرفق

CONSULTATION_A.xlsm

[احمد بدره]

بعد إذن الأستاذة الأفاضل  عمر الحسيني و العيدروس

جرب هذا لعله يفي الغرض

CONSULTATION_A.xlsm