[RESUELTO] Cambiar de hoja con un Botón.

¿Nuevo en Apache OpenOffice? ¿No sabe cómo comenzar o dónde hacer su pregunta? ¡Este es el lugar!
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
Responder
Andres Lote
Mensajes: 15
Registrado: Mié Jul 04, 2018 5:35 pm

[RESUELTO] Cambiar de hoja con un Botón.

Mensaje por Andres Lote »

Buenas Tardes, por favor alguien que me pueda colaborar con la siguiente pregunta, quisiera saber si es posible con alguna macro poder cambiar o pasar de hoja al dar click en un boton que diga siguiente y este habilite otra hoja la cual se encuentra oculta y ocultar la anterior? gracias por su colaboracion.

Saludos Andres.
Última edición por Andres Lote el Jue Jul 12, 2018 9:21 pm, editado 1 vez en total.
Open office 4.1.3 windows 7 profesional
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Cambiar de hoja con un Boton

Mensaje por PepeOooSevilla »

Hola.

En el archivo adjunto, FORO_CALC_Boton_Ir_a_hoja_MACRO.ods, puedes ver un ejemplo:

Código: Seleccionar todo

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

Sub IrHoja1()
'Hoja1 se convierte en la hoja activa mientras que se oculta la Hoja2
	
	With ThisComponent
		'Hacemos visible Hoja1 para poder activarla
		.getSheets.getByName("Hoja1").isVisible = True
		'Activamos Hoja1
		.getCurrentController.setActiveSheet(.getSheets.getByName("Hoja1"))
		'Y ocultamos "Hoja2"
		.getSheets.getByName("Hoja2").isVisible = False
	End With
End Sub

Sub IrHoja2()
'Hoja2 se convierte en la hoja activa mientras que se oculta la Hoja1
	
	With ThisComponent
		'Hacemos visible Hoja2 para poder activarla
		.getSheets.getByName("Hoja2").isVisible = True
		'Activamos Hoja2
		.getCurrentController.setActiveSheet(.getSheets.getByName("Hoja2"))
		'Y ocultamos "Hoja1"
		.getSheets.getByName("Hoja1").isVisible = False
	End With
End Sub
Ahora bien, para adentrarse en el mundo de las macros para OpenOffice/LibreOffice, lo primero que has de hacer es leer, releer y estudiar el libro de nuestro compañero mauricio Aprendiendo OOo Basic y, también, visitar y estudiar las páginas Manuales de Apache OpenOffice en español: Basic y Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es.

Las macros son muy poderosas pero también muy frustrantes cuando no te dan el resultado esperado. Por eso te recomiendo primero que estudies los enlaces citados y segundo, que no te canses de hacer pruebas una y otra vez.

Dependiendo de tus necesidades, obviamente, podrías hacer "casi" lo mismo sin necesidad de macros, bien con hiperenlaces o con botones. En el otro archivo adjunto, FORO_CALC_Boton_Ir_a_hoja.ods, puedes ver un ejemplo con botones (Ver > Barra de herramientas: Controles de formulario) sin necesidad de macros. Las pestañas de las hoja las podrías ocultar en "Herramientas > Opciones ... > LibreOffice Calc > Ver". Tendrías que ajustar las propiedades del botón correspondiente como se muestra en la imagen.

Saludos cordiales.
Adjuntos
FORO_CALC_Boton_Ir_a_hoja_MACRO.ods
(18.52 KiB) Descargado 406 veces
FORO_CALC_Boton_Ir_a_hoja.ods
(17.11 KiB) Descargado 442 veces
FORO_CALC_Propiedades_boton.png
FORO_CALC_Propiedades_boton.png (9.24 KiB) Visto 4730 veces
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Andres Lote
Mensajes: 15
Registrado: Mié Jul 04, 2018 5:35 pm

Re: Cambiar de hoja con un Boton

Mensaje por Andres Lote »

Buenas tardes,

Muchas gracias por su colaboración, fue muy útil la el código que compartiste ya pude terminar con el proyecto que tenia en mente.

Saludos :super: ....
Open office 4.1.3 windows 7 profesional
jorgy
Mensajes: 3
Registrado: Vie Jul 26, 2019 6:19 pm

Re: [RESUELTO] Cambiar de hoja con un Botón.

Mensaje por jorgy »

amigo... muchas gracias PepeOooSevilla estoy aprendiendo y este post me ha servido mucho, agradezco también la información adicional de los enlaces citados, voy a tratar de aprender lo suficiente
OpenOffice 6.2.0 en Windows 10
Responder