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

السلام عليك و اهلا بيكم ياشباب


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

السلام عليكم

الكود و الملف

Sub dell0()
Dim cell As Range
Cells(1, 1).Select
For Each cell In ActiveSheet.UsedRange
If cell.Value = 0 Then cell.EntireRow.Delete (xlUp)
Next
End Sub

dellzeeroz.rar

رابط هذا التعليق
شارك

السلام عليكم

اذا لم ترد ازرار ممكن ان تضع الكود الخاص بالاخ aah_aah2008

في حدث Change في الورقه المراد فلترتها

و الا :

فهناك حل سهل جدا و سريع و جميل و متاح من الاكسل نفسه من الفلتره التى انت عاملها

اختر العمود C و من تصفيه مخصصه > اختر اظهار القيم التى تساوى > اكبر من صفر يظهر لك الشكل التالى في المرفق

ok12.rar

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

السلام عليكم و رحمة الله

بعد اذن استاذي الفاضل ابو اسامة

بعد اذنك اخي aahaah2008

الأخ koko1512

شاهد الملف المرفق

في الخانة الحمراء فوق العمودC اكتب الرقم الذي لاتريدة ان يظهر

وبموجب التصفية سوف يتم اخفاء الأسطر التي يوجد بها الرقم المكتوب في الخلية الحمراء

هل هذا المطلوب

ok1.rar

رابط هذا التعليق
شارك

السلام عليكم

مرحبا اخي احمد و بعد اذنك

فعندي رؤيا اخري قد تنفع

اخي الكريم

هذا العمل علي الملف الخاص بك

امام الصف الذي لا تريده ان يظهر وفي العمود A

اكتب الرقم 1 و اذا كان يضايقك ظهور العمود A

اعمل له اخفاء و العوده لاظهاره عندما يتطلب الامر ذلك

ok11.rar

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information