لك جزيل الشكر ابوحنف
على حسن تواصلك و شرحك المتميز عى الكود
حيث ان الكود طويل و انا استخدم كود مختصر ( جزا الله خير من قام بعمله )
lr = Range("b" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$B$4:$C$" & lr).AutoFilter Field:=1, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*"
وطريقة تكرار الاسماء معلومة لدي
ولكن مع كثرة الاسماء تفوق 70 اسم يصبح الجدول غير منظم و مزعج .
و علمت ان التصفية لا يمكن عملها في وجود صفوف مدمجة
ولاكن احببت طرح الموضوع في هذا المنتدى لما يتمتع به من وجود اعضاء متميزين و رحابة الصدر في حواراتهم .
لعلي اجد من الهمة الله بالعلم فيجد حلول لها . فبرنامج الإكسل عبارة عن لعبة الغاز نحاول حل مفرداتها.
فبارك الله في جهود الجميع .