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 de Dante Amor
1
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 Subo 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 SubSi no es lo que necesitas, entonces podrías explicar con ejemplos lo que tienes en las hojas1 y 2 lo que esperas como resultado.
