VBA hide/unhide

[Cancyy]

Hi all,

please could you help me update this button code.

Sub Commission()
Dim r As Range, c As Range
Set r = Range("E32:E34")
Application.ScreenUpdating = False
For Each c In r
If c.EntireRow.Hidden = True Then
c.EntireRow.Hidden = False
Else
If Len(c.Text) = 0 Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
End If
Next c
Application.ScreenUpdating = True
End Sub

I would like to hide empty cell - depending where I enter the value.
(if I entered value in cell E32 hide empty row E33 and show result E34 and reverse. If both cells are empty hide all rows)

 

[Joe4]

Welcome to the Board!

I find this explanation a big confusing:

(if I entered value in cell E32 hide empty row E33 and show result E34 and reverse. If both cells are empty hide all rows)

Could you maybe try explaining it again, in more detail, maybe show us a few examples along with your expected results?

 

[Cancyy]

Hi, and thank you.
Now I see that what I want is described rather clumsily.
I came up with the solution on my own

firs I entered formula in Cell B34


when you enter percentage in B32 row 33 is hidden


if you enter percentage in cell B33 row 32 is hidden


when there is no commission (empty cells B32 and B33) - all rows 32,33 and 34 are hidden

I hope that pictures explain better than my words

Sub Commission()

 
    Dim r As Range, c As Range
    Set r = Range("B32:B34")
    Application.ScreenUpdating = False

   For Each c In r
       
        If c.EntireRow.Hidden = True Then
            c.EntireRow.Hidden = False
        Else
            If c.Value = 0 Then
                c.EntireRow.Hidden = True
            Else
                c.EntireRow.Hidden = False
            End If
        End If
   
    Next c

    Application.ScreenUpdating = True
          

End Sub

There's a chance there's a better solution, but this works for me.