Excel - Ingreso de datos y que se actualicen automáticamente en otra hoja

   
Vista:

Ingreso de datos y que se actualicen automáticamente en otra hoja

Publicado por Javiera (2 intervenciones) el 09/01/2018 14:44:32
Hola gente, ojalá pudiesen ayudarme...
los contextualizaré, estoy haciendo un prespuesto que se divide en 4 presupuestos (o sea 4 hojas en Excel) *los prespuestos son anuales (y se dividen en meses).
y tengo una hoja a parte llamada "detalle de gastos" que sería la que alimenta a los 4 presupuestos.
en la hoja detalle de gastos cuento con campos como (nombre del proyecto/ codigo de cuenta / mes)

lo que deseo hacer es lo siguiente: que una vez que ingrese datos a la hoja detalle de gastos, Excel identifique a través del nombre del proyecto, la hoja a la cual se ingresará el dato (o sea a que presupuesto pertenece), y una vez ingresada al proyecto, identifique a que cuenta se debe sumar en el mes correspondiente
*cabe destacar que en el presupuesto se deben ir sumando los datos, que se vayan ingresando.
ojala logre explicarme..

saludos, y agradezco desde ya!!
Javiera
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ingreso de datos y que se actualicen automáticamente en otra hoja

Publicado por jhon figueroa (33 intervenciones) el 10/01/2018 02:29:36
Esta macro te puede ayudar... habría que complementar la suma con la función Sumatoria o mediante codigo vba

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub presupuesto()
Dim proyecto As String
Dim codigo As String
Dim mes As String
Dim valor As Long
 
ActiveSheet.Range("a1").End(xlDown).Select
proyecto = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
codigo = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
mes = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
valor = ActiveCell.Value
 
 
Worksheets("" & proyecto & "").Activate
ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = proyecto
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = codigo
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = mes
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = valor
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar