Saltar al contenido

Haplox

Miembros
  • Contador de contenido

    2294
  • Unido

  • Última visita

  • Days Won

    72

Todo se publica por Haplox

  1. Version 1.0.0

    0 downloads

    Qué tal, A partir de una duda de un usuario, surge este archivo mejorado para la busqueda y apertura de ficheros Microsoft Office (Excel, Word y PowerPoint) y ficheros PDF. Entre otras tiene las siguiente características: Permite buscar solo en un directorio raiz, o en todo sus subdirectorios Permite buscar un fichero entre el listado de todos Permite filtrar por tipos de ficheros Permite volver a mostrar de nuevo todos los ficheros tras un filtro Espero que os sirva y os guste. Espero vuestras opiniones
  2. @camacurt ¿Tiene que ser extrictamente las copias en la misma hoja? Porque si es así, lo que pides es un verdadero jaleo (pero verdadero). Si es cada copia en una hoja, todo es muchoooo más sencillo
  3. Haplox

    Fromato en texto de imagen

    @Milton Cordova ¿Has visto el comentario de @Antoni ?. Usa el siguiente código Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect "X" If Range("A1").DirectPrecedents = 1 Then ActiveSheet.Shapes("Rectangle 1").Select Selection.Font.ColorIndex = 0 ActiveSheet.Shapes("Rectangle 2").Select Selection.Font.ColorIndex = 0 Range("C7").Select ActiveSheet.Shapes("Line 3").Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.Visible = msoTrue ActiveSheet.Protect "X" ElseIf Range("A1").DirectPrecedents = 0 Then ActiveSheet.Shapes("Rectangle 1").Select Selection.Font.ColorIndex = 2 ActiveSheet.Shapes("Rectangle 2").Select Selection.Font.ColorIndex = 2 Range("B14").Select ActiveSheet.Shapes("Line 3").Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 9 Selection.ShapeRange.Line.Visible = msoTrue ActiveSheet.Protect "X" End If End Sub
  4. Haplox

    Fromato en texto de imagen

    No, ni el Barcelona...
  5. Haplox

    Fromato en texto de imagen

    ¿Ves cómo es mejor que me esconda hoy?
  6. Haplox

    Fromato en texto de imagen

    Lógico con el evento Change de la hoja. Tendrás que cambiar la filosofía de la macro y usar el evento Private Sub Worksheet_Calculate()
  7. @camacurt ¿Vas a seguir en este foro o en el otro? Es para no trabajar en balde
  8. Una curiosidad, como dice las columnas J y K ¿La matriz no sería (9,10)?
  9. Sí, una pésima decisión...
  10. Ahora me he perdido... ¿Necesitas encontrar el valor "15" en un rango con fórmulas?
  11. Haplox

    Quiero sus puntos de vista.

    Lo siento, por esperiencia personal sé lo que es eso . Pero incluso yo encontré un curro con el tiempo, así que no pierdas la esperanza
  12. Sí que puede haberla, aunque no te librarás de escribir código . Puedes usar una Colección, puesto que no admite duplicados, concatenando las 3 celdas. Para que te cree una colección SIN duplicados (saltándoselos), debes usar un truco: Set col As New Collection For each celda... On Error Resume Next '<-- TRUCO ' col.Add celda & celda.Offset(,1) & celda.Offset(,2), Cstr (celda & celda.Offset(,1) & celda.Offset(,2)) Next Luego solo copiar la colección a dónde quieras
  13. No es eso, es que esto ya debería ser fácil Solo tienes que recorre desde la última fila hacia arriba, comparando las 3 celdas. Si coinciden, borrar la fila actual, salir del For y seguir con la siguiente fila ¿No?
  14. No sé a qué te efieres con personales, pero si es lo mismo que yo Lo temporales, si te refieres a la copia que va haciendo, en el mismo directorio del archivo, pero está oculto. Tienes que Desmarcar en opciones de vista del explorador
  15. ¿Y no te vale así? Dim VALOR As Range Set VALOR = Selection.Find("lo que sea", LookIn:=xlFormulas) Direccion = VALOR.Address
  16. Haplox

    Rellenar celdas Automáticamente

    @CARLOS RUIZ, te dejo una solución. Da igual el nº de registro que tengas en la BD. Prueba y comenta Copia de Libro1.xlsm
  17. Haplox

    ENCONTRAR VALORES CON 2 CONDICIONES VBA

    @Xavier Macías, como no subes tu archivo de ejemplo ni dices qué tipo de condiciones, pues te dejo una respuesta, más bien "teórica" Deberás recorrer las celdas del rango abuscar, con un "Do/Loop" o un For "Each celda/Next" Dentro de este bucle, debes poner un condicional con tus 2 condiciones "If Celda="condición1" And celda="condición2" Then" Lo de copiar a la D, una vez envontrada, sería celda.Copy Cells(celda.row,"D") Y lo de a otra hoja cells(celda.Row).Copy Hoja2.Cells(la que sea) Con la info que has dado, poco más
  18. Haplox

    Duda con llenado de columnas

    Sí . Y para que sigas con ello, te he dejado un nuevo Userform "Multipage_Haplos" para que veas el uso de un Multipage y no tengas que andar con 2 formularios distintos. Prueba y comenta Copia de Resgistro de Equipo en patio.xlsm
  19. Haplox

    Duda con llenado de columnas

    Pues principalmente al jaleo de código que tienes Para empezar no es buena idea poner dos eventos al iniciar el For (Activate y Initialize), si ademas uno y otro son contradictorios. Por otro lado no hace falta recorrer todas las filas si has encontrado en la que pasar datos (mira el código que te dejo), y bueno... alguna cosilla más. Por cierto, si quieres registrar en la fecha y hora que abres el formulario, si por cualquier cosa tienes que irte y dejas el formulario abierto, cuando lo registres la hora será equivocada. Para eso debes actualizar la hora. En el archivo se actualiza cuando pulsas el botón registrar. Prueba y comenta Copia de Entradas - Salidas 2.xlsm
  20. Pero qué bonitos te quedan los códigos últimamente... con todos esos colorines
  21. Haplox

    Organizar datos para un tabla dinámica

    Si te atascas ya sabes dónde andamos...
  22. Haplox

    Organizar datos para un tabla dinámica

    Ahora sí que me perdí... . Tienes el libro lleno de macros y además haces uso de una función personal, que no aparece por ningún lado ¿Porqué no haces lo que necesitas con una macro? Lo veo más sencillo y viable1. Si en una hoja "RESUMEN" pones un ComboBox para elegir el año, y que al cambiar el combobox haga esos cálculos para ese año, creo que lo tendrías ¿O me he perdido algo por el medio?
  23. Haplox

    Organizar datos para un tabla dinámica

    Para empezar @zelarra821 , es necesario subir el archivo de ejemplo representativo, con un foto poco se uede hacer. Segundo, no soy un experto en tablas dinámicas, pero me da que si usas una hoja para cada año, resumir con una sola tabla va a ser imposible. Si tuvieras todos los años en una sola hoja sería posible. De todas formas no entiendo bién tu método. Si tienes los datos en una hoja y lo que necesitas en otra, ¿cómo quieres crear una tabla dinámica? ¿Cómo calculas eso de "invierno" y lo de "bien? ¿lo pones a mano o cuál es el criterio? Seguramente con Power Query podrías (en este foro hay muchos expertos), pero sin saber tus criterios o de dónde salen los datos... difícil.
×

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.