Código para copiar de una hoja a otra en excel con macro

Soy un poco nuevo en esto de visual basic, intento hacer una macro que copie filas a otra hoja

Tengo este código

Sub prueba()
Sheets("Hoja1").Select
Range("A1:D7").Copy
Sheets("Hoja2").Select
Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End Sub

Pero me lo pega en la Hoja1 saben cual es el problema no logro dar con el

2 respuestas

Respuesta
1

[Hola 

prueba así

Sub prueba()
Sheets("Hoja1").Select
Range("A1:D7").Copy Sheets("Hoja2").Range("A1")
End Sub

valora la respuesta Excelente o bueno saludos!

Para copiar solo valores

Usa esto

Sub prueba()
Sheets("Hoja1").Select
Range("A1:D7").Copy: Sheets("Hoja2").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

valora la respuesta Excelente o bueno saludos!

Respuesta
1

Pero si está pegando en la hoja2

A lo mejor te está pegando la información muy abajo y no la ves. Borra toda la información de la hoja2 y prueba nuevamente. O borra la hoja2 y crea nuevamente la hoja2.

También prueba con esta macro

Sub prueba2()
    Sheets("Hoja1").Range("A1:D7").Copy
    u2 = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Hoja2").Range("A" & u2).PasteSpecial xlPasteValues
End Sub

También revisa que en la Hoja1 en la columna "A" siempre tengas datos.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas