Almacenar contenido de Formato de impresion (Facturas en Excel) ?

12/07/2007 - 06:52 por ManuelV | Informe spam

Tengo una archivo de excel, en el que tengo en 1 hoja los datos del cliente,
en otra los productos y finalmente una hoja de impresion, mi pregunta es, si
es posible ir haciendo un historico de las facturas que voy imprimiendo, ya
que hasta ahora solo puedo guardar la ultima, cada vez que hago otra se
reemplaza, y quiero ver si es posible ir guardandolas, ya que a veces si
quiero guardar alguna lo que hacia era guardar la hoja,copiandola con otro
nombre, pero me va haciendo el archivo mucho mas grande cada vez.

De antemano gracias.

ManuelV

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

impresion formato facturas

Leer las respuestas

#11 Jesús Peralta

20/07/2007 - 18:25 | Informe spam

Que tal ManuelV, me llamo mucho la atencion lo que solicitaste y pues me
gustaria, ya sin molestar a nuestro gran amigo y maestro Hector, pasarme una
copia, no importa si es en blanco de la forma de trabajar ese archivo, ya
que me gustaira tener tambien al igual que tu un Historico Optico de unas
facturas, claro si no es mucha molestia..
saludos

Jesús Peralta
el_ultimo_profeta"alt+64"hotmail.com
Hermosillo, Sonora. Mexico
"ManuelV" escribió en el mensaje
news:

Muchisimas gracias Héctor ..

Ya revise el dia de hoy lo que me enviaste y funciono de maravilla, solo
la
parte de la "reimpresion" no entendi muy bien, pero bueno, puedo hacerlo a
mano en caso de que lo requiera ya con el Historico, al fin que no es muy
frecuente.

Te agradezco tu tiempo, la paciencia y sobre todo tu esfuerzo ..

Manuel Valdenegro

"Héctor Miguel" escribió:

hola, Manuel !

> ... la referencia unica podria ser el numero... de la factura este se
> encuentra en la Calda "E9" de la hoja "Facturas" ...
> Esto es lo que tenia capturado para la informacion previa que tengo, no
> se si te sirva de referencia [...]

1) te cambie el estilo de referencia de [p.e.] .Range("e9") a: -> .[e9]
[solo por recortar las lineas de codigo]

2) con los siguientes cambios, registras los datos de tu hoja factura
segun los n_articulos vendidos
OJO: la estructuracion del copiado es diferente y he puesto en la
ultima columna el numero de articulos facturados

3) esto para futura referencia -p.e.- cuando necesites *rescatar* los
datos completos de cada factura historica a re-impresiones
ya que el codigo de rescate tendria que trabajar *a la inversa*
[localizar la factura y conocer cuantos articulos se enlistaron]

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

Sub Historico()
Dim Generales, Articulos, n As Byte, Col As Byte
With Worksheets("facturas")
Generales = Array(.[e9], .[c9], .[f10], .[g12], .[f14], .[e16],
.[i16], .[m16], .[q16], .[r36], .[r37], .[r38])
n = Application.Count(.[e20:e34])
Articulos = Array(.[e20].Resize(n).Value, .[g20].Resize(n).Value,
.[p20].Resize(n).Value, .[r20].Resize(n).Value)
End With
With Worksheets("historico")
With .Range("a" & .Range("m" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 12) = Generales
.Offset(1, 16) = n
For Col = 0 To 3
.Offset(1, 12 + Col).Resize(n) = Articulos(Col)
Next
End With
End With
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida