Buenos días:
Tengo un archivo donde digitando el Nro. de Operario me trae sus datos patronímicos, y su correspondiente foto.
He aquí que cuando el Nro. de Operario no existe o está mal digitado, si anteriormente había realizado una consulta, no cambia la foto. Deja la foto de la consulta anterior y eso podría causar error o confusiones.
Lo mismo pasa cuando en la celda donde se debe de digitar el número de operario, ésta se encuentra en blanco; los datos patronímicos no aparecen y eso estaría bien, pero la querida foto, de la última consulta sigue ahí, hasta que digite otro Nro.de Operario. Ahí cambia la foto. ¿Me pude explicar?. Quisiera que cuando no exista el número de operario o cuando no tenga nada digitado, no aparezca foto alguna. Les dejo aquí el código VB del archivo. Desde ya muchas gracias.
Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("E4")) Is Nothing Then
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If