Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 11/06/2022 in all areas

  1. Hola a ambos @Giancarloch Para que veas que Excel es versátil, dejo una solución sin utilizar un bucle Utilizando mi preferido SpecialCells vce = Range("P:Q").SpecialCells(xlCellTypeFormulas, 16).Count If vce Then VBA.MsgBox "Se encontraron " & vce & _ " errores, favor revisar", vbExclamation, "AyudaExcel" Excel te mostrar una alerta, si hay errores
    5 points
  2. Sergio

    Suscripción

    Hola Benito. Estuve comentándolo con @Gerson Pineday te cambié los permisos para que puedas acceder libremente a partir de ahora.
    5 points
  3. Hola David999 revisa la función CONTAR.SI.CONJUNTO saludos Silvia
    5 points
  4. ¡Un regalito para todos! Espero les sea de utilidad. ¡Bendiciones!
    4 points
  5. Lo tienes crudo, hasta que se jubile Antoni no hay vacante. Se siente🤷‍♂️. La parte positiva es que creo que para entonces Antoni igual pide la "prejubilación ". 😅
    4 points
  6. Hola a todos: Días atrás alguien publico una consulta con este título, más o menos, lo cierto es que esta consulta ha sido eliminada. No obstante y dado que he desarrollado una solución, la subo por si es de interés para alguien. La macro permite seleccionar cualquier número de columnas en cualquier orden y copiarlas en la misma hoja o en una nueva. Como curiosidad, decir que genera el código VBA necesario para realizar la operación en un textbox, se puede copiar dicho código, o incluso, generar la macro en el Módulo1, por si se quiere utilizar la macro de forma regular sin tener que volver a escoger las columnas. Abrir el adjunto, y como siempre en mis aportes, pulsar sobre la flecha azul. Saludos Copiar columnas.xlsm
    4 points
  7. Hola Al menos en la segunda no termino de entender/ver el problema, pero pensando en la primera captura (lo del supuesto nombre que les pusiste y el intento de explicación, pues tampoco ayuda) no es inhabitual, y tal como ya mucha gente ha reportado, que el Windows 11 no necesariamente sea compatible con la tarjeta gráfica y/o el driver de dicha tarjeta y/o el monitor, no sea compatible con dicho Windows. ¿Qué hacer? Asegúrate de tener el Windows actualizados, mira en la web de la laptop y/o PC que si tienen drivers ya compatibles con Windows 11; en ocasiones los de Windows 10 ayudan, porque además mucha gente no necesariamente tiene esos (conozco muchos que teniendo Windows 10 aún usaban driver que salieron para Windows 7 u 8). Si nada de eso funciona, prueba cambiando la resolución, la frecuencia del parpadeo, el porcentaje del tamaño del monitor, etc. Por último, en Excel asegúrate de tener esta opción activada:
    4 points
  8. ¡Saludos @Jose Martinez! Dejo dos opciones en el adjunto. Una compatible con tu Excel 2010, y otra con Microsoft 365. ¡Bendiciones! Como averiguar si trabaje entre dos horas.xlsx
    4 points
  9. Ya te han dado la solución en otro foro, estaría bien que lo comunicases en los resto de foros que has pedido ayuda, para no hacernos perder el tiempo. https://foro.todoexcel.com/threads/ayuda-macro-para-filtrar-informacion-especifica.64215/
    3 points
  10. Hice esto hace algunos años, a ver si con eso te conformas. Macropedia.xlsm
    3 points
  11. Mira mi perfil. Yo no soy ni miembro destacado!! Geeerrrrsoooonnnnn!!!!!
    3 points
  12. Hola, En cualquier celda de la hoja 'RAW', cambia la fórmula así: {=MIN(SI((C2:C26>0)*(A2:A26=K5);C2:C26))} Y para versiones Excel 2019 o superior, puede hacerse: =MIN.SI.CONJUNTO(C2:C26;C2:C26;">0";A2:A26;K5) Esta última fórmula no necesita introducirse matricialmente. Saludos,
    3 points
  13. Con VBA: archivo = Mid(texto, InStrRev(texto, "\") + 1)
    3 points
  14. Estoy preparando un pequeño formulario para que te hagas una idea de como enfocar el tema.
    3 points
  15. Que tal, mis propuestas de solución no matricial: Para C1: =SI.ERROR(SUMAR.SI(A$1:A1;A1;B$1:B1)/(A1<>A2);"") y para D1: =SI.ERROR(REDONDEAR.MAS(C1/66;0,5);"") Espero le sea útil.
    3 points
  16. .............y ahora veo que si hay que copiar en vertical, convendría anclar los rangos de la fila 3: =SUMAPRODUCTO((C$3:NC$3="D")*(C5:NC5="L")) =CONTAR.SI.CONJUNTO(C$3:NC$3;"D"; C5:NC5;"L")
    3 points
  17. Revísalo de nuevo, te dejo 2 formas de hacerlo, con función personalizada [mi forma preferida] y con los pasos del panel Ordenar matriz por columna - power query_GP.xlsx
    3 points
  18. ¡Hola a ambos! Ahora una con power query Ordenar matriz por columna - power query_GP.xlsx
    3 points
  19. Buenos días, Deciros que, por fin, he solucionado mi problema. Era porque por defecto guardaba los documentos de Excel en formato Hoja de cálculo Open XML (*.xlsx) estricta y no en Libro de Excel (*.xlxs). Muchas gracias por vuestra ayuda y por la creación del foro. Un saludo, Rosa.
    3 points
  20. Saludos compatriota @GabrielRaigosa. Revisa el adjunto, donde te dejo una propuesta. ¡Bendiciones! Ordenar matriz ✖.xlsx
    3 points
  21. Silvia

    Redondeo personalizado

    hola Vanne prueba esto =REDONDEAR.MAS(D5-0.005,2) mi separador de argumentos es la coma (,) , si el tuyo es otro, corriges saludos, Silvia
    3 points
  22. Que tal a todos (y estimado Fernando), verificando la consulta, y según puedo interpretar, adjunto una propuesta de solución que incluye formato condicional y una Tabla resumen. Espero les sea útil. Conteo condicional (Ayuda Excel).xlsx
    2 points
  23. Buenas, te paso la solución saludos FTO CONDICIONAL_v1.xlsm
    2 points
  24. ¡Saludos @Hbarreto! Una opción para resolver, sería: =LET(c;A2:A40;UNICOS(FILTRAR(c;MMULT(--(CONTAR.SI.CONJUNTO(c;c;C2:C40;{"ROTO"\"CUMPLIDO"})>0);{1;1})=2))) ¡Bendiciones!
    2 points
  25. Trece o catorce años después, me dan este premio: Supongo que el siguiente premio/nivel me lo darán cuando cumpla 25 años aquí jajaja... sospecho que todo es culpa de Gerson.
    2 points
  26. Hola Desde la ficha REVISAR, puedes mostrar u ocultar
    2 points
  27. Ahora la versatilidad de Excel, es de otras dimensiones😎 Vamos, anímate con las funciones, no les tengas miedo 😁
    2 points
  28. Luego no me digais que doy soluciones con macros en el foro de fórmulas. ¿Vale? 😜
    2 points
  29. Hola, Suponiendo que la cuenta contable esté en A1, prueba con: =--(IZQUIERDA(A1;4)*"1e3"&DERECHA(A1;3)) Saludos,
    2 points
  30. Ahora con power query Extraer ultima cadena power query_GP.xlsx
    2 points
  31. Hola @ALEXNADER GARCIA En su día hice una adaptación de un calendario configurable basándose en la idea de xPedro. A ver si hay alguna parte que te sea útil. Es formato .xlsx Tiene tres modos de presentación. Saludos. Link: Calendario configurable
    2 points
  32. Hola a todos Suponiendo que tus datos inician en A1 Dejo otra posible solución =LET(m_,ENCOL(DIVIDIRTEXTO(A1,"\")),INDICE(m_,COINCIDIR("pdf",m_))) Saludos
    2 points
  33. Ok Sergio. Se agradece el detalle. Saludos a ti y a @Gerson Pineda👍
    2 points
  34. Buenas, lo que quieres es que no se ejecute la macro IMOVTXT si hay errores, entonces según tu código seria : Sub ERRORES1() Dim ulfila As Integer Dim p As Integer Dim i As Integer With Worksheets("PTR") ulfila = .Cells(Rows.Count, "A").End(xlUp).Row For p = 16 To 17 For i = 2 To ulfila If IsError(.Cells(i, p)) Then MsgBox "Por favor verifica los errores, Fila:" & i & " Colum:" & p, vbInformation + vbOKOnly, "Informacion" Exit Sub End If Next i Next p End With Call IMOVTXT End Sub más corto, comprobando las columnas al mismo tiempo: Sub ERRORES2() Dim i% With Worksheets("PTR") For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If IsError(.Cells(i, 16)) Or IsError(.Cells(i, 17)) Then MsgBox "Por favor verifica los errores, Fila:" & i & " Colum:16/17", vbInformation + vbOKOnly, "Informacion" Exit Sub End If Next i End With Call IMOVTXT End Sub saludos
    2 points
  35. Hola @klox y todos, Me apunto a la fiesta con: =EXTRAE(A2;LARGO(A2)-LARGO(ESPACIOS(DERECHA(SUSTITUIR(A2;"\";REPETIR(" ";99));99)))+1;LARGO(ESPACIOS(DERECHA(SUSTITUIR(A2;"\";REPETIR(" ";99));99)))+1) Y como veo en el perfil de @kloxtnxque es usuario de 365, en esa versión le pueden servir: =EXTRAE(A2;COINCIDIRX("\";EXTRAE(A2;SECUENCIA(LARGO(A2));1);0;-1)+1;LARGO(A2)-COINCIDIRX("\";EXTRAE(A2;SECUENCIA(LARGO(A2));1);0;-1)+1) =EXTRAE(A2;HALLAR(LET(x;DIVIDIRTEXTO(A2;"\";;;);INDICE(x;CONTARA(x)));A2);LARGO(A2)-HALLAR(LET(x;DIVIDIRTEXTO(A2;"\";;;);INDICE(x;CONTARA(x)));A2))
    2 points
  36. Hola nuevamente. Dicha tarjeta gráfica no tiene driver para Windows 11, prueba con el de Windows 10, yo desde aquí no puedo saber si tienes la última versión instalada: https://la.nvidia.com/download/driverResults.aspx/112664/la
    2 points
  37. Hola a ambos, Creo que también serviría (no necesita M365): =N(SUMA(Y(D7<=7/12;D7+F7>=2/3);Y(D7<=7/8;D7+F7>=23/24);F7>=0,25)>1) La fórmula sería para la fila 7, que puede copiarse verticalmente hasta donde sea necesario. Saludos,
    2 points
  38. Hola @Jose Martinez, En el adjunto he tenido en cuenta que si comienza el sábado pero supera las 12 de l a noche ya son horas de domingo. Y si comienza el domingo pero supera las 12 de la noche ya no son horas de domingo. Haz tus pruebas y vas comentando. Un saludo, Fernando Fallo-FGV.xlsx
    2 points
  39. Hola Sugiero dejar menos datos en el archivo y explicar un poco más detallado, poniendo de ejemplos algunos de los registros que dejes, para poder entenderte mejor y ayudarte.
    2 points
  40. Hola a ambos, Una pequeña incursión a la respuesta de @Silvia, si quieres UNA respuesta para cada grupo: =SUMAPRODUCTO((C3:NC3="D")*(C5:NC5="L")) Y otra variante también válida: =CONTAR.SI.CONJUNTO(C3:NC3;"D"; C5:NC5;"L") Saludos,
    2 points
  41. Hola @sobasana10, Tal como lo veo, faltan datos y detalles: Un cuadro claro del MÁXIMO de los 4 conceptos que manejas (Rutas, Órdenes/ruta, Ítems, Líneas) ¿El cálculo de la necesidad de vehículos es para cada día o un período más amplio? Un saludo, Fernando
    2 points
  42. ¿Has probado trabajar con los datos en una Tabla de Excel? Mira el ejemplo y si no estás familiarizado con ellas te puedo enviar algunos enlaces... Un saludo, Fernando Advertir duplicados Código-Tabla.xlsx
    2 points
  43. Es claro que la solución ofrecida por John, matrices dinámicas con MSO 365, es lo que estaba buscando. Las propuestas con PQ pueden ser utiles en otros casos, cuando los datos son fijos, si se usan datos aleatorios, como en el ejemplo, no sera aplicable. Saludos.
    2 points
  44. @GabrielRaigosa También a nivel de registros, se obtiene el resultado Te dejo el archivo con los 3 métodos Ordenar matriz por columna - power query_GP.xlsx
    2 points
  45. Gracias @Gerson Pineda por tu intervención y por el aporte. Seguro que en algún momento me pude servir tener la alternativa con PQ. De hecho la consulta (ejercicio) no es que lo necesite ahora para algo, siempre resultan dudas de como resolver otro problema cuando estudio algún tema. Seguimos en la tarea de aprender/estudiar/recordar/repasar todos los dias, esto es de nunca acabar. Saludos.
    2 points
  46. @RosaVmuchas gracias por compartir la solución. Ojalá más personas lo hicieran...
    2 points
  47. Pues gracias a ti, por la devolución y de paso que bueno, que lo hayas resuelto Saludos
    2 points
  48. Oscar_MRF

    separar texto

    Que tal, verificando la consulta adjunto una posible solución empleando una combinación de fórmulas de extracción y rango nombrado. Espero le sea útil. Extraccion datos (solucion).xlsx
    2 points
×
×
  • Create New...

Important Information

Privacy Policy