[SOLUCIONADO] VBA para cargar datos en otro excel

[victorrcolussi]

a ver si lo puedo explicar . necesito que el fomulario que hice se cargue en otro libro. que esta cerrado. lo se hacer en PHP pero este es otro mundo . en un libro grabe una macro que al iniciarla copia y pega toda la info de las celdas cargadas al otro libro. y funciona genial. siempre y cuando el otro libro este abierto, si esta cerrado me da error en la fila 9, osea lo que necesito es que el cod de VBA abra el excel haga que actue la macro y lo vuelva a cerrar. espero se alla entendido. les dejo el cod que tengo.

Basicamente es el libro1 que tiene en A1 nombre B1 apellido y C1 edad y abajo pega los datos del libro2 que es donde esta el formulario que tiene nombre apellido y edad tambien. osea (copia y pega, y borra al final)

En idioma comun seria.

Abrir el libro 1
deja que acutue el macro (copia y pega la info)
Guarda y cerra el libro 1

Ayuda! y gracias.

Sub Macro13()
'
' Macro13 Macro
'

'
Range("B2").Select
Selection.Copy
Windows("Libro1.xlsx").Activate
Range("A2").Select
Selection.Insert Shift:=xlDown
Windows("Libro2.xlsm").Activate
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Libro1.xlsx").Activate
Range("B2").Select
Selection.Insert Shift:=xlDown
Windows("Libro2.xlsm").Activate
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Libro1.xlsx").Activate
Range("C2").Select
Selection.Insert Shift:=xlDown
Windows("Libro2.xlsm").Activate
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B3").Select
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
ActiveCell.FormulaR1C1 = ""
Range("E2:H4").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("B1").Select
End Sub


Saludos.-

[victorrcolussi]

bue encontre la solucion. era tan simple como poner

ruta = "C:\Users\miusuario\Desktop\Formulario en excel\"
fichero1 = "Libro1.xlsx"
direccion1 = ruta & fichero1


Workbooks.Open Filename:=direccion1


y al final

Workbooks(fichero1).Close savechanges:=True


Espero lo lea alguien que tiene mi mismo problema.-