Anónimo
Macro que no se ejecuta al activar hoja
Hola, necesito ayuda ya que no logro encontrar el error.
Tengo una hoja en un libro de varias hojas, a la cual accedo desde unhipervinculo en otra hoja del mismo libro.
Tengo la siguiente. Instrucción que se supone, debería borrar determinadas celdas al ingresar a la hoja (cuando la hoja se active)
Private Sub worksheet_activate()
Application.ScreenUpdating = False
Run ("borrardatosfiltrados")
End Sub
Cuando ingreso a la hoja dando clic en la etiqueta de la misma la macro se ejecuta pero cuando ingreso desde el hipervínculo no lo hace, la idea es que funcione porque las etiquetas van ocultas y para eso efectúe el menu con los vínculos a cada hoja.
Por favor, ¿podrás darme una mano?
Muchísimas gracias!
Tengo una hoja en un libro de varias hojas, a la cual accedo desde unhipervinculo en otra hoja del mismo libro.
Tengo la siguiente. Instrucción que se supone, debería borrar determinadas celdas al ingresar a la hoja (cuando la hoja se active)
Private Sub worksheet_activate()
Application.ScreenUpdating = False
Run ("borrardatosfiltrados")
End Sub
Cuando ingreso a la hoja dando clic en la etiqueta de la misma la macro se ejecuta pero cuando ingreso desde el hipervínculo no lo hace, la idea es que funcione porque las etiquetas van ocultas y para eso efectúe el menu con los vínculos a cada hoja.
Por favor, ¿podrás darme una mano?
Muchísimas gracias!
1 respuesta
Respuesta de d2enri
1
No eniendo porque no se te ejecuta al abrir desde el hipervínculo pues ami si se me activa la macro al pinchar en el hipervenculo
pero tienes otra opción que seria pegar este código en la hoja que tengas el hipervínculo
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Hoja3").Select
End Sub
Cambiando hoja3 por la que tengas en el hipervínculo con lo cual activaras la hoja con macro y así debe realizar el activate()
Pruébalo y ya me cuentas
pero tienes otra opción que seria pegar este código en la hoja que tengas el hipervínculo
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Hoja3").Select
End Sub
Cambiando hoja3 por la que tengas en el hipervínculo con lo cual activaras la hoja con macro y así debe realizar el activate()
Pruébalo y ya me cuentas