Foros del Web » Soporte técnico » Ofimática »

[SOLUCIONADO] VBA para cargar datos en otro excel

Estas en el tema de VBA para cargar datos en otro excel en el foro de Ofimática en Foros del Web. a ver si lo puedo explicar . necesito que el fomulario que hice se cargue en otro libro. que esta cerrado. lo se hacer en ...
  #1 (permalink)  
Antiguo 20/06/2013, 01:29
 
Fecha de Ingreso: junio-2013
Mensajes: 9
Antigüedad: 10 años, 10 meses
Puntos: 0
Exclamación VBA para cargar datos en otro excel

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.-

Última edición por victorrcolussi; 20/06/2013 a las 01:32 Razón: falto informacion.
  #2 (permalink)  
Antiguo 20/06/2013, 02:19
 
Fecha de Ingreso: junio-2013
Mensajes: 9
Antigüedad: 10 años, 10 meses
Puntos: 0
Respuesta: VBA para cargar datos en otro excel

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.-

Última edición por victorrcolussi; 20/06/2013 a las 02:20 Razón: info cargada

Etiquetas: excel, formulario, vba
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:33.