Extraer dato de otro libro
Buenas;
Tengo en una hoja de un libro Principal la siguiente macro hace que cuando yo escribo en la celda A1 una fecha Ej 01-03-2013 abre el libro llamado 03-2013 me toma el mes y año para buscar en una carpeta...
lo que quiero es cuando se abra el libro 03-2013 saque tres filas A , B , C de datos de la hoja1 del libro 03-2103 y los copie en la hoja2 del libro Principal
Gracias de antemano....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo x
Dim Carpeta As String
Dim formato
Carpeta = "C:\ruta carpeta\"
If Target.Text = "" Then Exit Sub
formato = Format(Range("A1"), "mm-yyyyy")
Workbooks.Open (Carpeta & formato)
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
x:
MsgBox "Archivo no encontrado", 64, ""
End Sub