Macro para grabar registros e ir acumulándolos sin eliminar los anteriores
Hola! Espero me puedan ayudar con esto...
Tengo un vale de salida en una hoja denominada VALE la cual quiero que registre los datos de los artículos que salen y que se especifican en dicho vale, esto quiero que lo envíe a la hoja SALIDAS.
Hoja VALE
En la celda H3 se encuentra el # de folio, el cual debe cambiar cada que envío la información a SALIDAS.
En C5 se encuentra la fecha, la cual quiero que al copiarse a SALIDAS, la inserte a todos productos que salen con el mismo folio.
en D44 se encuentra la persona que entrego, quiero que suceda lo mismo que con la fecha,, que se inserte la misma persona a los artículos del mismo folio.
en la misma Hoja VALE también tengo siguientes conceptos:
CÓDIGO CATEGORÍA DESCRIPCIÓN CANTIDAD UNIDAD MARCA PRECIO TOTAL
A10:A39 B10:B39 B10:B39 C10:C39 D10:D39 E10:E39 F10:F39 G10:G39
y en la hoja SALIDAS, en donde se deben registrar los artículos que se especifican en el vale al presionar un botón son los siguientes:
FECHA FOLIO CATEGORÍA CÓDIGO DESCRIPCIÓN CANTIDAD PRECIO TOTAL ENTRGA
espero me puedan ayudar, de antemano les agradezco su tiempo... Saludos!
1 Respuesta
Para poder ayudarte necesito una aclaración:
En la hoja VALE la categoría está en el rango B10:¿B39 y la descripción la has puesto con el mismo rango...?
asi una disculpa, es
CÓDIGO CATEGORÍA Descripción Cantidad Unidad Marca Precio Total
A10:A39 B10:B39 C10:C39 D10:D39 E10:E39 F10:F39 G10:E39 F10:F39
nuevamente, cometi un error, lo correcto en precio es G10:G39 y en el total H10:H39.
Esta sería la macro que necesitas, pero de todas formas, si quieres, dime tu mail y te lo mando construido y funcionando:
Sub ejemplo7()
'por luismondelo
Range("a10:h" & Sheets("vale").Range("a65000").End(xlUp).Row).Copy
Sheets("salidas").Range("d65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Sheets("salidas").Select
Range("c65000").End(xlUp).Offset(1, 0).Select
Do While ActiveCell.Offset(0, 1).Value <> ""
ActiveCell.Value = Sheets("vale").Range("d44").Value
ActiveCell.Offset(0, -1).Value = Sheets("vale").Range("h3").Value
ActiveCell.Offset(0, -2).Value = Sheets("vale").Range("c5").Value
ActiveCell.Offset(1, 0).Select
Loop
Sheets("vale").Select
Range("a10:h39").ClearContents
Range("d44,h3,c5").ClearContents
Range("c5").Select
End Subrecuerda finalizar la consulta
