اخفاء صفوف بمعلومية خلايا محددة

[دغيدى]

مطلوب من السادة الأفاضل

عمل كود يقوم بإخفاء صفوف تحدد من خلال خلايا محددة للبداية والنهاية

اخفاء واظهار.rar

[الخالدي]

الفاضل / دغيدى

جرب الكود التالي

Sub AL_KHALEDI()

Rows.EntireRow.Hidden = False

Rows([J2]).Resize([K2] - [J2] + 1).EntireRow.Hidden = True

End Sub

واذا تعني بان الصفوف تبدأ من بداية الجدول (الصف رقم 4) جرب الكود التالي

Sub AL_KHALEDI()

Rows.EntireRow.Hidden = False

Rows([J2]).Offset(3, 0).Resize([K2] - [J2] + 1).EntireRow.Hidden = True

End Sub

اتمنى ان يكون المطلوب

[عبدالله المجرب]

السلام عليكم

حل موفق استاذ الخالدي

===

ويمكن استخدام هذا السطر لنفس الغرض

Rows([J2] & ":" & [K2]).EntireRow.Hidden = True

[دغيدى]

أخى الفاضل الخالدى

أثـــــابكم الله

كل عام وانتم بخير

[دغيدى]

أخى الفاضل أبو عبد الله

شكرا لله ولكم

كل عام وانتم بخير

رمضان كريم

[seao]

السلام عليكم اخوانى الافاضل

 

اعجبنى الموضوع و جزاكم الله خيرا وكنت اريد تنفيذه على ملفى ولكن بشكل اخر

 

ان يكون هناك زر بكود برمجى لاخفاء جميع الصفوف التى تحتوى على صفر موجود فى عمود معين

 

و زر اخر لاظهار الجميع

 

وجزاكم الله خيرا حيث ان الامر سوف يوفر الكثير من الوقت والمجهود

رصيد المخزن رقم 5 ب.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم  / seao

 

بارك الله فيك

جرب استخدام الاكواد التاليه لعمل المطلوب علي ملفك

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

Sub SAMA_6565()
On Error Resume Next
Application.ScreenUpdating = False
Dim LR As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = 3 To LR
    With Range("I" & i)
        If .Value = 0 Then
            .EntireRow.Hidden = True
        End If
    End With
Next i
Application.ScreenUpdating = True
End Sub

وهذا الكود لاظهار جميع الصفوف

Sub SAMA()
On Error Resume Next
Application.ScreenUpdating = False
    
    Rows("3:1000").Select
    Selection.EntireRow.Hidden = False
    Range("B3").Select
Application.ScreenUpdating = True

End Sub

واليك ملف 2003 به الكود والازرار

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

 

رصيد المخزن رقم 5 ب.rar

[احمد عبد الناصر]

السلام عليكم هذا حل اخر لاثراء الموضوع .

 

ملاحظة : نفس الزر يفلتر و يلغي الفلترة .

 

تحياتي

رصيد المخزن رقم 5 ب+.rar

[خالد القدس]

السلام عليكم<br /><br />حلول اكثر من رائعة<br /><br />تدل على أننا في حضرة عباقرة بكل معنى للكلمة<br /><br />جزاكم الله خيرا

[حمادة عمر]

السلام عليكم

اخي واستاذنا العزيز / خالد القدس

 

بارك الله فيك

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

[أبو أنس80]

بارك الله فيك

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

[دغيدى]

أخى الكريم / احمد عبد الناصر

كود جميل وخفيف 

أثابكم الله

[احمد عبد الناصر]

شكرا لك استاذ دغيدي , تقبل خالص تحياتي

[أبو أنس80]

بسم الله الرحمن الرحيم

 

يا جماعة ممكن تعديل نف كود اعلى على سبيل 

منع نسخ و حذف و ادراج و الى اخره علة مجموعة عمود معينة مثلا

عمود x    z     aa         ab    ad    bd    bo    bx