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

Discute sobre la aplicación de hojas de cálculo

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

Notapor BOTUCATU » Vie Ago 21, 2020 10:25 pm

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
BOTUCATU
 
Mensajes: 34
Registrado: Vie Ene 04, 2019 9:59 pm

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Notapor FJCC-ES » Sab Ago 22, 2020 3:52 am

Código: Seleccionar todo   Expandir vistaContraer vista
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
FJCC-ES
 
Mensajes: 733
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Notapor BOTUCATU » Sab Ago 22, 2020 3:14 pm

¡Muchas gracias! Se ha solucionado mi inconveniente. Muy amable FJCC-ES.
OpenOffice 3.1 en Windows 7 SP1
BOTUCATU
 
Mensajes: 34
Registrado: Vie Ene 04, 2019 9:59 pm

Re: Ejecutar macro distinta de acuerdo a la hoja activa

Notapor PepeOooSevilla » Sab Ago 22, 2020 4:04 pm

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.
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado