Condición de Command Buttons en Hojas Diferentes
En el foro.
Le adjunto un archivo que tiene una macro para cambiar color y nombre de dos commad buttons, los probé y funcionan perfecto en la misma hoja pero requiero uno en cada hoja. En este paso es que requiero de su ayuda porque no se como configurar la macro.
1 respuesta
¡Gracias! ¡Gracias!
aquí el código
Private Sub CommandButton1_click()
Range("A2") = "CCT"
CommandButton1.Caption = "HOJA ACTIVA"
CommandButton2.Caption = "ACTIVAR HOJA"
CommandButton1.BackColor = vbGreen
CommandButton2.BackColor = vbRed
End Sub
Private Sub CommandButton2_click()
Range("A2") = "APN"
CommandButton2.Caption = "HOJA ACTIVA"
CommandButton1.Caption = "ACTIVAR HOJA"
CommandButton2.BackColor = vbGreen
CommandButton1.BackColor = vbRed
End Sub
lo que requiero es que uno de los buttons este en otra hoja y se comporten igual.
saludos
Suponiendo que quieres el botón1 en la hoja1 y el botón2 en la hoja2, pon el siguiente código en la hoja1:
Private Sub CommandButton1_click()
Range("A2") = "CCT"
Sheets("Hoja1").CommandButton1.Caption = "HOJA ACTIVA"
Sheets("Hoja2").CommandButton2.Caption = "ACTIVAR HOJA"
Sheets("Hoja1").CommandButton1.BackColor = vbGreen
Sheets("Hoja2").CommandButton2.BackColor = vbRed
End SubY este código en la hoja2:
Private Sub CommandButton2_click()
Range("A2") = "APN"
Sheets("Hoja2").CommandButton2.Caption = "HOJA ACTIVA"
Sheets("Hoja1").CommandButton1.Caption = "ACTIVAR HOJA"
Sheets("Hoja2").CommandButton2.BackColor = vbGreen
Sheets("Hoja1").CommandButton1.BackColor = vbRed
End Sub
¡Gracias!
me funciono muy bien, el único detalle que se corrigió fue l numero del command button que era 1 en cada hoja, muchas gracias Dante problema resuelto
Me alegra ayudarte. ¡Gracias! Por comentar.
