[RESUELTO] Ejecutar macro distinta de acuerdo a la hoja act.

Discute sobre la aplicación de hojas de cálculo
Responder
BOTUCATU
Mensajes: 34
Registrado: Vie Ene 04, 2019 9:59 pm

[RESUELTO] Ejecutar macro distinta de acuerdo a la hoja act.

Mensaje por BOTUCATU »

Buenas tardes.
Quisiera que al ejecutar mi macro nominada "agregarcliprov" se ejecute la macro "agregarcli" cuando estoy en la hoja "clientes", y que se ejecute la macro "agregarprov" cuando estoy en la hoja "proveedores"
Me imaginaba algo así:

sub agregarcliprov
rem ----------------------------------------------------------------------
Si la hoja activa es "clientes", entonces
call agregarcli
si la hoja activa es "proveedores", entonces
call agregarprov

End Sub

Desde ya les agradezco sus consejos sobre como escribir correctamente mi macro en openbasic
Última edición por BOTUCATU el Sab Ago 22, 2020 5:37 pm, editado 2 veces en total.
OpenOffice 3.1 en Windows 7 SP1
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Mensaje por FJCC-ES »

Código: Seleccionar todo

Sub Main
oHoja = ThisComponent.CurrentController.ActiveSheet
sNombre = oHoja.Name

if sNombre = "clientes" Then
  agregarcli
End If

if sNombre = "proveedores" Then
  agregarprov
End if
End Sub

Sub agregarcli
print "agregarcli"
End Sub

Sub agregarprov
print "agregarprov"
End Sub
BOTUCATU
Mensajes: 34
Registrado: Vie Ene 04, 2019 9:59 pm

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Mensaje por BOTUCATU »

¡Muchas gracias! Se ha solucionado mi inconveniente. Muy amable FJCC-ES.
OpenOffice 3.1 en Windows 7 SP1
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Mensaje por PepeOooSevilla »

Hola.
Por favor, cuando consideres que un tema que has iniciado se ha resuelto, debes indicarlo (¿Cómo marcar como RESUELTO un tema?), para conseguir, de esta forma, un foro más ordenado.
Saludos cordiales.
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.
Responder