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
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 Sub

La hize con los mismos rangos en ambas hojas pero tu puedes poner el rango que desees

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas