Hiding and Unhiding buttons question

[Alex Piotto]

Hi!
I have got two command buttons overlapping.
In the script below, CommandButton1 will hide the zero's rows, and CommandButton2 will show them again.
And they will hide and show each other too.
The hiding zeros part is OK.
Quite simple I can say... BUT....

'HIDING ZERO ROWS
ActiveSheet.Shapes("CommandButton2").Visible = True
ActiveSheet.Shapes("CommandButton1").Visible = False

    Dim cell As Range
    For Each cell In Range("K2:K200")
    If Not IsEmpty(cell) Then
    If cell.Value <> "" And cell.Value = 0 Then
    cell.EntireRow.Hidden = True
    End If
    End If
    Next

'SHOW ALL ROWS
ActiveSheet.Shapes("CommandButton1").Visible = True
ActiveSheet.Shapes("CommandButton2").Visible = False

    Dim cell As Range
    For Each cell In Range("K2:K200")
    cell.EntireRow.Hidden = False
    Next

... BUT... the buttons will hide only if I click somewhere on the sheet.
Why is that happening and what can I do to avoid it?

 

[Fluff]

Can you please supply the entire code?

 

[Alex Piotto]

Yes I can. Thanks. Actually what before seems to work is not. Buttons do not hide really... I am getting crazy over it!

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False


ThisWorkbook.Sheets("CONTAGGIO").Unprotect
'SHOW ALL
ActiveSheet.Shapes("CommandButton1").Visible = True
ActiveSheet.Shapes("CommandButton2").Visible = False

    Dim cell As Range
    For Each cell In Range("K2:K200")
    cell.EntireRow.Hidden = False
    Next
    


ThisWorkbook.Sheets("CONTAGGIO").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Sheets("CONTAGGIO").EnableSelection = xlUnlockedCells

Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()


Application.ScreenUpdating = False

ThisWorkbook.Sheets("CONTAGGIO").Unprotect
'HIDING ZEROS
ActiveSheet.Shapes("CommandButton2").Visible = True
ActiveSheet.Shapes("CommandButton1").Visible = False

    Dim cell As Range
    For Each cell In Range("K2:K200")
    If Not IsEmpty(cell) Then
    If cell.Value <> "" And cell.Value = 0 Then
    cell.EntireRow.Hidden = True
    End If
    End If
    Next


ThisWorkbook.Sheets("CONTAGGIO").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Sheets("CONTAGGIO").EnableSelection = xlUnlockedCells

Application.ScreenUpdating = True
End Sub

 

[Fluff]

Thanks for that, both those codes work for me.
Do you get any error messages?
Are the buttons on the Contaggio sheet?

 

[Alex Piotto]

No errors.... and the buttons are in contaggio sheet.
May be is all about the initial visibility of the buttons?
Any alternative?

 

[Fluff]

Does it make any difference if you use

Me.CommandButton1.Visible = True
Me.CommandButton2.Visible = False

 

[Alex Piotto]

Not in a form....

 

[JoeMo]

Have you changed the name(s) of your command buttons in the Properties window next to (Name)?

 

[Trixterz]

Is the property name of your command button "CommandButton1" and "CommandButton2"?

Also is that region of your worksheet unlocked or your worksheet unprotected?

 

[Fluff]

Not in a form....

Not sure what you mean?
Did you try what I suggested?