Correr Macro al dar click sobre la pestaña de una hoja de un Multipage
Quisiera saber como puedo hacer para que al dar click sobre la pestaña del nombre de una hoja de un multipage me corra cierto código. Mi hoja se llama "Page1" y lo que necesito es que al cambiar de hoja corra ejecute un macro. Lo que tengo es esto:
Private Sub Page1_Click()
' Aqui va Mi codigo
End Sub
Pero no hace ninguna accion.
1 Respuesta
H o la:
Supongo que al seleccionar la pestaña quieres que se ejecute una macro, entonces utiliza el evento Change:
Private Sub MultiPage1_Change() If MultiPage1.Value = 0 Then MsgBox "Ejecutar macro" End If End Sub
En MultiPage1.Value tienes el número de pestaña, el 0 corresponde al Page1, el 1 al Page2, el 2 al Page3, etc.
Es mejor utilizar el evento Change, si utilizas el evento click, cada que le de click en cualquier parte de la página (Page) se ejecuta la macro, entonces, debe ser cuando cambias (change) de una página a otra.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
