Leaderboard

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

Hola Benito. Estuve comentándolo con @Gerson Pineday te cambié los permisos para que puedas acceder libremente a partir de ahora.

Hola David999 revisa la función CONTAR.SI.CONJUNTO saludos Silvia

¡Un regalito para todos! Espero les sea de utilidad. ¡Bendiciones!

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 ". 😅

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

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:

¡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

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/

Hice esto hace algunos años, a ver si con eso te conformas. Macropedia.xlsm

Mira mi perfil. Yo no soy ni miembro destacado!! Geeerrrrsoooonnnnn!!!!!

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,

Con VBA: archivo = Mid(texto, InStrRev(texto, "\") + 1)

Estoy preparando un pequeño formulario para que te hagas una idea de como enfocar el tema.

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.

.............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")

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

¡Hola a ambos! Ahora una con power query Ordenar matriz por columna - power query_GP.xlsx

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.

Saludos compatriota @GabrielRaigosa. Revisa el adjunto, donde te dejo una propuesta. ¡Bendiciones! Ordenar matriz ✖.xlsx

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

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

Buenas, te paso la solución saludos FTO CONDICIONAL_v1.xlsm

¡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!

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.

Hola Desde la ficha REVISAR, puedes mostrar u ocultar

Otra alternativa: =--(REEMPLAZAR(A1;4;0;"000"))

Ahora la versatilidad de Excel, es de otras dimensiones😎 Vamos, anímate con las funciones, no les tengas miedo 😁

Luego no me digais que doy soluciones con macros en el foro de fórmulas. ¿Vale? 😜

Hola, Suponiendo que la cuenta contable esté en A1, prueba con: =--(IZQUIERDA(A1;4)*"1e3"&DERECHA(A1;3)) Saludos,

Ahora con power query Extraer ultima cadena power query_GP.xlsx

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

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

Ok Sergio. Se agradece el detalle. Saludos a ti y a @Gerson Pineda👍

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

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))

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

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,

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

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.

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,

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

¿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

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.

@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

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.

@RosaVmuchas gracias por compartir la solución. Ojalá más personas lo hicieran...

Pues gracias a ti, por la devolución y de paso que bueno, que lo hayas resuelto Saludos

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