Using IIF To Show Hide Rows مساعدة من الأخ ياسر خليل

[مهند الزيدي]

السلام عليكم ... ممكن عمل كود يقوم بأخفاء الصفوف التي قيمة خلية المجموع فيها يساوي صفر ..كما في الطريقة المتبعة لإخفاء وإظهار الإعمدة بزر واحد في Sheet1 ..الشرح أكثر داخل المرفق...

مع شكري وتقديري لك أخي العزيز ,. ولكل من في المنتدى الرائع

Using IIF To Show Hide Rows.rar

[سليم حاصبيا]

جرب هذا الملف

 

Show_Hide_Rows.rar

[عبدالسلام ابوالعوافي]

Private Sub CommandButton1_Click()
     If ActiveSheet.CommandButton1.Caption = "Hide" Then
     
    Application.ScreenUpdating = False
    
    For Each cell In Range("g4:g300")
        If cell.Value = 0 Or cell.Value = "" Then
            cell.EntireRow.Hidden = True
            i = 1
        End If
    Next cell
        ActiveSheet.CommandButton1.Caption = "Show"
    Else
        Rows("4:300").EntireRow.Hidden = False

        ActiveSheet.CommandButton1.Caption = "Hide"
    End If
    Application.ScreenUpdating = True
End Sub

[ياسر خليل أبو البراء]

أخي العزيز عبد السلام

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

يرجى وضع الأكواد بين أقواس الكود التي تظهر لديك بهذا الشكل <> ليظهر الكود بشكل منسق

 

أخي الكريم مهند تم تقديم الحل من قبل أخونا سليم وأخونا عبد السلام هل جربت الحل أم لا؟

[مهند الزيدي]

شكرا للإخوة الأعزاء " سليم " , "  عبد السلام " .. وفقكم الله لكل خير ..

تم المطلوب .. 

شكرا لك أخي العزيز " ياسر " على السؤال .. اطال الله في عمرك ... وحفظ الله جميع من في المنتدى الرائع ..ورزقهم الصحة والعافية في الدين والدنيا