Aneudys Martinez

[email protected] mandame el archive y enumera los que qnecesista hacer en el inventario

Desde el evento change de las hojas puedes conseguir eso Con el procedimiento target Ejemplo Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("L2:L100")) <> "" Then SheetS("RESUMEN").Range("A1000").End(xlUp).Offset(1, 0)...

[email protected] envia el archive para agregar la macro

[email protected] enviame el archive y enumera loque requires

[email protected] mandame el archive

Te falto solo elegir desde donde epieza a pegar las columna Mi este caso desde al celda a1 hasta la ultima columna por pegar Sub Macro1() 'copia columnas a la hoja2 Sheets("comprobantes").Select...

Si tiene todas la celda llenas esta podría ser una solución Para sumas de las primeras parte seria Range("j3").Select Do While ActiveCell <> "" If ActiveCell.Offset(1, 0) = "" And ActiveCell.Offset(2, 0) <> "" Then ActiveCell.Offset(1, 0) =...

[email protected] mandame el archive y le adapto la macro

estos lo puedes conseguir con la function suma.si ejemplo Fórmula es suma. Si(rango a buscar GBA57, criterio es el GBA57, rango donde estab los valores a sumar ) Seria así suma. Si(rango, criterio, suma rango) Si te silve no olvides valora para...

Solo cambia la parte donde dice set MiRango = application.inputbox("seleccione rango a exporter", type:=8) por estas set MiRango = range("d11:d33")