Agregar productos en modelo de costos

[matosimone]

Buenos dias Gente!


Queria hacerles una consulta por una duda que estoy teniendo. Estoy armando un modelo en excel para calcular gastos que se actualiza mensualmente. El problema es que por diferentes motivos se fue agrandando cada vez mas, hay gente que quiere un determinado reporte y gente que prefiere otro tipo de reporte.


En cada uno de esos reportes, que basicamente es una pestaña de excel con los datos especificos y en el formato que cada uno los quiere, siempre aparecen los datos basicos de cada producto, como precio de venta y volumen de venta de ese mes en particular. Estamos hablando de alrededor de 250 productos.


Para que cada pestaña (o reporte) tome estos datos basicos de un mismo lugar, tengo una pestaña que se llama INPUTS, en donde se pegan los valores del mes (precio de cada producto y unidades vendidas de cada uno). La idea es generar un nuevo archivo para cada mes (sino queda demasiado grande). La forma que utilizo para que en cada reporte esten estos datos basicos en con BUSCARV, que me trae de la hoja de inputs los valores buscados.


El problema que encuentro, es que en el caso de que se agreguen productos a la venta (no es tan raro que esto pase), se deberia instertar una fila en cada pestaña con el nuevo producto y luego arrastrar la formula.. y son demasiadas tablas, por o que seria muy facil cometer un error. Sumado a todo esto, el archivo no lo voy a usar yo, por eso tiene que ser facil de usar para alguien que no tenga muy claro excel inclusive.


Se imaginan alguna forma mas automatica para que cada vez que agrego un producto se agregue automaticamente en todas las tablas y arrastre las formulas para que sea facil de actualizar?


GRacias de antemano!
Saudos!,
Mato

 

[sergioMabres]

Hola Mato
Si se puede hacer con una macro que recorra todas hojas inserte y copie este es un ejemplo

Sub Macro1()
'
' Macro1 Macro
'
    ' Se para en una hoja, la segunda del libro
    Sheets(2).Select
    ' Selecciona la parte de la tabla que crece esta abajo de donde va a insertar
    Range(Range("B3").End(xlDown), Range("C3").End(xlDown)).Select
    ' Inserta solo en esas columnas para que no se deforme si hay cosas a los costados
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ' Selecciona la ultima fila
    Range(Range("B3").End(xlDown), Range("C3").End(xlDown)).Select
    ' Copia las formulas
    Selection.AutoFill Destination:=ActiveCell.Range("A1:B2"), Type:= _
        xlFillDefault
    ' Continua con las otras hojas 3, 4, 5, etc
    Sheets(3).Select
    ...

End Sub

Para probar la macro hice una hoja que esta en
https://skydrive.live.com/view.aspx?resid=52B7AEC35713C28B!515
Para probar la macro tenes que bajarte la hoja y ejecutarla en to excel
Espero que este codigo te ayude a resolver el problema
Sergio