Agregar otra opcion al boton alternar

Tengo este codigo para un boton que alterna necesito agregarle una opcion mas es decir

Si el boton dice diario se convierte en mensual y ejecuta la macro

Si el boton dice mensual se convierte en anual y ejecuta la macro

Si el boton dice anual se convierte en diario y ejecuta la macro

Muchas graciassss

Private Sub CommandButton12_Click()

If CommandButton12.Caption = "Diario" Then
CommandButton12.Caption = "Mensual"
OcultarColumnayPonerFiltroEnGxDia_diario

Else
CommandButton12.Caption = "Diario"
OcultarColumnayPonerFiltroEnGxDia_mensual

End If
End Sub

2 Respuestas

Respuesta
2

Probala así:

Private Sub CommandButton12_Click()
If CommandButton12.Caption = "Diario" Then   'pasa a mensual
CommandButton12.Caption = "Mensual"
OcultarColumnayPonerFiltroEnGxDia_diario
Elseif CommandButton12.Caption = "Mensual" Then   'pasa a anual
CommandButton12.Caption = "Anual"
OcultarColumnayPonerFiltroEnGxDia_mensual  
else  'significa que esta en anual
CommandButton12.Caption = "Diario"
OcultarColumnayPonerFiltroEnGxDia_anual    'ajustar nbre de macro  
End If
End Sub

Sdos.

Elsa

Respuesta
2

Para más de 2 opciones puedes utilizar la estructura "Select Case"

Private Sub CommandButton12_Click()
'
    Select Case CommandButton12.Caption
        Case "Diario"
            CommandButton12.Caption = "Mensual"
            OcultarColumnayPonerFiltroEnGxDia_Diario
        Case "Mensual"
            CommandButton12.Caption = "Anual"
            OcultarColumnayPonerFiltroEnGxDia_Mensual
        Case "Anual"
            CommandButton12.Caption = "Diario"
            OcultarColumnayPonerFiltroEnGxDia_Anual
    End Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas