()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
هذا الكود للبحث فى ورقة عمل عن اسماء أو قيم وللبحث عن اسماء لابد من كتابة الاسم كاملا .. أو كتابة القيمة كاملة .. فهل يمكن تعديله ليكتفى بأول كلمة فى الأسم وبأول أرقام فى القيمة..
أفيدونى أكرمكم الله ..