Macro para traspasar datos

estimados, tengo una archivo donde imprimo facturas pero quisiera que cada ver que imprima se me cambie automaticamente el numero de factura y que en una hoja aparte me vaya traspasando datos (nombre cliente,numero factura, monto, detalle de lo facturado etc)

si es posible me puedan ayudar

1 Respuesta

Respuesta
1

Te envío la macro que estabas buscando:

Sub Boton()
'Por Macro_Leo
Sheets("Hoja1").Select
Range("B1"). Copy 'cambiar por tus datos
Sheets("Hoja2"). Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Range("C1"). Copy
Sheets("Hoja2"). Range("b65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Range("C5"). Copy
Sheets("Hoja2"). Range("c65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Range("b1, c1"). ClearContents 'Borra las celdas con tus datos una vez que pasaron a la Hoja2
[C5] = [C5] + 1 'la celda C5 cambia numero
End Sub

La Macro Va en el botón donde imprimís, cuando apretás el botón te pasa los datos de las celdas B1, C1, C5 a la Hoja2; se incrementa número de factura, borra los datos de la Hoja1 para que vuelvas a ingresar nuevamente tus datos para una factura nueva.

Tenés que cambiar los datos de los rangos por los tuyos y anexarles los que te faltan.

Si esto resuelve tu consulta no olvides finalizarla.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas