¿Crear una hoja resumen de las anteriores?
Buenos días:
Tengo 45 hojas de excel iguales (obviamente, con diferentes datos en cada una de ellas).
Ahora necesito hacer una nueva hoja, la 46, que va a ser un resumen de todas las anteriores.
Por lo tanto quiero que la columna A, por ejemplo; recoja todos las celdas B4 de las 45 hojas anteriores (A2= B4 de la hoja1, A3= B4 de la hoja2... Y así sucesivamente). Y como esto, el resto de columnas con distintas celdas.
Sé hacer esto de forma manual, y probablemente no me llevase demasiado hacerlo de este modo, pero me gustaría saber si sabéis algún modo de "automatizar" esto.
Tengo 45 hojas de excel iguales (obviamente, con diferentes datos en cada una de ellas).
Ahora necesito hacer una nueva hoja, la 46, que va a ser un resumen de todas las anteriores.
Por lo tanto quiero que la columna A, por ejemplo; recoja todos las celdas B4 de las 45 hojas anteriores (A2= B4 de la hoja1, A3= B4 de la hoja2... Y así sucesivamente). Y como esto, el resto de columnas con distintas celdas.
Sé hacer esto de forma manual, y probablemente no me llevase demasiado hacerlo de este modo, pero me gustaría saber si sabéis algún modo de "automatizar" esto.
1 Respuesta
Respuesta de Victor Perdomo
1
Acá te hice un código que aplica solo a la celda b4, te servirá como base, solo analízalo.
Abre visual basic alt+f11
Dale insertar-modulo
Y pega este código:
Sub ejecutar()
Dim hojaresumen As Integer
Dim hoja As Integer
hojaresumen = 46
fila = 2
columna = 1
For hoja = 1 To (hojaresumen - 1)
Worksheets(hojaresumen).Cells(fila, columna).Value = Worksheets(hoja).Cells(4, 2).Value
fila = fila + 1
Next hoja
End Sub
Lo puedes ejecutar desde hay con f5, o asígnale a un botón esta macro y listo.
Abre visual basic alt+f11
Dale insertar-modulo
Y pega este código:
Sub ejecutar()
Dim hojaresumen As Integer
Dim hoja As Integer
hojaresumen = 46
fila = 2
columna = 1
For hoja = 1 To (hojaresumen - 1)
Worksheets(hojaresumen).Cells(fila, columna).Value = Worksheets(hoja).Cells(4, 2).Value
fila = fila + 1
Next hoja
End Sub
Lo puedes ejecutar desde hay con f5, o asígnale a un botón esta macro y listo.
No existe ninguna función o opción de excel que no implique programar
Perdón, lo anterior era una pregunta no una afimarción
No realmente no, pero puedes crear la función:
Habre el vb -> alt+f11
Dale en ->insertar->modulo
Y pega este código
Function AUTOMATIZAR(hoja As Integer, celda As String) As Variant
AUTOMATIZAR = Worksheets(hoja).Range(celda).Value
End Function
Cierra el vb
Ahora ya tienes la función que necesitas
en la celda que necesitas hacer el resumen pon: =automatizar(1;"b4")
Donde 1 es la hoja, o sea pon de 1 a 45 y entre comillas la celda que necesitas copiar.
Habre el vb -> alt+f11
Dale en ->insertar->modulo
Y pega este código
Function AUTOMATIZAR(hoja As Integer, celda As String) As Variant
AUTOMATIZAR = Worksheets(hoja).Range(celda).Value
End Function
Cierra el vb
Ahora ya tienes la función que necesitas
en la celda que necesitas hacer el resumen pon: =automatizar(1;"b4")
Donde 1 es la hoja, o sea pon de 1 a 45 y entre comillas la celda que necesitas copiar.
