Office - Me vuelvo a explicar (formula para ahorrar tiempo)

Hola me vuelvo a explicar espero que ahora mejor. Tengo un libro de dos hojas en uno los presupuesto pegados una tras otro hacia abajo cada uno ocupa 43 celdas, de este modo el nº de presupuesto queda en la celda B12 el primero, en la celda B55 el segundo y asi sucesivamente.
En la hoja 2 tengo un listado de todos los presupuestos que yo calculo asi
A B
1 =hoja1!B12
2 =hoja1!B55
3 =hoja1!B98
4

El caso es que este forma es un poco rudimentaria ya que copio la primera formula en el resto de celdas y tengo que ir sumandole 43 a cada una. Me gustaria saber una formula que me ahorre un poco este trabajo.

Gracias.

hola que tal,
La verdad que he estado probando con las funciones de Excel pero no consigo hacer lo que tu pides.

Otra opcion es hacerlo mediante una macro en Basic que eso si que te lo puedo hacer mas facilmente.

Saludos.

Hola fany pues si fueses tan amable de explicarme un poco como hacerlo en basic te lo agradeceria, de antemano te digo que no lo conozco mucho. Gracias

Hola que tal
He adaptado un codigo que hice para sumar valores.

Esto es codigo en basic que lo debes poner en una macro y luego llamarla con el boton de ejecutar macros.

cuando vayas a ejecutar la macro lo unico que tienes que tener en cuenta es que tienes que poner el cursor en la celda donde aparece el nombre de totales, que deben ser todos iguales pues la macro aplica un filtro.

La macro te crea una hoja que se llama resumen y lo unico que no he hecho es que se mantenga el vinculo pero eso es posible de hacer cambiando algo pero no he tenido tiempo :-( .

Si tienes problemas para saber como cragar una macro busca en estos foros o me preguntas.

Un saludo y espero te sirva. de todas formas he de mejorar un poco el codigo.


Sub buscar_resumen_presupuesto()
Application.ScreenUpdating = False

mihoja = ActiveSheet.Name 'guarda mi hoja inicial de trabajo
dato_total = ActiveCell.Value
Columna_total = ActiveCell.Column

'crea una hoja temporal mediante el procedimiento

Dim hoja As Worksheet
Dim xlLibro As Excel.Workbook
Set xlLibro = ActiveWorkbook
For Each hoja In xlLibro.Worksheets
If hoja.Name = "Resumen" Then GoTo existe

Next
no_existe:
Sheets.Add
ActiveSheet.Name = "Resumen"

existe:

Sheets.Add
ActiveSheet.Name = "temporal"

Sheets(mihoja).Activate ' activa mi hoja inicial de trabajo

fila = ActiveCell.Row

fila = fila - 1
filai = fila
columna = ActiveCell.Column

'copiar la hoja en una temporal
Cells.Select
Selection.Copy
Sheets("temporal").Paste
Cells(fila + 1, columna).Select
Sheets("temporal").Activate
'filtrar la columna total
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=Columna_total, Criteria1:=dato_total
Range("A1:T1000").Select
Selection.Copy
Sheets("Resumen").Select
ActiveSheet.Paste

Sheets("resumen").Activate
Cells(1, 1).Select

'borra el temporal
Application.DisplayAlerts = False
Worksheets("temporal").Delete
Application.DisplayAlerts = True

End Sub