MACRO BUSQUEDA DE IMAGEN
Publicado por R3Y468 (2 intervenciones) el 13/05/2019 20:47:47
Buen día, haber si alguien me puede echar una mano, no soy bueno con la programación de VBA.
Es un libro de excel que usa formula buscarV ,al Introducir el numero de empleado en la celda y dar enter, me busca en toda la carpeta seleccionada "imagenes" la imagen o foto del usuario que le corresponde el numero asignado...
la macro funciona pero requiero que si no encuentra la imagen de la carpeta asignada"imagenes", me coloque una imagen de nombre "no-photo.jpg"
adjunto macro para ser mas especifico..
He intentado con ErrorHandler pero no logro dar con la solución... Desde ya Gracias
Es un libro de excel que usa formula buscarV ,al Introducir el numero de empleado en la celda y dar enter, me busca en toda la carpeta seleccionada "imagenes" la imagen o foto del usuario que le corresponde el numero asignado...
la macro funciona pero requiero que si no encuentra la imagen de la carpeta asignada"imagenes", me coloque una imagen de nombre "no-photo.jpg"
adjunto macro para ser mas especifico..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("$E$10:$E$10")) Is Nothing Then
Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If
If Not Intersect(Target, Range("E29:E29")) Is Nothing Then
Image2.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If
End Sub
He intentado con ErrorHandler pero no logro dar con la solución... Desde ya Gracias
Valora esta pregunta


0