Cuando tenemos que enviar datos desde la hoja de cálculo actual a otro libro de excel podemos utilizar la función Copy y Paste.
Para ellos debemos copiar los datos y, antes de pegarlos, debemos de activar el Windows del otro libro con Windows.Activate.
Aquí dejo un ejemplo del código:
VB
Private Sub CommandButton1_Click()
'Desde el libro1. Abrimos el libro2:
Workbooks.Open ("Libro2.xlsx")
'Si no está en la misma carpeta debemos indicar la ruta
'Workbooks.Open ("ruta/Libro2.xlsx")
'Copiamos el rango que queremos pegar en libro2
Workbooks("libro1.xlsm").Worksheets("Hoja1").Range("D10:D13").Copy
'Activamos el libro2 y pegamos
Windows("Libro2.xlsx").Activate
Workbooks("libro2.xlsx").Worksheets("Hoja1").Cells(10, 4).PasteSpecial Paste:=xlPasteValues
'desactivamos la selección copiada y nos quedamos en la celda D10
Application.CutCopyMode = False
Workbooks("libro2.xlsx").Worksheets("Hoja1").Cells(10, 4).Select
End Sub
Deja una respuesta