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

Botón de un formulario que cambie el nombre del botón

Pregunta para dante te estoy mandando el archivo por mail gracias dante
1 respuesta

Como posicionar un msgbox

En una macro dónde busco unas claves, al encontrar la clave saco un msgbox con una pregunta, pero los msgbos salen, en principio, en el centro de la pantalla, ¿Se pueden posicionar los msgbox? Y si se pueden ¿Cómo?
3 respuestas

Marcel: Como escribir una cadena de IF or Else

Necesito una macro que me filtre una columna solo si al escribir en una celda cumple con la condición. Pero tengo Diez posibles condiciones para filtrar. No encuentro como condicionar y reconocer las posibles diez condiciones. Esto es lo que tengo,...
3 respuestas

Valor automático en celdas según variable

Tengo una tabla de excel con doce filas correspondiente a los meses del año. Necesito que depende la fecha actual me coloque cuando el pago es trimestral, el importe en los meses correspondientes. Por ejemplo, ahora mes de diciembre que lo pusiera en...
1 respuesta

Código para validar un textbox

Suponiendo que tengo dos textbox necesito que al dar enter me obligue a ingresar algún dato para pasar al segundo textbox . Por otro lado necesito saber como validar los texbox suponiendo que tenga 3 textbox Uno de fecha, otro de numero y otro de letras
2 respuestas

Botones de Opciones con Datagrid

Soy Juan Diego, estoy estudiando en la UTU estoy terminando el último año de informática, quede a examen con Programación por no haber terminado el proyecto y necesito mucha ayuda porque tengo bastantes errores y tengo una única oportunidad en...
1 respuesta

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
2 respuestas

"Macro para dar Formato condicional a un rango de celdas separadas"

Para Dante Amor Hola Dante, necesito ayuda para una macro que me cambie tanto el color de fondo como el de la fuente en un rango de celdas que están separados en la misma hoja. Según el texto que tenga el rango de celdas, que será ND, PD, E y D, se...
1 respuesta

Obligar a que se ponga un formato en textbox

Que pesaita soy, pero sois muy buenos. Aver, me gustaría hacer algo parecido a las mascaras de entrada en access, os comento, en la bbdd los usuarios deben introducir muchas fechas y sabemos que a veces se nos van los dedos y las ponemos mal, lo que...
1 respuesta

Cambiar de color pestanas de excel compartido, con condicional

Manejo un archivo en excel compartido, el cual tiene distintos datos en cada hoja, ¿Es posible programar una condicional para que dependiendo de un valor en determinada celda cambie de color la pestana? Grabe 3 macros con botones para los colores ya...
2 respuestas