Copiar y pegas datos de una hoja a otra Excel
Estimado Dante un gusto saludarlo y a la vez solicito de su ayuda con el siguiente caso que detallare líneas abajo ;
Tengo una lista de datos que necesito copiar y pegar a otra hoja pero con cierta separación y forma.
Hoja modelo con los datos nativos
este es el resultado que necesitaría la cantidad de items puede ser variable.
1 Respuesta
Respuesta de Sebas Torres
1
Haber si te sirve esta macro, agrega 3 veces y deja un espacio como en tu imagen
Sub CopiarRango()
'Indicar las hojas de origen y destino
Set wsOrigen = Sheets("Hoja1")
Set wsDestino = Sheets("Hoja2")
'Indicar la celda de origen y destino
Set rngOrigen = wsOrigen.Range("B2:H2")
Set rngDestino = wsDestino.Range("B2:H2")
wsOrigen.Select
rngOrigen.Select
Selection.Copy
wsDestino.Select
rngDestino.Select
ActiveSheet.Paste
rngDestino.Offset(1, 0).Select
ActiveSheet.Paste
rngDestino.Offset(2, 0).Select
ActiveSheet.Paste
wsOrigen.Select
rngOrigen.Offset(1, 0).Select
Selection.Copy
wsDestino.Select
rngDestino.Offset(4, 0).Select
ActiveSheet.Paste
rngDestino.Offset(5, 0).Select
ActiveSheet.Paste
rngDestino.Offset(6, 0).Select
ActiveSheet.Paste
wsOrigen.Select
rngOrigen.Offset(2, 0).Select
Selection.Copy
wsDestino.Select
rngDestino.Offset(8, 0).Select
ActiveSheet.Paste
rngDestino.Offset(9, 0).Select
ActiveSheet.Paste
rngDestino.Offset(10, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End SubLa hize con los mismos rangos en ambas hojas pero tu puedes poner el rango que desees
