MACRO para copiar columnas de una hoja a otra

Tengo que copiar las columnas C y D de la hoja1 a la derecha de la columna B de la hoja2. He intentado realizando grabando macros pero me sale error.

1 Respuesta

Respuesta
1

Si puedes poner ejemplos de lo que tienes en tu hoja, marcando de algún color lo que quieres copiar.

¿O quieres copiar toda la columna?

Entre más claros sean los ejemplos, será más práctico poder ayudarte. Utiliza imágenes en donde se vean las filas y las columnas de excel.

Puedes ser algo como esto:

Sub Macro2()
'
' Macro2 Macro
'
'
    Columns("C:D").Copy
    Sheets("Hoja2").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

o esto:

Sub Macro2()
    Sheets("Hoja1").Columns("C:D").Copy Sheets("Hoja2").Range("C1")
End Sub

Esto:

Sub Macro2()
    Sheets("Hoja1").Columns("C:D").Copy Sheets("Hoja2").Range("B1")
End Sub

Estimado muchas gracias, esta excelente la respuesta, sin embargo, no me he explicado bien. Al pegar las columnas, pegar como insertar celdas copiadas. 

Te anexo otra macro

Sub Macro3()
'
' Macro3 Macro
'
'
    Sheets("Hoja1").Columns("C:D").Copy
    Sheets("Hoja2").Select
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
End Sub

Si no es lo que necesitas, entonces podrías explicar con ejemplos lo que tienes en las hojas1 y 2 lo que esperas como resultado.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas