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
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
