ejecutar macros iguales en diferentes libros

18/04/2007 - 17:50 por giovany | Informe spam
buenas.

tengo varios libros que son iguales, digamos proveedores, en donde tienes la
misma estructura (producto, valor, etc.), ademas la macro que se ejecuta en
estos libros son iguales, en resumidas cuentas es un copia identica de otro
libro, lo unico que cambia es el nombre del proveedor
tengo un problema, al abrir el primer libro se auto-ejecuta la macro, al
cambiar de proveedor se abre otro libro y se cierra el que estaba actualmente
abierto guardando los cambios, lo que sucede es que cuando abre el segundo
libro no se ejecuta la macro solo queda el libro abierto y me toca ejecutar
la macro manualmente, existe alguna forma de que se auto-ejecute al cerrar el
primero?.

este es el procedimiento:

Private Sub cmbEmp_Change()
Workbooks.Open (ThisWorkbook.Path & "/" & cmbEmp.Value)
'Application.Run cmbEmp.Value & "!Auto_open"
ThisWorkbook.Close (True)
End Sub

tratè con la linea que esta comentariada pero genera un error.

los nombres de los libros los escojo de un comboBox, gracias por cualquier
respuesta que de solucion a este problema
 

Leer las respuestas

#1 Héctor Miguel
19/04/2007 - 06:26 | Informe spam
hola, giovany !

... varios libros que son iguales... misma estructura... la macro que se ejecuta en estos libros son iguales...
... al cambiar de proveedor se abre otro libro y se cierra el que estaba actualmente abierto guardando los cambios
... cuando abre el segundo libro no se ejecuta la macro solo queda el libro abierto y me toca ejecutar la macro manualmente

Private Sub cmbEmp_Change()
Workbooks.Open (ThisWorkbook.Path & "/" & cmbEmp.Value)
'Application.Run cmbEmp.Value & "!Auto_open"
ThisWorkbook.Close (True)
End Sub

... con la linea que esta comentariada... genera un error...



prueba modificando 'ligeramente' la linea que tienes comentada +/- a lo siguiente:
Application.Run ActiveWorkbook.Name & "!auto_open"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares