[RESUELTO] Macro para ir a otra hoja AYUDA

[ivanbr3]

Hola a todos,

he estado buscando por el foro y no he encontrado nada parecido, pero puede ser que se me haya escapado, en ese lugar pido disculpas a los administradores.

Mi intención es la siguiente: al pulsar un botón en una hoja de cálculo (la llamamos INICIO, por ejemplo), necesito que me lleve a otra hoja del mismo documento (la llamamos en este caso, DESTINO 1), luego al pulsar otro botón diferente pues que lleve a otra hoja (DESTINO 2), y así...
He estado buscando y probando macros e intentado hacerla pero no me sale, lo más que he conseguido es que me de el nombre de la hoja en una ventana nueva, pero no que me "redirija" como tal.

Si alguien puede ayudarme lo agradecería bastante.

Muchas gracias compañeros. Saludos!!

[PepeOooSevilla]

Hola.
Te damos la bienvenida al Foro y, por favor, no dejes de leer la Guía de supervivencia.
En el archivo adjunto tienes un ejemplo. Este es el código:

Código: Seleccionar todo

REM  *****  BASIC  *****
Option Explicit

Sub Ir_Menu_Principal
	Dim DocCalc As Object
	Dim Hoja As Object
	
	' Inicializar variables
	DocCalc = ThisComponent
	' Accedemos a la hoja por su nombre
	Hoja = DocCalc.getSheets().getByName("MENU")
	' Esa hoja pasa a ser la hoja activa
	DocCalc.CurrentController().SetActiveSheet(Hoja)
End Sub

Sub Ir_Hoja1
	Dim DocCalc As Object
	Dim Hoja As Object
	
	' Inicializar variables
	DocCalc = ThisComponent
	' Accedemos a la hoja por su nombre
	Hoja = DocCalc.getSheets().getByName("Hoja1")
	' Esa hoja pasa a ser la hoja activa
	DocCalc.CurrentController().SetActiveSheet(Hoja)
End Sub

Sub Ir_Hoja2
	Dim DocCalc As Object
	Dim Hoja As Object
	
	' Inicializar variables
	DocCalc = ThisComponent
	' Accedemos a la hoja por su nombre
	Hoja = DocCalc.getSheets().getByName("Hoja2")
	' Esa hoja pasa a ser la hoja activa
	DocCalc.CurrentController().SetActiveSheet(Hoja)
End Sub

Saludos cordiales.

[ivanbr3]

FUNCIONA!
Muchísimas gracias!!!
Eternamente agradecido.

[arivas_2005]

Saludos.
Si me permiten aprovechar el hilo para extenderse a la inquietud siguiente:

Cómo traslado el puntero de celda a una celda específica (ejemplo B4) de otra hoja y dejarla lista para teclear datos

MI agradecimiento a la consideración.
Exitos

[mauricio]

Esa es otra pregunta... una pregunta por tema una respuesta por tema...

Casi, todo eso esta documentado:
https://wiki.openoffice.org/wiki/ES/Man ... ciaARangos