Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo.

1. Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y
2. Cuando filtro un articulo por una sola palabra no lo realiza, es decir si busco la palabra cuadrada y esta está en medio o al final no la filtra, solo lo hace si esta al principio.

Espero haberme explicado

Dim C As Range, mPath$
Image1.Picture = LoadPicture("")
Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then Exit Sub
Worksheets("inventario").Visible = True
Worksheets("inventario").Select
C.Select
mPath = ThisWorkbook.path & "\imagenes\"
mPath = mPath & Dir(mPath & Format(C.Offset(, -1), "FEC-" & "0000") & ".*")
Image1.Picture = LoadPicture(mPath)

Hace 14 horas, jose lopez contreras dijo:

Espero haberme explicado

A ver si con esto se soluciona:

Dim C As Range, mPath$
Image1.Picture = LoadPicture("")
Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlPart)'<--Cambia a XlPart'
If C Is Nothing Then Exit Sub
Worksheets("inventario").Visible = True
Worksheets("inventario").Select
C.Select
mPath = ThisWorkbook.path & "\imagenes\"
mPath = mPath & Dir(mPath & Format(C.Offset(, -1), "FEC-" & "0000") & ".*")

if mPath<>"" then
	Image1.Picture = LoadPicture(mPath)
Else
	MsgBox "No se encuentra la imagen"
	Exit Sub
End If

@Haplox Buenos días y gracias por tu apoyo, pero mira el segundo punto quedo solucionado con el cambio indicado " LoockAt=XlParrt ", pero el primer punto continua saliendo el error, como se podrá mejor que en lugar de que me mande el mensaje"No se muestra la imagen",  aparezca una imagen que tengo donde dice "sin imagen" la cual se llama FEC-000000.JPG

@Haplox ya logre solucionar el segundo error, anexo el archivo por si a alguien le sirve, agradezco de tu apoyo y de Cacho R para la solución de los dos errores. Gracias a todos.

Imágenes.rar

 

Dim C As Range, mPath$
Image1.Picture = LoadPicture("")
Set C = Hoja8.Range("a1").CurrentRegion.Columns(2).Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlPart)'<--Cambia a XlPart'
If C Is Nothing Then Exit Sub
Worksheets("inventario").Visible = True
Worksheets("inventario").Select
C.Select
mPath = ThisWorkbook.path & "\imagenes\"
mPath = mPath & Dir(mPath & Format(C.Offset(, -1), "FEC-" & "0000") & ".*")

if mPath<>"" then
	Image1.Picture = LoadPicture(mPath)
Else
	Image1.Picture = LoadPicture(ThisWorkbook.path & "\imagenes\FEC-000000.JPG")
	'MsgBox "No se encuentra la imagen"
	Exit Sub
End If

 

Editado el el 29 de marzo6 años por rolano
editar código