Macro que grabe datos de un formato de hoja1 a otra hoja2 y a su vez, añada valores a otra hoja3
Hola buenas tardes!, necesito una macro que grabe los datos de mi hojaformato a la hojaañadidos, al momento de seguir creando más facturas, se vayan registrando los datos para llevar un control, y que solo las cantidades de los productos de la columna cantidad de hojaformato, se registren en la hojainventario en la columna de entrada, eso al presionar el botón de entradas, y que al presionar el botón de salidas, cuando registre una venta, se agreguen los datos a la hojaañadidos pero ahora los valores de la columna cantidad d la hojaformato, se registren en la columna de salidas de hojainventarios, se pude hacer eso, ¿siendo así podrían ayudarme?
1 respuesta
Gracias Dante, ya envíe el archivo
H o l a:
Te envío la macro para copiar de factura a acumulados.
Sub ProcesarFactura()
'Por.Dante Amor
Set h1 = Sheets("Factura")
Set h2 = Sheets("Acumulados")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 16 To 39
If h1.Cells(i, "B") = "" Then Exit For
h2.Cells(u, "A") = h1.Cells(i, "A")
h2.Cells(u, "B") = h1.Cells(i, "B")
h2.Cells(u, "C") = h1.Cells(i, "F")
h2.Cells(u, "D") = h1.Cells(i, "G")
h2.Cells(u, "E") = h1.Cells(i, "H")
h2.Cells(u, "F") = h1.Cells(11, "B")
h2.Cells(u, "G") = h1.Cells(9, "G")
h2.Cells(u, "H") = h1.Cells(10, "B")
h2.Cells(u, "I") = h1.Cells(9, "B")
u = u + 1
Next
h1.Range("B11") = ""
h1.Range("B16:F392") = ""
MsgBox "Los Datos Se Ccopiaron con Éxito", vbInformation, "PROCESAR FACTURA"
End SubSal u dos
