Macros
Publicado por Eduardo Enrique (1 intervención) el 24/05/2013 23:35:08
Buenas tardes:
Este codigo hago una busqueda en una Libro que esta cerrado, mi problema radica en que aplico esta funcion "PreTipoI" me da #¡VALOR! pero cuando tengo abierto el archivo donde hago la busqueda Precio Preformado Lana Roca Tipo I.xlsx me da el resultado que necesito.
Es decir requiro saber que debo modificar para que haga la busqueda sin necesidad de tener abierto el archivo Precio Preformado Lana Roca Tipo I.xlsx
Function PrefTipoI(DiamIn, EspIn)
Application.Workbooks.Open Filename:="D:/Precio Preformado Lana Roca Tipo I.xlsx"
Application.Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Activate
Worksheets("Hoja1").Activate
For c = 2 To 23 Step 1
If Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(c, 1) = DiamIn Then Exit For
For f = 2 To 8 Step 1
If Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(1, f) = EspIn Then Exit For
Next f
Next c
PrefTipoI = Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(c, f)
End Function
Gracias,
Este codigo hago una busqueda en una Libro que esta cerrado, mi problema radica en que aplico esta funcion "PreTipoI" me da #¡VALOR! pero cuando tengo abierto el archivo donde hago la busqueda Precio Preformado Lana Roca Tipo I.xlsx me da el resultado que necesito.
Es decir requiro saber que debo modificar para que haga la busqueda sin necesidad de tener abierto el archivo Precio Preformado Lana Roca Tipo I.xlsx
Function PrefTipoI(DiamIn, EspIn)
Application.Workbooks.Open Filename:="D:/Precio Preformado Lana Roca Tipo I.xlsx"
Application.Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Activate
Worksheets("Hoja1").Activate
For c = 2 To 23 Step 1
If Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(c, 1) = DiamIn Then Exit For
For f = 2 To 8 Step 1
If Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(1, f) = EspIn Then Exit For
Next f
Next c
PrefTipoI = Workbooks("Precio Preformado Lana Roca Tipo I.xlsx").Sheets("Hoja1").Cells(c, f)
End Function
Gracias,
Valora esta pregunta


0