por Hola a todos!
A pesar de que desde hace bastante tiempo que estoy publicando casi exclusivamente temas de typescript y Power Apps, hoy voy a romper la tendencia y subir algo de VBA.
El ejercicio se trata de copiar los rangos con datos de varias columnas (las de color) no consecutivas de la hoja1 y pegar los valores en la hoja2 en una única columna:
Obviamente tenéis multitud de alternativas, desde utilizar la grabadora de macros ha realizar varios loops o otra alternativa jugando con los rangos y matrices y un sencillo loop final para pegar la información.
Esta sería la macro que os propongo:
Sub MoverRangosColumnas()
'Declaramos variables
Dim Rango As Range
Dim HojaOrigen As Worksheet
Dim HojaDestino As Worksheet
Dim i As Long
Dim UltimaFila As Long
Dim MiRango(2) As Range
'Definimos hoja de origen y destino
Set HojaOrigen = ThisWorkbook.Sheets("Hoja1")
Set HojaDestino = ThisWorkbook.Sheets("Hoja2")
Fin = Application.CountA(Sheets(1).Range("A:A"))
'Definimos rangos
Set MiRango(0) = HojaOrigen.Range("B2:B" & Fin)
Set MiRango(1) = HojaOrigen.Range("D2:D" & Fin)
Set MiRango(2) = HojaOrigen.Range("F2:F" & Fin)
'Pasamos los datos a la hoja
Set Rango = HojaDestino.Range("A1")
For i = 0 To UBound(MiRango)
Final = Application.CountA(Sheets(2).Range("A:A"))
MiRango(i).Copy Destination:=Rango.Offset(Final, 0)
Next i
End SubEl resultado de la macro es el siguiente:
Como podéis observar, en la columna A ya tenemos los datos de las columnas que hemos seleccionado en la primera imagen.
Y esto es todo!, espero que sea de utilidad!!
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies
Buenas tardes, excelente trabajo, esta macro es justo lo que necesito, pero muy respetuosamente le solicito si me ayuda a que los rangos se peguen solo como valores. Le agradezco de antemano la atención prestada.
Mi estimado la macro la estoy haciendo en base a este post, pero los rangos que voy a copiar contienen formulas y quisiera que los pegara en la nueva hoja como valores. Le agradezco mucho su ayuda.