Modificar códigos en vba para agregar argumentos
Para Dante Amor,
Hola, esto viene de una pregunta anterior, tengo un código para copiar/pegar datos a una hoja "CONSOLIDAR", los datos vienen de la "Hoja1" y la "Hoja2". Ahora lo que preguntaba es, tengo "Hoja1" y "Hoja2", quisiera agregar una "Hoja3" y en algún futuro una "Hoja4" por ejemplo. La consulta es, cómo podría modificar el código para agregar estas hojas.
1 respuesta
Respuesta de Dante Amor
1
Quiero poder consolidar la "Hoja1", "Hoja2" y "Hoja3", quizás más adelante agregue hojas y me gustaría saber cómo modificar el código para poder realizarlo.
H o l a:
Te anexo la macro actualizada
Sub CopiarRango()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h3 = Sheets("CONSOLIDACION")
hojas = Array("Hoja1", "Hoja2", "Hoja3")
For h = LBound(hojas) To UBound(hojas)
hoja = hojas(h)
Set h1 = Sheets(hoja)
maxi = 0
For i = Columns("A").Column To Columns("BZ").Column
u = h3.Cells(Rows.Count, i).End(xlUp).Row
If u > maxi Then
maxi = u
End If
Next
u = maxi + 2
H1. Range("A3:BZ30"). SpecialCells(xlCellTypeVisible). Copy
h3.Range("A" & u). PasteSpecial xlValues
h3.Range("A" & u). PasteSpecial xlPasteFormats
Next
Application.CutCopyMode = False
End Suben esta línea de la macro tienes que agregar las hojas que quieras consolidar:
hojas = Array("Hoja1", "Hoja2", "Hoja3")
