Buenos dias, a todos los expertos tengo una pequeña base de datos cuando realizo la consulta me muestra bien la foto de la persona seleccionada pero solo hay un detalle que cuando de aquella persona no esta registro su foto en la carpeta de fotos me debe mostrar la otra imagen que dice error, gracias por su ayuda y su valioso tiempo adjunto el archivo.

 

Base de datos.rar

Carga una imagen detrás de otra, si no existe la imagen de la persona, quedará la imagen de error.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A7")) Is Nothing Then
    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Fotos\error.jpg")
    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Fotos\" & Target & ".jpg")
    Range("B7").Select
End If
End Sub

 

Antoni muchas gracias funciona bien exelente.