De que manera puedo pegar los datos de una hoja a otra usando macros?
Me has ayudado mucho y te lo agradezco demasiado, ahora me surgio un problema y quisiera que me apoyaras a complementar una macro que tengo, lo que quiero realizar es copiar un conjunto de datos sea B2:I2, B3:I3, B4:I4, B5:I4, todo al mismo tiempo y realizar un copiado especial que se llama "transponer" que pega los datos en diferente orden.
Actualmente utilizo esta macro, que ademas de copiar los datos los pega en otra hoja del mismo documento.
Sub CopiarCeldas()
'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
WsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Sheet1")
Set wsDestino = Worksheets("Sheet2")
'Indicar la celda de origen y destino
Const celdaOrigen = "B2"
Const celdaDestino = "A1"
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
1 Respuesta
Cambia tu macro por esta:
Sub Macro10()
'Por.Dante Amor
Sheets("Hoja1").Range("B2:I5").Copy
Sheets("Hoja2").[A1].PasteSpecial Paste:=xlPasteAll, Transpose:=True
End SubCambia "Hoja1" y "Hoja2" por los nombres de las hojas.
Cambia "B2:I5" por el rango de celdas a copiar
Cambia [A1] por la celda destino
Saludos. Dante Amor
Recuerda valorar la respuesta.
