Buscar foto segun direccion de celda

[jmollan]

Estimados.

Adjunto libro que realiza busquedas de fotos dentro de una carpeta, el unico requisito para que funcione es que el libro se encuentre dentro de la carpeta que contiene las fotos, el nombre de la foto se debe colocar en la columna B, para que muestre la foto te debes desplazar por la columna C.

Hasta aqui todo va bien, pero tengo varias carpetas con fotos, entonces necesito que la macro busque la foto segun la direccion de cada carpeta, seria posible que en la columna "G" coloque la direccion de la carpeta y realice la busqueda de las fotos, espero que algun experto me apoye a encontrar alguna solucion.

Saludos cordiales.

EJEMPLO.zip

[Invitado Gengis Khan]

Hola:

Sustituya el código VBA completo de la hoja BD por:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next


If ActiveCell.Row > 17 Then

   Me.Shapes("Imagen artículo").Delete

   Me.Pictures.Insert(Range("G" & Target.Row) & "\" & _

                      Range("B" & Target.Row) & ".jpg").Select

   With Selection

      .Name = "Imagen artículo"

      .Top = Range("E2:F9").Top

      .Left = Range("E2:F9").Left

      .Width = Range("E2:F9").Width

      .Height = Range("E2:F9").Height

   End With

   ActiveCell.Select

End If



End Sub



[/CODE]

Saludos

[jmollan]

Muchas gracias Gengis Khan, haz resuelto mi problema.

TEMA SOLUCIONADO

Saludos.