Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo.
Cuando un articulo no cuenta con una imagen dentro de la carpeta imagenes me arroja un error y
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)
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola amigos la siguiente macro la tengo en ComboBox como filtro, pero tengo dos detalles con ella espero contar con su apoyo.
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)