Ocultar/Desocultar botones según resultado de formula

Tengo en una hoja "MATRIZ" en la celda H10 la fórmula (H9/H8) que da un resultado entre 1 y 8.

Lo que me gustaría es que dependiendo del resultado de esa celda haga aparecer los diferentes botones, es decir si el resultado es 1 aparece el botón que me lleva a la hoja 1, si el resultado es 3 aparece el botón que me lleva a la hoja 1, el que me lleva a la hoja 2 y el que lo hace a la hoja 3.
Copio el código que tengo actualmente:

Private Sub Worksheet_Calculate()
'Por.Dante Amor
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
CommandButton5.Visible = False
CommandButton6.Visible = False
CommandButton7.Visible = False
CommandButton8.Visible = False
Select Case Int([H10])
Case 1: CommandButton1.Visible = True
Case 2: CommandButton2.Visible = True
Case 3: CommandButton3.Visible = True
Case 4: CommandButton4.Visible = True
Case 5: CommandButton5.Visible = True
Case 6: CommandButton6.Visible = True
Case 7: CommandButton7.Visible = True
Case 8: CommandButton8.Visible = True
End Select
End Sub

1 Respuesta

Respuesta
2

H o l a:

Te anexo la macro actualizada. Cambia la macro anterior por esta nueva:

Private Sub Worksheet_Calculate()
'Por.Dante Amor
    Application.ScreenUpdating = False
    For i = 1 To 8
        ActiveSheet.DrawingObjects("CommandButton" & i).Visible = False
    Next
    For i = 1 To Int([H10])
        ActiveSheet.DrawingObjects("CommandButton" & i).Visible = True
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas