اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

بعد اذن استاذى / خزانى

استاذ / زوهير

اليك حل اخر ربما ينال اعجابك 

انقر دبل كليك على الصف المراد حذفه من الليست بوكس

تقبل منى وافر الاحترام والتقدير :fff:

الحذف من الليست بوكس.zip

قام بنشر

جزاكم الله خيـرا
وبارك في جهودكم
وأسال الله لكم التوفيق دائما ويزيدكم علما
وأن يجمعنا على الود والإخاء والمحبة
وأن يثبت الله أجركم
وينفعا الله وإياكم بما تقدموه

------------------------------------

وهو المطلوب

قام بنشر

بعد اذنكم

صلح في ملف

-------------------------------------------------------------------------------------------------------------------------------------------------------------

و بعد استعماله في ملف اخر  عدد الاعدة 15 وعدد الصفوف اكثر من 500 صف لم يستجب

وقع الخطأ هنا

 

.Range("$a$1:$e$1").AutoFilter Field:=1, Criteria1:=ww
 ll = .Range("a10000").End(xlUp).Row + 1
 .Range("$a$1:$e$1").AutoFilter
.Range(Cells(ll - 1, "a"), Cells(ll - 1, "a")).Select
 Selection.EntireRow.Delete

 

وجزاكم الله خيرا

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information