Botón para macros

[mechiakov]

Buenas!! Estoy bastante pegado en Visual Basic y necesito que alguien me ayude!!
Quiero crear un botón en una hoja d excel que haga dos macros que he hecho,es decir,que al pulsarlo una vez me pliegue toda la hoja y al darle otra vez me lo despliegue y se vea toda la información,he puesto el siguiente código y no me da errores de compilación pero no me va solamente me ejecuta uno de los 2 macros,el ke esta a true!!!A ver ke opinais!!

Gracias por adelantado y Saludos!!!!

Private Sub CommandButton1_Click()
If CommandButton1 = True Then
Rows("2:5").RowHeight = 0
Rows("1:1").RowHeight = 0
Else
Rows("5:5").EntireRow.AutoFit
Rows("4:4").EntireRow.AutoFit
Rows("3:3").EntireRow.AutoFit
Rows("2:2").EntireRow.AutoFit
Rows("1:1").EntireRow.AutoFit
End If
End Sub

[mrocf]

Hola!
EL control pertinente para lo que quieres hacer es una casilla de verificación y no un botón de comando.

Ello es así pues la casilla tiene dos estados (true or false), mientras que el botón de comando solo tiene un estado (de allí el evento: 'Click').

De modo que solo tienes que cambiar de control.

Claro que la opción -si es que deseas tomarla- es que al presionar tu botón, modifiques -además- al valor de alguna celda... y que sea el valor de esa celda quien administre la lógica del procedimiento.

Saludos.

[ideasking]

Si necesitas definitivamente un Boton, puedes colocar dos botones uno encima del otro y los programa por separado adicionandole a cada uno una linea que le cambie la propiedad visible al otro. Asi cuando presiones el boton 1 se ejecuta la macro despues oculta el boton1 y hace visible el boton 2, luego al presionar el boton 2 que haga visible el boton 1 y oculte el dos. Pero lo correcto es la casilla de verificacion.

[ideasking]

Si te parece puedes utilizar un control que se llama ToggleButton y le escribes en el codigo una condicion:

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = 0 Then
Range("a1") = "PRIMERA MACRO"
Else
Range("a1") = "SEGUNDA MACRO"
End If
End Sub

Yo coloque range("a1") pero ahi iría el codigo de la macro respectiva.

[mechiakov]

Muchas gracias por responder a los dos!!! He probado lo de ToggleButton y va de maravilla!!!!Asi que lo voy a dejar así.