guardar formularios correlativos

28/08/2006 - 16:40 por Ricardo Peña | Informe spam

He diseñado un formulario, bueno en realidad es una hoja de calculo a la que
le he aplicado formato para "simular" una pantalla de captura y quiero que a
la hora de guardarlo, lo haga siguiendo una pauta, en este caso, una
numeración correlativa.
Los formularios se archivarán todos en la misma carpeta.

Hay algún macro, para automatizar esta función, es decir, que siga el número
correlativo que corresponda, sin tener que introducirlo manualmente?.

Gracias de antemano, un saludo

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Ricardo Peña

31/08/2006 - 19:15 | Informe spam

hola héctor!

ahora si funciona bien. Muchas gracias por la ayuda prestada.

Un saludo,

ricardo peña.

"Héctor Miguel" escribió:

hola, Ricardo !

> ... Solo hay algo que no va bien, y es que el numero de la serie (el que debe ser correlativo) en la hoja oculta
> al guardar la hoja principal (la hoja con la plantilla), no guarda el numero correspondiente, lo tengo que cambiar a mano...

tienes razon :)), en las pruebas inverti el orden de algunos factores y la inhabilitacion de eventos quedo 'despues de...'

despues de la instruccion que hace la copia de la hoja apropiada...
' copiamos la hoja "base" como UNICA hoja de un libro 'nuevo' SIN macros '
Worksheets(Hoja).Copy

cambia el orden de los factores [o mejor dicho]... sustituye el resto del codigo a lo siguiente:

' inhabiitamos los eventos para que no entorpezcan el proceso '
Application.EnableEvents = False
' guardamos los cambios en el original para conservar el correlativo '
ThisWorkbook.Save
' y empezamos a trabajar con el archivo del nuevo documento basado en la 'pantilla' '
Range("a1") = Archivo ' <= modifica si el nombre NO se pone en la celda A1 en el documento nuevo '
' guardamos el documento nuevo con su nombre correlativo '
ActiveWorkbook.SaveAs FileName:=Archivo, FileFormat:=xlWorkbookNormal
' rehabilitamos los eventos -paso necesario- '
Application.EnableEvents = True
' cerramos el documento 'plantilla' SIN cambios... [queda listo para 'la siguiente'] :)) '
ThisWorkbook.Close False
End Sub

si cualquier duda... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida