تعديل كود بحث

[samycalls]

()Sub Macro7

Sheets("بيانات2").Range("B6:Q666:AQ666:R6:U666").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("D3:D4"), CopyToRange:=Range("B6:V6"), Unique:=False

End Sub

هذا الكود للبحث فى ورقة عمل عن اسماء أو قيم وللبحث عن اسماء لابد من كتابة الاسم كاملا .. أو كتابة القيمة كاملة .. فهل يمكن تعديله ليكتفى بأول كلمة فى الأسم وبأول أرقام فى القيمة..

أفيدونى أكرمكم الله ..

تم تعديل أكتوبر 31, 2012 بواسطه samycalls

[samycalls]

ربما كان الأمر غير واضح لذلك اضفت الملف لتوضيح ما أطلبه

وهو القدرة على البحث ببداية الكلمات أو بداية الأرقام

استعلام المجموعة الأولى222.rar

[samycalls]

الإخوة الكرام .. لم يجد سؤالى صدى لديكم ..

أرجو منكم الإفادة والرد للأهمية ..