Hacer un función genérica (VBA) para copiar dos rangos de celdas de una a otra hoja resumen2. Dante Amor
Me gusraría hacer lo mismo con la hoja resumen 2.Mi precario nivel no llega a entender la fórmula de la hoja de resumen. Muchas gracias, te mando el archivo a tu correo y en el asunto te pongo el tema de la pregunta.
Respuesta de Dante Amor
1
Te anexo la macro para la hoja resumen2 para el PCQ.
Existen características para cada resumen, aunque la idea es la misma las estructuras de las tablas son diferentes. Entonces, es más sencillo tener 2 macros y después que una macro ejecute a las dos:
Sub resumen2()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Resumen2")
For i = 5 To 10
Set h2 = Sheets(i)
For j = 22 To 27
Set b = h1.Cells.Find(h2.Cells(j, "A"))
If Not b Is Nothing Then
f = b.Row - 2 + i
h1.Cells(f, b.Column + 1) = h2.[C2]
h1.Cells(f, b.Column + 2) = h2.Cells(j, "B")
h1.Cells(f, b.Column + 3) = h2.Cells(j, "D")
End If
Next
Next
Application.ScreenUpdating = True
MsgBox "Resumen terminado", vbInformation, "Fecha :" & Date
End SubOtra macro que llame a las macros
Sub otra()
Resumen
Resumen2
end sub
Saludos. Dante Amor
No olvides valorar la respuesta.
