EXCEL VBA Busqueda de datos

[leoruizb]

Saludos Abraham,

Te cuento que he avanzado en la solucion de mi problema.

Decidi primero que nada colocar la base de datos en una hoja del mismo archivo para poder hacer las pruebas antes de colocarla en otra hoja de excel externa como originalmente deben estar.

El nuevo codigo es el siguiente:

Sub poneimagen()
Dim dir As String
Dim buscar As String
Dim datos As Object
Dim hoja1 As Object
Set datos = Worksheets("datos")
Set hoja1 = Worksheets("Hoja1")
buscar = hoja1.Range("B8")
MsgBox Mid(buscar, 1)
dir = Application.WorksheetFunction.Lookup(buscar, datos.Range("A1:A200"), datos.Range("J1:J200"))
MsgBox Mid(dir, 1)
End Sub

y parece que esta trabajando. Ya no me da los errores de antes pero ahora tengo un nuevo problema y es que NO me ubica el registro que estoy buscando.
El valor de "buscar" es 107 y me trajo los datos del registro 100
que es la siguiente dirección: "C:\redgeodesica\v100\100uc.jpg"
Voy a revisar a ver que es lo que esta pasando.

Luego tengo que agregar el codigo para insertar las imagenes con las direcciones que este primer programa me va a arrojar.

Si tienes alguna sugerencia, me avisas porfavor.

Gracias de antemano.
bye

Leo