Saltar al contenido

Haplox

Miembros
  • Contador de contenido

    2513
  • Unido

  • Última visita

  • Days Won

    78

Sobre Haplox

  • Rango
    José

Información de perfil

  • Sexo Array
  • Localización: Array
  • Cosas que te gustan Array

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

2804 visitas de perfil
  1. 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
  2. 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
  3. @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)
  4. @eayvl , te dejo una solución muestra.xlsm
  5. Justo lo que te queria indicar. Me alegro 👋
  6. Ya estamos... 🙄 Lo peor es que sera verdad 😁
  7. 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
  8. @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
  9. 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
  10. Mejor sube tu fichero. Asi es imposible saber la estructura, etc
  11. 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
  12. 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
  13. Mira este post de @Antoni , seguro que te sirve
  14. Creí que iba a ser el único... Desde lo del Madrid ando espeso
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.