Abrir cualquier libro que este dentro de una carpeta al escribir en celda

Buenas : Sabes tengo en una carpeta X libros llamado EJ: 01-2013 , 02-2013 , 03-2013 , 04-2013 , 05-2013 y asi va ir creciendo ...... Quiero que en un libro X Principal en la celda A1 escribir una fecha 01-05-2013 y me abra el libro 05-2013 si escribo 07-01-2013 abra el libro 01-2013.. Realmente es un buscador de libro pero yo necesito que en el Libro X Principal en celda A1 solo me tome en cuenta cuando escribo una fecha el mes y año para buscarlo... Gracias

1 Respuesta

Respuesta
1

Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro

Si tienes excel 2007 o mayor, utiliza esta macro

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If IsDate(Range("A1")) Then
        archivo = Format(Month(Target), "00") & "-" & Year(Target) & ".xlsx"
        Workbooks.Open Filename:=archivo
    End If
End If
End Sub

Si tienes excel 2003

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If IsDate(Range("A1")) Then
        archivo = Format(Month(Target), "00") & "-" & Year(Target) & ".xls"
        Workbooks.Open Filename:=archivo
    End If
End If
End Sub

El archivo con la macro y los otros libros deberá estar en la misma carpeta.

Saludos. DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas