Haplox

Se te ha olvidado el With/End With 😏

Ahora no puedo mirar el archivo 😕 Me imagino entonces que usas buscarv ¿no? Si es asi, usa al final un 1 en vez de un 0. Esto busca parte de lo buscado

Debes tener en cuenta que el método SpecialCells tiene sus limitaciones, as propias de las opciones que puedes controlar. En el caso que comentas no puedes usarlo, SpecialCells no puede controlar a ese nivel. Si podrías seleccionar todas las celdas que tuviesen texto, pero no a ese nivel de identificación Range("A:A").SpecialCells(xlCellTypeConstants, xlTextValues).Select

@nemodigital Primero arregla el enlce. Si usas macros, me imagino que buscaras mediante un bucle el producto. Si es asi y lo treas cuando la celda sea IGUAL, cambia la condicion y usa LIKE (busca la funcion en internet)

@eayvl , te dejo una solución muestra.xlsm

Justo lo que te queria indicar. Me alegro 👋

Ya estamos... 🙄 Lo peor es que sera verdad 😁

No veo para que quieres el borrado 😕 Ahora no puedo poberme con ello, pero te aconsejo que mires la funcion SpecialCells pera evitarte el bucle 😊 Si te lias pregunta

@dgiufre prueba el siguiente código: Sub comparar() For i = 2 To 29 k = 25 For Each cel In Range(Cells(i, "D"), Cells(i, "W")) For Each cel1 In Range(Cells(i + 1, "D"), Cells(i + 1, "W")) Cells(i + 2, k) = Abs(cel - cel1) k = k + 1 Next cel1 Next cel Next i Range("Y:PH").EntireColumn.AutoFit End Sub

Te dejo una solución. Hay celdas que copias de otra hoja, que no lo tengo muy claro. Seguro que puedes adaptar el código a esas necesidades Copia de Ejemplo.xlsm

Mejor sube tu fichero. Asi es imposible saber la estructura, etc

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

Te fallta colocar un condicional para detectar ese caso: ArchivoSeleccion = Application.GetOpenFilename If ArchivoSeleccion = False Then MsgBox "Debe seleccionar un fichero" Exit Sub End If

Mira este post de @Antoni , seguro que te sirve

Creí que iba a ser el único... Desde lo del Madrid ando espeso