Botón Ir a Anterior Página
Hola Fernando, nuevamente disculpa las molestias, quisiera saber si puedes indicarme como crear una macro que me permita ir exactamente a la ultima hoja en la que estuve parado antes de ir a la hoja en la que estoy. `(Ir a Ultima Página Visitada) o algo por el estilo
Un millón de gracias! Un abrazo
Mauricio
Un millón de gracias! Un abrazo
Mauricio
1 Respuesta
Respuesta de fejoal
1
Para que funcione, necesitarás un par de códigos en VBA y disponer de una celda libre
Activa el editor de Visual Basic (presiona Alt+F11) y busca la hoja que dice "ThisWorkbook" (o "EsteLibro" según la versión")
Copia el código siguiente y pégalo en el panel desplegado a la derecha de su Editor de Visual Basic:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets("Hoja1").Range("Z1").Value = Sh.Name
End Sub
Y dice que, cada vez que cambies de hoja, antes deje en la celda Z1 de "Hoja1" en nombre de la hoja.
Otra macro, tomará ese dato cada vez que ejcutes la macro que sigue:
Dentro del editor de Visual Basic inserta un nuevo módulo ("Insertar", "Módulo") y pega el siguiente código:
Sub Volver()
Sheets(Sheets("Hoja1").Range("Z1").Value).Activate
End Sub
Obviamente si la celda u hoja donde quieres dejar el dato fuese otra, cambia tales referencias en ambas macros.
Sería bueno que le asignes un atajo a esta macro ("Volver") de forma tal que puedas utilizarla más fácilmente.
Para lo del atajo, haz:
"Herramientas" | "Macro" | "Macros"
Selecciona allí (un sólo click sobre) la nueva macro ingresada y presiona el botón "Opciones". En la pantalla siguiente ingresa la letra a la que quieres asociar la macro. Por supuesto evita aquellas que ya están siendo utilizadas por MS Excel como atajo (v.g. Ctrl + C, Ctrl + POR, etc)
Luego de aceptar, cuando presiones Ctrl más la letra indicada, la macro se ejecutará istantaneamente.
Ojala que esto te sirva, también.
Un abrazo!
Fernando
Activa el editor de Visual Basic (presiona Alt+F11) y busca la hoja que dice "ThisWorkbook" (o "EsteLibro" según la versión")
Copia el código siguiente y pégalo en el panel desplegado a la derecha de su Editor de Visual Basic:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets("Hoja1").Range("Z1").Value = Sh.Name
End Sub
Y dice que, cada vez que cambies de hoja, antes deje en la celda Z1 de "Hoja1" en nombre de la hoja.
Otra macro, tomará ese dato cada vez que ejcutes la macro que sigue:
Dentro del editor de Visual Basic inserta un nuevo módulo ("Insertar", "Módulo") y pega el siguiente código:
Sub Volver()
Sheets(Sheets("Hoja1").Range("Z1").Value).Activate
End Sub
Obviamente si la celda u hoja donde quieres dejar el dato fuese otra, cambia tales referencias en ambas macros.
Sería bueno que le asignes un atajo a esta macro ("Volver") de forma tal que puedas utilizarla más fácilmente.
Para lo del atajo, haz:
"Herramientas" | "Macro" | "Macros"
Selecciona allí (un sólo click sobre) la nueva macro ingresada y presiona el botón "Opciones". En la pantalla siguiente ingresa la letra a la que quieres asociar la macro. Por supuesto evita aquellas que ya están siendo utilizadas por MS Excel como atajo (v.g. Ctrl + C, Ctrl + POR, etc)
Luego de aceptar, cuando presiones Ctrl más la letra indicada, la macro se ejecutará istantaneamente.
Ojala que esto te sirva, también.
Un abrazo!
Fernando
