Como copiar y pegar unos datos de un libro activo a otro libro activo

mi macro hace lo siguiente:

1-Borrar las columnas vacías.
2-Abre un nuevo libro
3-Guarda el nuevo libro con un nombre
4-Nombra de una forma determinada una hoja del nuevo libro
5-Copiar el encabezado del primer libro al nuevo libro.

Mi problema es en el punto 5 ya que al querer copiar los datos no puedo .

hago la siguiente rutina.

Rows("1:1").Select
Selection.Copy
Windows("nombrehojasegundolibro.xlsx").Activate
Rows("1:1").Select
ActiveSheet.Paste

no entiendo porque no quiere copiar se queda hasta la selección de la fila del segundo libro y no pega la información.

espero respuesta gracias.

1 respuesta

Respuesta
1

Te falta seleccionar la hoja y luego selecciona solo 1 celda de destino, en este caso A1... dejo un ej:

 Rows("1:1").Select
Selection. Copy
Windows("Feedback2014.xlsm").Activate
 Sheets("Hoja2").Select
 Range("A1").Select
ActiveSheet. Paste

Sdos y no olvides finalizar la consulta.

¿Notaste la diferencia entre tu ejemplo y el mío?

Si todavía te salta algún error podes presionar el botón 'Aclaraciones'... sino no olvides FINALIZAR .

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas