إخفاء صف بشرط

[محمد الورفلي1]

إخفاء صف بشرط

اخفاء صف بشرط.rar

[محمد الورفلي1]

للرفع

[رجب جاويش]

السلام عليكم

تفضل أخى

والشكر موصول لأستاذ الأجيال / عبد الله باقشير الذى تعلمنا منه  هذه الإبداعات

Sub ragab1()
Dim i As Integer
Dim x As Integer
Application.ScreenUpdating = False
For i = 10 To 406 Step 4
    If Cells(i, "AE").Value = "منتقل" Then
        x = Cells(i, "AE").Row
        Range("A" & x & ":AE" & x + 3).EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

Sub Hide_Show()
On Error Resume Next
Dim XX As Shape
Set XX = ActiveSheet.Shapes("إخفاء")
With XX.TextFrame.Characters
    If .Text = "إخفاء منتقل" Then
       ragab1
       .Text = "إظهار منتقل"
    Else
       ragab2
       .Text = "إخفاء منتقل"
    End If
End With
End Sub

Sub ragab2()
Cells.Rows.Hidden = False
End Sub

اخفاء صف بشرط.rar

[محمد الورفلي1]

بارك الله فيك وإن شاء الله في ميزان حسناتك انت  واستاذ عبد الله

[رجب جاويش]

أخى الفاضل / محمد

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