Saltar al contenido

Máximos colaboradores


Popular Content

Showing content with the highest reputation since 23/09/17 in all areas

  1. 5 points
    Silvia

    Buscar y arrojar valores dentro de una celda

    MEU DEUS.. Publicado hace dos horas, 28 respuestas.. En menos de dos horas apareció toda la cuadra de chicos a ayudar... jajajaja
  2. 4 points
    hola Yeipi. Esto es lo que pienso, solo te digo como lo veo desde este lado del foro, toma en cuenta que nosotros no sabemos de tus necesidades, ni conocemos tu trabajo. El hecho que envíes todo un testamento, con varias consultas, sin indicar lo que hay que hacer, ni como salen tus datos y que nos pongas a analizarlo por ti, ya es demasiado, creo que nadie tiene tanto tiempo, como para dedicarse solo a tu tema.. (si me dejé entender, cierto?) Mi sugerencia para el éxito en las respuestas: 1. Coloca una pregunta a la vez.. máximo dos, pero que estén relacionadas entre si. 2. Envía un modelo en el que indiques el resultado puesto a mano y además la explicación de como obtener el resultado. (de donde sale, como lo evalúas) **Una formula requiere del conocimiento de las condiciones y parámetros lógicos, para llegar a los resultados. A partir de un dato: cual es el resultado que deseas obtener, cuales son las condiciones para lograr ese resultado, de donde tomará los datos de búsqueda, cual es el resultado a mano y cualquier otro dato que sirva para que podamos entender lo que pretendes. 3. Sería interesante (si se pudiera), ver tus esfuerzos por lograr los resultados, una formula que muestre lo que estuviste tratando de hacer pero que no proporciona el resultado esperado. una ves conforme con la respuesta, das por Solucionado el tema, abres tu siguiente consulta en otro post y continuamos.. Éxitos en tu proyecto. Saludos, Silvia
  3. 3 points
    Hola @Haplox, existe una función llamada Regex (Regular expressions) que permite examinar una cadena de texto sin importar su longitud en busca una serie de caracteres que se indiquen. Por ejemplo: Sub Buscar_caracteres() Dim Permitido As String Dim r As Object Permitido = "[^a-z0-9-]" Texto = "Hola()/&%&#998" Set r = CreateObject("VBScript.RegExp") With r .Global = True .IgnoreCase = True .Pattern = Permitido If .Test(Texto) Then MsgBox "Existen Caracteres especiales dentro del texto" End With End Sub También podemos combinarlo con la función reemplazar para eliminar esos caracteres: Sub Reemplazar_caracteres() Dim Permitido As String Dim r As Object Permitido = "[^a-z0-9-]" Texto = "Hola()/&%&#998" Set r = CreateObject("VBScript.RegExp") With r .Global = True .IgnoreCase = True .Pattern = Permitido If .Test(Texto) Then MsgBox .Replace(Texto, "") End With End Sub Espero te sea de ayuda. Comentas, saludos.
  4. 3 points
    Una mas =SUMAR.SI.CONJUNTO(TRASLADOS!$C$2:$C$325,TRASLADOS!$A$2:$A$325,$B2,TRASLADOS!$B$2:$B$325,$C2) Saludos
  5. 3 points
    jajajaja Bueno yo colabore porque, el [email protected] (con foto de dama) necesita una formula sin auxiliar y me puse a elaborar la formula
  6. 3 points
    ioyama

    duda

    Hola (haz caso al compañero johnmpl) Revisa el adjunto Un saludo desde Vitoria PuntosDentroFuera_io_171010.zip
  7. 3 points
    Buen dia! checa si te sirve esta formula =+SI(BUSCARV(F5,$B$5:$C$8,2)>=F5,BUSCARV(F5,$B$5:$D$8,3),"??") ?? en esta parte se pondria algo para los valores no considerados en los intervalos de tu tabla. que tengan excelente fin de semana.
  8. 3 points
    hola Yeipi (y Gerson el Terrible ) **Gerson, Yeipi me está haciendo sufrir... Si ya la tienes clara, no veo el motivo por cual no le puedas agregar una condición mas a tu fórmula... =SI.ERROR(INDICE(Diario!$D$3:$D$10040,MAX(INDICE((Diario!$C$3:$C$10040=B3)*(Diario!$E$3:$E$10040<>"")*FILA(Diario!$C$3:$C$10040),))-2)-INDICE(Diario!$D$3:$D$10040,COINCIDIR(B3,INDICE((Diario!$C$3:$C$10040)*(Diario!$E$3:$E$10040<>""),),)),"") Eso si te digo, si no es eso.. ya me doy por vencida, tiraré la toalla deseándote muchos éxitos con tu formula. ... .... ***no olvides lo de mi separador de argumentos.. saludos, Silvia
  9. 3 points
    Podrías intentar, por ejemplo, con: V0.3.xlsm
  10. 2 points
    ¡Hola, @rafaga8! (y @Mauricio_ODN). Puedes usar el siguiente código VBA: Sub ConcatenaGrupos() Dim Datos As Range, Celda As Range Dim dic As Object Dim i&, it$, a, Res Set Datos = Range("A1").CurrentRegion Set Datos = Datos.Offset(1).Resize(Datos.Rows.Count - 1) Set dic = CreateObject("Scripting.Dictionary") For i = 1 To Datos.Rows.Count dic.Item(Datos(i, 1).Value) = Datos(i, 1).Value Next i ReDim Res(1 To dic.Count, 1 To 2) For i = 0 To dic.Count - 1 it = dic.keys()(i) Res(i + 1, 1) = it Set Celda = Datos.Find(it, Datos.Cells(Datos.Cells.Count), xlFormulas, xlWhole) a = Application.Transpose(Celda.Offset(, 1).Resize(Application.CountIf(Datos, it))) Res(i + 1, 2) = Join(a, ", ") Next i With Range("E2") .CurrentRegion.Offset(1).Clear .Resize(UBound(Res, 1), UBound(Res, 2)) = Res .CurrentRegion.Columns.AutoFit End With Set Datos = Nothing: Set Celda = Nothing Set dic = Nothing: Erase a, Res End Sub Revisa el archivo adjunto (Pulsa sobre la flecha naranja). ¡Bendiciones! muestra.xlsm
  11. 2 points
    Hola! Todas las combinaciones posibles serán 131.072 (2 elevado a la 17, porque son 2 resultados posibles en 17 juegos). Por definición, NUNCA es rentable hacer todas las apuestas; dicho de otra manera, la casa siempre gana
  12. 2 points
    muy bueno @Riddle . Nunca digas jamás con VBA...
  13. 2 points
    Mauricio_ODN

    BUSCAR IMAGEN

    Comparto una posible solución, solo cambia la celda B3 del menú despeglable. Comentas por favor. BUSCAR IMAGEN.xlsm
  14. 2 points
    Gracias, Cristian por toda tu ayuda. Gracias, Gerson, por la otra opción. Gracias a todos nuevamente por su ayuda tan dedicada y rápida. Saludos cordiales.
  15. 2 points
    hola Guti no se si entendí bien lo que quieres.. revisa el adjunto.. saludos, Silvia Ejemplo sq.xlsx
  16. 2 points
    ¡Hola, @miulrg! Revisa por favor el archivo adjunto. ¡Bendiciones! Ejemplo (1).xlsx
  17. 2 points
    Gerson Pineda

    Control Equipo de Futbol

    Saludos a todos! Aprovechando el libro que subió haplox, adjunto una opcion @Niketo selecciona cualquier celda de la primera fila y Excel va colorear los minutos y jugadores Colorear celdas de acuerdo a columna_GP.rar
  18. 2 points
    Eres tu quien debe hacerlo y así lo indican nuestras normas, el mayor esfuerzo debe ser tuyo y no el del colaborador (que somos nosotros) Saludos
  19. 2 points
    yo no soy chico.. jaja
  20. 2 points
  21. 2 points
    Snake

    Buscar y arrojar valores dentro de una celda

    @ayanez, Gracias a tu consulta, una vez más me doy cuenta de que no hay que pensar "No se Puede". Los compañeros lo han demostrado.. Siempre hay de quien aprender.
  22. 2 points
    Riddle

    Dar foco a textbox en caso de error

    Hola @Jamel, utiliza el evento "BeforeUpdate" en lugar de "AfterUpdate" y reemplaza "tbruc.SetFocus" por "Cancel = True". Debe quedar así: Private Sub tbruc_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) FILALIBRE = Hoja5.Range("A1").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. de la primer celda vacía. dato = tbruc Sheets("Auxiliares").Select rango = "A2:A" & FILALIBRE Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole) If Not (midato) Is Nothing Then ubica = midato.Address(False, False) Me.Razon_social.Value = Hoja5.Range(ubica).Offset(0, 4).Value Me.tbdireccion.Value = Hoja5.Range(ubica).Offset(0, 5).Value Me.tbdistrito.Value = Hoja5.Range(ubica).Offset(0, 6).Value Me.tbprovincia.Value = Hoja5.Range(ubica).Offset(0, 7).Value Else MsgBox ("RUC NO EXISTE") Me.tbruc.Text = "" Cancel = True End If Set midato = Nothing End Sub Comentas, saludos.
  23. 2 points
    Antoni

    listbox

    Varias cosas, el URGENTE no existe en el foro, para resolver un tema necesitamos saber cual es y para terminar, sin archivo con un ejemplo de lo que quieres, no va a haber respuesta.
  24. 2 points
    Saludos don @M0sh a lo que entendí pues le mando una posible solución, note que la primera fórmula da un error debido a que el primer dato del ejemplo (75), no entra en ninguno de los intervalos. ¿Que quisiera que salga en vez de ese error? O si no es lo que esperaba no dude en aclarar todo por acá. Que tenga un gran día Duda excelchuro.xlsx
  25. 2 points
    conoce y experimenta con las herramientas integradas de excel (p.ej.) datos > filtro avanzado > copiar a otro lugar > registros unicos saludos, hector.
  26. 2 points
    Gerson Pineda

    AYUDA URGENTE PORFA :(

    Además nada es urgente en este foro, nuestras directrices son claras... si no te gusta leer, pues no podemos hacer nada por ti Saludos a todos
  27. 2 points
    digitalboy

    AYUDA URGENTE PORFA :(

    El titulo de la consulta es de vital importancia, por que viendo una consulta como: "AYUDA URGENTE PORFA :(", me pasa por la mente que dicha persona, no sabe describir que problema tiene y si no sabe describirlo es por que no sabe lo que quiere, entonces... para que tomarse la molestia en tratar de ayudarle. Saludos!
  28. 2 points
    pistacho

    Cambiar Hoja de un libro en formúla

    @Silvia Muchas gracias por tu amabilidad y siempre dispuesta a colaborar Un abrazo!
  29. 2 points
    ¡Hola, @Pedro Martin Bonilla Hdez! Es buena la solución que propones... faltaría como opción envolverla con la función SI.ERROR o involucrar otra condición adicional para los valores que sean menores que 100 en el ejemplo: =SI.ERROR(SI(BUSCARV(F5;B$5:C$8;2)>=F5;BUSCARV(F5;B$5:D$8;3);"??");"??") =SI(F5<B$5;"??";SI(BUSCARV(F5;B$5:C$8;2)>=F5;BUSCARV(F5;B$5:D$8;3);"??")) ¡Bendiciones!
  30. 2 points
    Silvia

    Cambiar Hoja de un libro en formúla

    hola Pistacho (y Gerson ) Aquí metiendo mi cuchara... **La función Dirección te entrega la dirección de la celda, siempre y cuando le especifiques el número de la fila y el de la columna. Si la formula =columna(AO8), que número obtienes? Entonces: COLUMNAS(&A&1:A1)= 1 +40 = 41 // La misma idea es con la parte de Fila.. Yo creo.. que un cambio en la parte de DIRECCION, también te puede servir... DIRECCION(FILA(AO8),COLUMNA(AO8)) esa parte ya es cuestión de que pruebes cuando insertas filas o columnas, cual de las dos opciones te conviene mas..... saludos, Silvia
  31. 2 points
    ¡Hola de nuevo! Bueno... vamos por partes: ¡Seguimos en la meta! ¡Vamos perdiendo kilos! Saludote y ymcpt ¡Genial! me alegra que lo hayas podido hacer. Esto no debe ser problema, puesto que simplemente agregas los valores a la tabla creada, y todo se actualizará automáticamente. ¿¿¿ ??? ¿Qué tiene que ver una cosa con la otra? Precisamente la ventaja de la tabla es que si agregas o disminuyes valores a analizar, no necesitas cambiar los rangos de las fórmulas ya hechas. Si tu no quieres convertirlo en tabla, no hay problema... eso si, te tocaría cada que cambies los valores, reajustar los rangos de las fórmulas. Las tablas no son "un complique"... son una solución más que adecuada para los rangos dinámicos. Te comento que con (o sin) las tablas, la fórmula sigue siendo la misma. Si, hay otras formas de hacer los rangos dinámicos sin tablas (si es que las detestas... jejejeje), y es con rangos formulados. Me comentas si lo prefieres así y lo modificamos. La fórmula ya te la puse... si pudiste hacer la primera, no veo cómo no puedes hacer la segunda, puesto que es básicamente lo mismo, solo que la fórmula de la frecuencia crece "un poquito": Si observas, la lógica de la fórmula es en dos partes, donde en la primera va la igualdad, y en la otra va exactamente lo opuesto. En la primera fórmula - nombre formulado freq: - =FRECUENCIA(SI(Igual!$A$2:$A$1115=Igual!$D$1;FILA(Igual!$A$2:$A$1115));SI(Igual!$A$2:$A$1115<>Igual!G$1;FILA(Igual!$A$2:$A$1115))) Si ves las partes azules, son opuestas. Primero pregunto si es igual, y luego si es diferente. La parte roja siempre es igual en ambas partes de la fórmula. En la segunda fórmula - nombre formulado freq2: - =FRECUENCIA(SI((Entre!$A$2:$A$1115>=Entre!$D$1)*(Entre!$A$2:$A$1115<=Entre!$D$2);FILA(Entre!$A$2:$A$1115));SI((Entre!$A$2:$A$1115<Entre!$D$1)+(Entre!$A$2:$A$1115>Entre!$D$2);FILA(Entre!$A$2:$A$1115))) Es un simil a la anterior: La primera parte evalúo si los números están dentro del rango 0 a 5 (el 0 está en D1 y el 5 está en D2). En la segunda parte azul, evalúo si los números están por fuera del rango 0 a 5 - que es lo contrario a la primera parte -. Las partes rojas son iguales. Si quieres colocar los valores de forma estática dentro de la fórmula, basta con que hagas: =FRECUENCIA(SI((Entre!$A$2:$A$1115>=0)*(Entre!$A$2:$A$1115<=5);FILA(Entre!$A$2:$A$1115));SI((Entre!$A$2:$A$1115<0)+(Entre!$A$2:$A$1115>5);FILA(Entre!$A$2:$A$1115))) Me gusta más la primera forma, puesto que si cambias los límites del rango (de 0 a 5 a otro rango cualquiera), no tendrías sino que cambiar los valores de D1 y D2. En la segunda fórmula, los valores quedan constantes. Si cambias en un futuro estos valores, te tocaría cambiar manualmente la fórmula. Tu decides qué quieres hacer. Hay una regla de oro que uso en todas mis fórmulas... y es: No utilices valores estáticos en fórmulas, a menos que sepas que dichos valores nunca van a cambiar. Espero que con esta "mini" explicación te haya quedado más claro lo que hice. ¡Bendiciones!
  32. 2 points
    ¡Hola, a todos! @tjvsp: ¿Qué debe pasar entonces si el valor que buscas se encuentra en un "hueco"? Es decir: de acuerdo a tu ejemplo, qué debe pasar si: ¿El valor buscado es menor que 100? ¿El valor buscado es mayor que 185 pero menor que 200? ¿El valor buscado es mayor que 270 pero menor que 300? ¿El valor buscado es mayor que 375 pero menor que 410? ¿El valor buscado es mayor que 530? ¡Bendiciones!
  33. 2 points
    Hola Para próximos temas, describe el titulo según el problema real, por ejemplo: "Error al guardar libro en el escritorio" Ya pasando al tema, yo lo haría así Sub CopiarHoja() '************ by Gerson Pineda ************ With Application .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False Escritorio = CreateObject("wscript.shell").specialfolders("desktop") & "\" ActiveSheet.Copy ActiveWorkbook.SaveAs Escritorio & Range("B3"), xlOpenXMLWorkbook ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveWorkbook.Close savechanges:=1 MsgBox "Archivo guardado correctamente en el escritorio", 64, "OK" .EnableEvents = True .DisplayAlerts = True .ScreenUpdating = False End With End Sub Saludos
  34. 2 points
    ¡Hola, @carolcr94! Inicialmente te digo que, cuando tengas preguntas diferentes a la inicial, debes abrir un nuevo tema con tu pregunta. Por esta vez... se puede hacer una excepción. Ahora bien, Revisa el adjunto, donde dejo dos hojas por cada pregunta nueva que hiciste: En la hoja Igual, he realizado algunas cosas que te pueden servir: --> Número: El número al que le quieres contar las rachas (en el ejemplo, el 0). --> En: La longitud mínima del bloque (en el ejemplo, 10 < no debes ponerle el apóstrofo ( ' ), lo apliqué por formato >). --> Cantidad: Calcula la cantidad de bloques que cumplen con lo especificado. --> Rachas: Calcula las longitudes de cada bloque que cumple con las especificaciones arriba expuestas. En la hoja Entre, un poco más de lo mismo: --> Nro. Min: El número mínimo del rango a analizar para las rachas. (En el ejemplo, el 0) --> Nro Max: El número máximo del rango a analizar para las rachas. (En el ejemplo, el 5) --> En: La longitud mínima del bloque (en el ejemplo, 20 < tampoco debes ponerle el apóstrofo >). --> Cantidad: Calcula la cantidad de bloques que cumplen con lo especificado. --> Rachas: Calcula las longitudes de cada bloque que cumple con las especificaciones arriba expuestas. Para que las fórmulas no quedaran muy largas, y de paso, evitar que queden de introducción matricial, he creado un nombre formulado para cada hoja: Freq y Freq2, el cual contiene la fórmula corazón de la solución propuesta. Adicional a esto, he convertido el listado de números en una tabla, por si necesitas modificar los valores, no tengas que cambiar los rangos, pues una propiedad de las tablas es que los rangos son autoajustables. Analiza con detenimiento la propuesta, y me dices si te sirve para lo que pretendes. ¡Espero haberte ayudado, Dios te bendiga! excel de prueba.xlsx
  35. 2 points
    Gerson Pineda

    Cambiar formula por macro

    Que bien!!! me alegra que te haya funcionado, por lo demás de que no puedas adaptarlo, que tu libro original no tiene esto o lo otro, que no se deben usar ciertas columnas, que modificas las formulas que te elabore, que solo era para muestra lo que subiste etc, etc... pero esto ya te toca a ti estimado Lo siento Eugenio, hasta aquí llego, porque te lo hice funcionar, de acuerdo a tus varios requerimientos Saludos y suerte!
  36. 2 points
    ¡Hola, @carolcr94! y ¡[email protected] al foro! Si el rango de valores lo tienes en A1:AQ1, puedes usar la siguiente fórmula matricial (Debes presionar Ctrl + Shift + Enter y no solo Enter para introducir la fórmula): =SUMA(N(FRECUENCIA(SI(A1:AQ1=0;COLUMNA(A1:AQ1));SI(A1:AQ1<>0;COLUMNA(A1:AQ1)))>=10)) Nota: Mi separador de argumentos es ";". Si no es el tuyo, reemplázalo por la "," o por el que maneje tu sistema. ¡Bendiciones!
  37. 2 points
    Gerson Pineda

    Necesito duplicar algo asi...

    AyudaExcel no elabora proyectos, ni medios proyectos, ni pequeños proyectos Es solo para orientar/ayudar a dudas especificas que no signifiquen demasiado esfuerzo ni tiempo, ahora, desde luego que cada colaborador va por su cuenta si desea hacerlo! Saludos
  38. 2 points
    Gerson Pineda

    Cambiar formula por macro

    Hola a todos! @eugeniocol he leído casi todo, ¿en resumen necesitas que todas las formulas/cálculos de HOJA2 se realicen mediante macro? Si tu respuesta es "si", creo que son varias preguntas para un solo tema, esto sin agregar, que el colaborador se debe saber el sentido de cada formula y es básicamente adueñarse de tu libro, si estoy equivocado, entonces dinos cual es tu duda especifica, de lo contrario, espera, que algún colaborador pueda darte la solución completa de todas las formulas Saludos!
  39. 2 points
    También te recomendamos leer las normas de uso como ademas las directrices @Silvia que testamento el tuyo Saludos
  40. 2 points
    Silvia

    Cambiar formula por macro

    hola Eugenio/Yimy (y Mauricio) No es que haya entendido lo que precisas..., solo e sugiero cambiar tu formula en L21 hacia abajo, para que se vaya entendiendo mejor =SI(ESERROR(COINCIDIR(M21,$R$20:$R$26,)),"","Si") mi separador de argumentos es la coma, si el tuyo es otro, corriges.
  41. 2 points
    GabrielRaigosa

    (SUMAR + DESREF + CONTARA) NO FUNCIONA

    Adicional a eso, hay referencias circulares en la segunda hoja, valores que estan en la "Base Datos" y que consultan celdas de la primera hoja. Adjunto una propuesta/idea para mejorar el archivos. Tablas Excel.xlsx
  42. 2 points
    Mauricio_ODN

    Cambiar formula por macro

    Leer esto realmente me da sentimiento. (posiblemente seas el único en el planeta en esa condición) Lamento si toque una fibra sensible, a veces la verdad incomoda u ofende, me disculpo por ello. Pero por más que le busco a tu archivo, no logro entenderlo, y al parecer no soy el único que no lo entiende. Pero te reitero nadie en el foro tiene la obligación de ayudarte.
  43. 2 points
    Silvia

    colocar estado segun criterio de hoja 02

    hola pajuma Tus datos así como están no se pueden trabajar porque son textos. Para poder comparar primero tendrías que cambiar los textos de las fechas por números de fecha y hora. Te dejo un ejemplo, a partir de ahí te puedes guiar. Luego puedes copiar y pegar a valores las columnas que he creado, así mismo puedes eliminar las originales tuyas. Si esto solucionó tu consulta, favor Cierra el tema. (no hay necesidad que te explique como se cierra), y si no, esperamos tus comentarios. saludos, Silvia COLOCAR ESTADO 1.xlsx
  44. 2 points
    Héctor Miguel

    Índice y Coincidir

    hola, a todos ! puedes convertir una matriz constante del tipo {0\1\2\3\...\250} a una formula dinámica usando la función FILA(... +/- de esta forma: FILA($1:$251)-1 o... si llegas a insertar filas a partir de la 1... => FILA(INDIRECTO("1:"&C5))-1 y en [C5] dejas el valor 251 (o el que requieras y donde lo necesites) saludos, hector.
  45. 2 points
    Gerson Pineda

    Como lo hago?

    Tu maestro les ha dado clases para comparar matrices o rangos en Excel? Saludos
  46. 2 points
  47. 2 points
    bigpetroman

    Codificación de Documentos

    Saludos @cottavi, revisa el anexo, creo que te puede servir 2010-Codificacion de nuevos documentos-Rev1.xlsm
  48. 2 points
    Haplox

    extraer codgo alfanumerico que varia

    Sorry @digitalboy , Disculpas... a veces las prisas me delatan
  49. 2 points
    Haplox

    extraer codgo alfanumerico que varia

    Sí, vale, Microsoft es muy malo, pero ¿Te ha servido?
  50. 2 points
    Antoni

    If Not IsEmpty

    En mi respuesta está la instrucción que sustituye a la que tu tienes y la función. No entiendo cual es el problema, quizás con la respuesta de Haplox lo veas mejor, pero hay que ponerle un poco de ganas y releer las respuestas varias veces e intentar entender lo que te dicen. Por cierto, si hubieras subido un archivo, tal como dicen las normas del foro, seguramente, no tendríamos estos problemas de interpretación.
×