Funciones "del tipo si" desde una macro

Hola...
Suponiendo que vas a poner en la celda A1 de la Hoja1 el numero de archivo
que deseas abrir, puedes poner en un modulo normal lo siguiente :

Sub abreArchivo()

Dim NoArchivo
Dim Ruta

Ruta = "C:\archivos\"


If Sheets("hoja1").Cells(1, 1) = Empty Then Exit Sub
If Sheets("hoja1").Cells(1, 1) = 1 Then NoArchivo = 1
If Sheets("hoja1").Cells(1, 1) = 2 Then NoArchivo = 2
If Sheets("hoja1").Cells(1, 1) = 3 Then NoArchivo = 3

Application.Workbooks.Open (Ruta & NoArchivo & ".xls")

End Sub

Puedes substituir el numero de archivo por el nombre del archivo sin la
extensión .xls

Espero te sirva
Saludos
José Antonio Castrejón


"Manex" wrote:

Hola..

Necesito crear una macro que segun el valor que tome una celda permita
abrir otro libro de excel.
Son 3 libros a abrir 2007,2006 y 2005, y el numero a ingresar
corresponde a un idice de docuentos. Normalmente domino muy bien las
funciones si en las formulas propias de excel, pero hacerlo con macros
es otra cosa.

gracias