Macro datos de archivo1 a archivo 2
Hola espero pueda ayudarme.
Tengo un archivo de excel, en donde capturo las ventas diarias, tengo la columna día, mes, descripción, venta, cantidad y total.y un segundo archivo donde tengo un ticket
Lo que quiero hacer es que en el archivo del ticket me pase automáticamente los datos de la descripción la cantidad y la venta y me imprima el ticket. Con una macro para que cuando capture la venta siguiente se actualice. A la fila 2 de mi archivo origen
Gracias
Tengo un archivo de excel, en donde capturo las ventas diarias, tengo la columna día, mes, descripción, venta, cantidad y total.y un segundo archivo donde tengo un ticket
Lo que quiero hacer es que en el archivo del ticket me pase automáticamente los datos de la descripción la cantidad y la venta y me imprima el ticket. Con una macro para que cuando capture la venta siguiente se actualice. A la fila 2 de mi archivo origen
Gracias
1 Respuesta
Respuesta de vorkosigan
1
Supongamos que:
1. Las ventas las tienes en la hoja Datos
2. El ticket lo tienes en otra hoja, llamada ticket
3. Los datos de las ventas están en A2, B2, etc (es decir las columnas día, mes, etc)
4. Crea las siguientes macros:
sub ImprimiTicket()
dim fila as integer
Fila=UltimaFila(1) 'calcula la última fila de la columna 1
sheets("ticket"). cells(4,1). value=sheets("datos"). Cells(fila, 1). value
sheets("ticket"). cells(5,1). value=sheets("datos"). Cells(fila, 2). value
'etcétera
sheets("ticket").PrintOut
end sub
function UltimaFila(byval columna as integer) as integer
dim fila as integer
fila=1
while cells(fila.columna).value<>""
fila=fila+1
wend
end function
5. Crea un botón en la hoja Datos que esté asociado a la macro ImprimirTicket.
La posición definitiva de las celdas y el diseño del ticket variará en función de tus necesidades.
1. Las ventas las tienes en la hoja Datos
2. El ticket lo tienes en otra hoja, llamada ticket
3. Los datos de las ventas están en A2, B2, etc (es decir las columnas día, mes, etc)
4. Crea las siguientes macros:
sub ImprimiTicket()
dim fila as integer
Fila=UltimaFila(1) 'calcula la última fila de la columna 1
sheets("ticket"). cells(4,1). value=sheets("datos"). Cells(fila, 1). value
sheets("ticket"). cells(5,1). value=sheets("datos"). Cells(fila, 2). value
'etcétera
sheets("ticket").PrintOut
end sub
function UltimaFila(byval columna as integer) as integer
dim fila as integer
fila=1
while cells(fila.columna).value<>""
fila=fila+1
wend
end function
5. Crea un botón en la hoja Datos que esté asociado a la macro ImprimirTicket.
La posición definitiva de las celdas y el diseño del ticket variará en función de tus necesidades.
