Necesito una macro que copie el mismo rango de celdas de celdas que se encuentran en varias hojas y la acumule en otra, por fila
El contenido del rango de celdas es d5:f6, y necesito copie y acumule en otra hoja como un acumulado ..
2 respuestas
Respuesta de Dante Amor
4
Te anexo la macro.
Las celdas se van a copiar en la hoja "acumulado", cambia en la macro "acumulado" por el nombre de tu hoja donde quieras el acumulado.
Los registros se pegan a partir de la fila 5, si quieres que se peguen después de la última fila con datos, entonces borra esta línea de la macro
f = 5
Sub Acumular()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("acumulado")
u1 = h1.Range("D" & Rows.Count).End(xlUp).Row + 1
u2 = h1.Range("F" & Rows.Count).End(xlUp).Row + 1
If u1 > u2 Then f = u1 Else f = u2
f = 5
For Each h In Sheets
If h.Name <> h1.Name Then
h.Range("D5:F6").Copy
h1.Cells(f, "D").PasteSpecial Paste:=xlValues
f = f + 2
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
h1.Select
MsgBox "Terminado"
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
Respuesta de Programar Excel
1
Si lo que pretendes hacer es un resumen, mira el siguiente ejemplo que realiza un resumen de tu libro.
http://www.programarexcel.com/2014/01/recorre-hojas-extrae-datos-para-resumen.html
Este otro ejemplo hace un resumen pero de hojas de otro libro