Colorear celda si no encuentra valor
Publicado por pablo (5 intervenciones) el 04/04/2017 19:00:18
Buenas.
No he podido dar con la solución, que parece simple, pero no tengo la suficiente expertis para la siguiente macro.
De una lista de códigos de la columna A, la macro encuentra la foto correspondiente al dar clic en una celda de la columna A, pero necesito que cuando no lo encuentre, pinte la celda del código que no halló. (solo si no la encuentra)
agradeceré cualquier ayuda. Infinitas gracias
salida:
End Sub
No he podido dar con la solución, que parece simple, pero no tengo la suficiente expertis para la siguiente macro.
De una lista de códigos de la columna A, la macro encuentra la foto correspondiente al dar clic en una celda de la columna A, pero necesito que cuando no lo encuentre, pinte la celda del código que no halló. (solo si no la encuentra)
agradeceré cualquier ayuda. Infinitas gracias
1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salida
If Target.Column = 1 Then
foto = Target.Value
Shell ("WINDOWS\ \FOTOS CODIGO\" & foto & ".jpg")
Else: ActiveCell.Interior.Color = 65535
End If
Exit Sub
End Sub
Valora esta pregunta
0
