replica contador

[Blai]

Apreciado Juan Pablo:
Muchas gracias por tu información el contador ha funcionado de maravilla. Pero de esta forma me ocasiona un problema y es el siguiente:
Yo tengo una factura confeccionada que al abrir el archivo debe de aparecerme sin los datos anteriores.
Si hago una factura, la imprimo.etc. al cerrarla debo decirle que no me guarle los cambios, lo que implica que tampoco se guarda el numero del contador.
No se si me explico bien, lo que quiero es que al abrir la nueva factura aparezca sin los datos anteriores, pero con el nuevo número.
espero no molestarte demasiado.
Recibe un cordial saludo desde Mallorca (España.

Blas

 

[Juan Pablo González]

Tranquilo, ya había leído el mensaje. Creo que la forma más fácil es crear un libro "esclavo" que se abra cuando se abra el libro "maestro" y sea en este libro donde se guarde la información del contador... así, no es necesario guardar el libro "maestro".

 

[Blai]

Muchas Gracias por tu ayuda, todo funciona de maravilla
un saludo
Blai

 

[huorsa]

On 2002-02-19 20:20, Juan Pablo G. wrote:
Tranquilo, ya había leído el mensaje. Creo que la forma más fácil es crear un libro "esclavo" que se abra cuando se abra el libro "maestro" y sea en este libro donde se guarde la información del contador... así, no es necesario guardar el libro "maestro".


Podrías explicar como se crean y se manejan los libros "esclavo" y "maestro"

Gracias

Hugo

 

[Juan Pablo González]

Hugo. Yo crearía un libro (El esclavo), que lo guardo como "Esclavo.xls", y el maestro se llama "Maestro.xls"

En el archivo Maestro, en el evento Workbook_Open(), pongo este código:

<pre>
Dim WM As Workbook
Dim WE As Workbook
Application.ScreenUpdating = False
Set WM = ThisWorkbook
Set WE = Workbooks.Open("Esclavo.xls")
WE.Sheets("Hoja1").Range("A1") = WE.Sheets("Hoja1").Range("A1") + 1
WE.Close SaveChanges:=True
WM.Activate
Application.ScreenUpdating = True
</pre>

Así, el Rango A1 se actualiza en 1 cada vez que el libro maestro se abre, se cierra guardando los cambios.

Espero que esto sirva.