Saltar al contenido

Máximos colaboradores


Popular Content

Showing content with the highest reputation since 18/02/19 in all areas

  1. 3 points
    El enlace es a una carpeta o archivo sin acceso público, mientas no se dé tal acceso, no funcionará. Por cierto, no da error porque se está usando "On Error Resume Next" (costumbre no muy bueno, por cierto). Abraham Valencia
  2. 3 points
    He detectado un error en el archivo que subí en este tema Ruego reabrir el tema, avisaré cuando se pueda cerrar. Gracias Cajas 3D.xlsm
  3. 3 points
    Hola Cestark No creas que entendí como tienes los datos, desde que mencionas que tienes una hoja por cada tipo de tela ... pues decirte que ya estás en problemas. Cuanto mas complicada tu base de Datos, mas complicada la formula, la manera de hacerlo, sin contar con que este tipo de procedimientos, podrían poner lento tu pc.. Deberías tener todos lo datos en una hoja, y organizados de tal manera que sea fácil encontrar los datos. Seguramente tendrás que repetir los codigos una y otra vez, para completar todos los tipos , anchos, largos.. etc.. Me refiero a mas o menos hacer esto... Tipo Tela - Código - Ancho Precio Black Out Azul 80652917009 40 12981 Black Out Azul 80652917009 60 15200 Black Out Azul 80652917009 80 17200 Black Out Azul 80652917010 40 16000 80652917010 80652917010 60 18000 Black Out Azul 80652917010 80 20000 y así.... en el documento a buscar, colocarías por ejemplo El código y el ancho, con fórmula se llenaría el resto de resultados. Código TipoTela Ancho Precio 80652917010 80652917010 40 16000 para encontrar los resultados en la formula se utilizaría las funciones Indice y Coincidir.. saludos, Silvia
  4. 3 points
  5. 3 points
    Hola sretamalb , si entiendo lo que pretendes tengo que decirte que me he bajado tu archivo y me funciona perfectamente el subir y bajar lineas con el ratón. He probado en excel 2010, luego probaré en excel 2016. También quería decirte que siempre sigas los consejos de los que desinteresadamente pretenden ayudarte. Yo hoy día soy un simple aprendiz pero muy orgulloso de lo aprendido en este gran foro con la contribución de los miembros del mismo, yo empece de cero sin tener ni idea de macros y poco a poco he ido aprendiendo algo de ellas hasta el punto de poder contribuir en la resolución de algunos temas expuestos en el foro, pero eso sí siempre haciendo caso a las indicaciones y consejos de los que me ayudaban en los casos expuestos por mi o por otros usuarios en el foro. Y por mi experiencia en el foro si avalencia te da algún consejo no es para saltárselo a la torera.
  6. 3 points
    GabrielRaigosa

    DNI REPETIDOS

    @Silvia, @Gerson Pineda Por algo será ....
  7. 3 points
    Hola Johana (y Snake) Mira, lo que pasa es que excel considera un largo de numero a buscar, de solo 15 dígitos. esto lo copié de la ayuda de Microsoft. . lo que tu ves como 09:50:00 p. m. en realidad es 0.909722222222222 y por eso excel no lo puede encontrar. el largo máximo de las horas es 17, entonces lo que podemos hacer es redondear y convertir en texto, para que busque el texto. y la formula quedaría así =INDICE(Hoja2!$B$2:$B$541,COINCIDIR(REDONDEAR(A2,17)&"",INDICE(REDONDEAR(Hoja2!$A$2:$A$541,17)&"",),)) mi separador de argumentos es la coma, si el tuyo es otro, corriges. ah.. si deseas que en lugar de error salga NO =SI.ERROR(INDICE(Hoja2!$B$2:$B$541,COINCIDIR(REDONDEAR(A2,17)&"",INDICE(REDONDEAR(Hoja2!$A$2:$A$541,17)&"",),)),"no") saludos, Silvia
  8. 3 points
    GabrielRaigosa

    DNI REPETIDOS

    @Gerson Pineda Parece que te dan la razón.
  9. 2 points
    Antoni

    Macro para Generacion de Codigo

    Dim Factura As String Dim Número As Long Factura = Hoja2.Range("a" & Rows.Count).End(xlUp) Número = Split(Factura, "-")(1) + 1 TextBox8.Text = "FACT-" & Format(Número, "00000")
  10. 2 points
    JSDJSD

    Macro para sumar varias columnas

    Hola, cambia la línea que tienes de color amarillo por la nueva de color verde para que lo comprendas mejor. Uc = Range("Av1").End(xlToLeft).Column Uc = Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column
  11. 2 points
    Snake

    formato condicional

    Checa el adjunto. Saludos eJfc.xlsx
  12. 2 points
    hola revisa el adjunto. saludos, telas3.xlsx
  13. 2 points
    Gerson Pineda

    formato condicional

    Hola Utiliza esta formula en el rango para el FC =Y(C5<>"",D5="") Saludos
  14. 2 points
    Bruno Intentare explicarte como funciona, la parte de Agregar, pero antes de todo, lee la ayuda de esta función AGREGAR(14,6,FILA(SOLP[Estado])-FILA(SOLP[#Encabezados])/(SOLP[Material]=[@MATERIAL]),1) 14 = equivale a kesimomayor 6 = Ignorar errores FILA(SOLP[Estado]) = contador de filas de la tabla FILA(SOLP[#Encabezados]) = obtener la primera fila de la matriz / = dividir (SOLP[Material]=[@MATERIAL]) = comparamos la matriz material con la variable de material 1 = para obtener la mayor fila En acción: FILA(SOLP[Estado])-FILA(SOLP[#Encabezados]) = resto el total filas con la primera fila, el objetivo es re dimensionar la matriz, en tu caso la tabla comienza en la fila 8, entonces al restarle 7 [que es la fila donde esta el encabezado], queda 1, de esta forma la matriz, toma un nuevo rango comenzado desde 1 y no de 8 (SOLP[Material]=[@MATERIAL]) = obtengo las variables booleanas [falso y verdadero] FILA(SOLP[Estado])-FILA(SOLP[#Encabezados])/(SOLP[Material]=[@MATERIAL]) = al dividir el total filas con la matriz de falso/verdadero, obtengo las coincidencias [numero de filas] y las que no son, quedan como errores de valor, que es dividir por cero Entonces 14 y 6 que son los primeros argumentos de agregación y finalmente el 1, después de comparar todo, obtendré el el primer valor mayor de la cadena de números Tal que AGREGAR(14,6,{#¡DIV/0!;...;27;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;#¡DIV/0!;45;...;#¡DIV/0!;#¡DIV/0!;207;#¡DIV/0!;;#¡DIV/0!},1) [los 3 puntos suspensivos, es para recortar el ejemplo, significa que hay mas errores de división] Por lo que 207 es el primer mayor, siendo la fila del ultimo estado Saludos!
  15. 2 points
    Antoni

    Ejecutar macro con Ctrl + letar en celda

    Con el permiso de Abraham. Application.MacroOptions Macro:="Aquíelnombredetumacro", ShortcutKey:= Sheets("PASS").Range("A1")
  16. 2 points
    Antoni

    Crear tabla tridimensional [cajas] en Excel

    A ver que tal. Cajas 3D.xlsm
  17. 2 points
    avalencia

    Abrir link desde Excel VBA

    Hola Uno de los dilemas de Internet Explorer es que no permite interactuar con la aplicación ya abierta a través de "GetObject" por lo que hay que buscar otras formas de hacerlo. Tengo una UDF que sirve para ello, lamentablemente la tengo en un archivo del "baúl de recuerdos" pero no anoté el nombre del autor. Igual la comparto: Function GetIE() As Object 'return an object for the open Internet Explorer window, or create new one For Each GetIE In CreateObject("Shell.Application").Windows() 'Loop to find If (Not GetIE Is Nothing) And GetIE.Name = "Internet Explorer" Then Exit For 'Found! Next GetIE If GetIE Is Nothing Then Set GetIE = CreateObject("InternetExplorer.Application") 'Create GetIE.Visible = True 'Make IE window visible End Function Luego, el código para usar el IE ya abierto y todo en una nueva pestaña, sería el siguiente: Dim ie As Object Set ie = GetIE ie.Navigate "https://www.google.com.pe", CLng(2048) Set ie = Nothing Listo. Abraham Valencia
  18. 2 points
    JSDJSD

    Ramdon con Lista de Excel

    Hola dmslop y silver_axe007, prueba el adjunto y comenta Prueba 1 Número aleatorio.xlsb
  19. 2 points
    Gerson: Por supuesto que se solucionó. Tus aportes y las de @Silvia son siempre geniales. Me cuesta mucho entender algunas soluciones, lo admito. Estimado amigo, una vez más las gracias. @Gerson Pineda y @Silvia larga vida !!! Al tema lo doy por SOLUCIONADO. Rubén
  20. 2 points
    JSDJSD

    Llenar tabla con datos de Formulario.

    Hola a ambos, para que te funcione bién deberías cambiar en el código de silver_axe007 esta línea If ComboBox1.Value = Format(celda.Value, "dd-mm-yyyy") Then por esta otra: If CDate(Cb1) = Format(celda.Value, "dd-mm-yyyy") Then así como también en el combobox2,3,4,5 y 6 deberías sustituir Format(combobox1.Value, "dd-mm-yyyy") por Format(Cb1.Value, "dd-mm-yyyy")
  21. 2 points
    JSDJSD

    formulario Iva

    Prueba ahora. form neto iva totalprueba1.xlsm
  22. 2 points
    Hola Ruthless, suponiendo que tienes el numero de registro en la columna A de A2 hasta A11, Critico de B2 a B11 y Actualizado de C2 a C11, la formula Contar.Si.Conjunto te solucionará el problema si lo utilizas de la siguiente forma: =Contar.Si.Conjunto($C$2:$C$11;"SI";$B$2:$B$11;"SI") cuenta cuantos Actualizados Criticos hay. =Contar.Si.Conjunto($C$2:$C$11;"SI";$B$2:$B$11;"NO") cuenta cuantos Actualizados No Criticos hay. Espero que te ayude.
  23. 2 points
    Hola Antes de cambiar por esas "F", copia los valores originales en algún lugar, bloquea el archivo tal cual lo has hecho, cuando quieras volver a desbloquearlo, solo reemplaza las "F" que colocaste por los valores originales que guardaste en algún lado y listo, archivo recuperado. OJO, los "clásicos" programas para desbloquear proyectos VBA no podrán desbloquearlo ya que en realidad lo que se ha hecho es "ocultar" los módulos para que no sean visibles, no están realmente bloqueados con una clave, por eso la forma de recuperarloes reemplazar los valores por los "originales" no usar un programa de desbloqueo (no funcionaran). Si un tercero hace lo mismo que tú, tampoco es complicado desbloquear, solo se reemplaza por estos valores: 5557BEFEC6BECABECABECABECA 1113FAFFFBFFFBFF CDCF26065EC35FC35F3C En el orden respecto, el primero para CMG, el segundo para DPB y el tercero para GC. ¿Cómo los conseguí? Son valores de un archivo cualquiera que en el encriptado que usa Excel dice: CMG: No está restringido el acceso al proyecto DPB: No tiene clave GC: El proyecto es visible Eso, listo. Abraham Valencia
  24. 2 points
    johnmpl

    Buscando una formula que reste

    ¡Hola, a ambos! Otra más: =SUMA(EXTRAE(SUSTITUIR(C2;"/";REPETIR(" ";20));{1;20};20)*{-1;1}) Además de (usando cuadro de nombres, función EVALUAR:) =EVALUAR(SUSTITUIR(Hoja1!C2;"/";"-")) Ver adjunto. ¡Bendiciones! Control-Entregas-2019.xlsb
  25. 2 points
    Gerson Pineda

    Buscando una formula que reste

    Holas! Se puede recortar la formula de Gabriel, quedando así: =DERECHA(C2,HALLAR("/",C2)-1)-IZQUIERDA(C2,HALLAR("/",C2)-1) Saludos a ambos!
  26. 2 points
    johnmpl

    No funciona DISTINTO en SUMAR.SI.CONJUNTO

    ¡Hola, jik! Revisa la siguiente imagen, donde uso la función SUMAR.SI.CONJUNTO de diferentes formas, y todas me dan el resultado esperado. Revisa la sintaxis de tu fórmula... o en su defecto, sube un archivo Excel donde observes la anomalía que comentas. ¡Bendiciones!
  27. 2 points
    Haplox

    Utilizar formulas en los text box

    @nane Te dejo una solución. No se si te entendí bien, si no creo que te sera fácil modificar el código Libro1.xlsm
  28. 2 points
    GabrielRaigosa

    Buscando una formula que reste

    Revise el archivo adjunto. Control-Entregas-2019.xlsx
  29. 2 points
    avalencia

    Modulos ocultos y transparentes

    Miren el archivo: BorrandoModulos.xlsm El proceso es similar al anterior solo que en lugar de reemplazar por espacios en blanco toda la parte de "Module=Nombremódulo", solo reemplazar "Nombremódulo" por espacios en blanco (respetando el número de caracteres también). Abraham Valencia
  30. 2 points
    hola a los dos.. Gerson Ruben para casos similares utiliza la combinación de Indice y Coincidir. Sin embargo, como ahora hay mas criterios, el no sabía como aplicar Indice con Coincidir y utilizó Sumar. Si.Conjunto, que le entrega el resultado que necesita. Pero se queda con la duda si su formula es apropiada, ya que en realidad no tendría que estar sumando nada, tan solo tiene que traer un resultado, como lo haría con Indice y con Coincidir. Entonces, pregunta si su formula es la que tiene que aplicar o no.. y yo ya le dije que sería cuestión que pruebe con cual le va mejor, y también le dije que a mi me parece que la que el utilizó es la que le dará mejor resultado. Porque ya sería solo cuestión de eficiencia de su PC.. ____________________________________ Ruben Para llegar al resultado esperado mayormente se puede hacer de muchas maneras, cuanto menos funciones utilices es mejor; la mejor o formula mas adecuada, es la que te entregue el resultado de manera eficiente.. En resumen, te toca analizar a ti, o esperar que hayan mas aportes de formulas a tu consulta y seguir evaluando cual te resulta mejor. Digamos que si en toda tu hoja, tienes una pocas formulas, entonces utilizar una formula con funciones volátiles, con funciones anidadas, con mega formulas, o con funciones SuperPoderas (Sumaproducto).. etc.. no le harán ni chis ni mus a tu trabajo.. utiliza la que te apetezca.. He dicho saludos, Silvia
  31. 2 points
    johnmpl

    Formula para división por 0 y 0/0

    ¡Hola, Matías! Puedes probar con: =SI(C5;C6/C5-1;SI(C6;1;"-")) Nota: Mi separador de argumentos es ";". Si no es el tuyo, cámbialo por "," o por el que maneje tu sistema. ¡Bendiciones!
  32. 2 points
    Y después de 300 mensajes sigues sin adjuntar archivo ¿Tan complicado es?
  33. 2 points
    GabrielRaigosa

    REGISTROS POR MESES

    Tal vez podría hacerlo con Power Query. De una tabla se pueden obtener otras, filtrando los criterios que se desean. En Youtube encuentra videos que le explican como funciona esta herramienta.
  34. 2 points
    la lógica de excel es matemática, la lógica del homo sapiens... (puede ser sesgada ?) para excel, 1 va (siempre) antes que 2 (independientemente de cuantos dígitos tenga el texto) agrega una columna con la función =largo(a1) ordena el rango primero por largo > menor a mayor segundo criterio (datos) > A a Z saludos, hector.
  35. 2 points
    yo creo que tu duda está en base a que a lo mejor tu piensas que al utilizar sumar.si.conjunto, podrías enlentar los procesos de cálculo en tu pc? Tendrías que probar con las que te pasé y ver cual es mas efectiva, yo pienso que tu opción es mejor.. porque solo usas una función.. (yo también te pasé una con Sumaproducto, sin embargo, Sumaproducto es una superpotente función, que también podría llega a consumir muchos recursos de tu pc) en resumen, solo te queda probar las diferentes propuestas y quedarte con la que funcione mejor.. saludos Silvia @Gerson Pineda está haciendo acto de silencio...
  36. 2 points
    sale otra opción... =INDICE($E$10:$E$15,COINCIDIR(A2&"-"&B2&C2&D2,INDICE($A$10:$A$15&"-"&$B$10:$B$15&$C$10:$C$15&$D$10:$D$15,),)) mi separador de argumentos la coma, si el tuyo es otro, corriges. ...
  37. 2 points
    Antoni

    Calendario minimalista

    Version 1.0.0

    7 downloads

    Es un calendario al uso, sin misterios. Ya sabeis de mi debilidad por los calendarios, en este caso la gracia está en el código VBA. Os recomiendo que lo reviseis y os dareis cuenta que se puede hacer click en un label sin evento individual y sin módulo de clase. Calendario mínimo.xlsm
  38. 2 points
    johnmpl

    Fórmula árbol de decisión

    ¡Hola, a todos! Para no quedar por fuera... dejo otra opción más (uso archivo de @Gerson Pineda)... ¡Bendiciones! Obtener valor por coincidencia.xlsx
  39. 2 points
    Gerson Pineda

    Fórmula árbol de decisión

    Holas! buen dia Adjunto una opción mas Saludos a ambos Obtener valor por coincidencia_GP.zip
  40. 2 points
    Silvia

    Fórmula árbol de decisión

    Hola Blecho no se si entendí bien... revisa saludos, Silvia appcc1.xlsx
  41. 2 points
    Silvia

    Buscar en otra Pestaña

    nada es fácil en esta vida, será fácil cuando hiciste que se haga fácil, después de haber estudiado, investigado, practicado.... el conocimiento no se adquiere de la nada... https://www.abc.es/tecnologia/redes/20130415/abci-hombre-cobro-millonada-trazar-201304150921.html entonces nada está chupado .. jaja saludos, Isidro!
  42. 2 points
    Silvia

    Comparar celdas con formato de horas

    hola Jeani y (Gerson ) Jeani Cuando uno va a consultar, debe ponerse del lado del que está mirando y no sabe nada de lo que estás haciendo, cuando alguien te trata de ayudar, hay que comentar sobre la ayuda recibida, lo que sale bien, lo que sale mal... , es solo cuestión de interactuar de manera que fluya la ayuda y se resuelva el tema.. para no estar dando vueltas sobre lo mismo.. pero si adjuntas ejemplos y no colocas en que falla la formula.. es como si te negaras a usarlas y uno pierde el gusto en ayudar&"te" ... Mira, el motivo por el que no funciona tu formula, lo puedes leer en mi comentario, aqui https://ayudaexcel.com/foro/topic/41260-buscarv-con-horas-no-funciona-en-todas-las-celdas/ Entonces, ya te darás cuenta, porque Gerson utilizó Redondear en su fórmula... ahora si utilizas la tuya, pues se agrandará bastante.. la de Gerson es 100% mejor y mas eficiente.. y si el tema terminó con los criterios que mencionaste y todo el resto que se salga de eso, es cero, pues envuelve la formula de Gerson con SI.ERROR (FORMULA, 0) Y listo.. saludos, Silvia.
  43. 2 points
    isidrod

    HALLAR BONIFICACIÒN

    a ver si te gusta prueba =SI(Y(B3="Costa",C3>20000),C3*3%,0) https://exceltotal.com/tutorial-excel-2010-funcion-si-con-varias-condiciones/ saludos isidro
  44. 2 points
    En tu HOJA1 tienes 02:00:00 a. m. y en la HOJA2 tienes 1/1/1900 02:00:00 a. m. A partir de A182 de tu HOJA2 están así, con 1/1/1900
  45. 2 points
    Holas! Después de la buena explicación de @Manuel_Mendoza ; paso a decir, que yo prefiero, utilizar la función INDICE, combinada con COINCIDIR La función BUSCARV, es relativamente lenta comparada con INDICE y la ventaja de usar esta, es que no importa en que columna se encuentra lo buscado, a diferencia de BUSCARV que obliga que este a la izquierda Adjunto archivo con la formula Saludos a ambos! INDICE Y COINCIDIR.xlsx
  46. 2 points
    Es lo mismo que el primer ejemplo, solo que en el momento de aplicar la formula le quedó "coja", la la fila 2 hace referencia a "A3" y así sucesivamente. Saludos COMISION.xlsx
  47. 2 points
    Antoni

    Calendario + Hora

    A ver si es eso. Al seleccionar la fecha, se abrirá la posibilidad de informar una hora. Calendario.xlsm .
  48. 2 points

    Version 1.0.1

    66 downloads

    Que tal, les comparto este archivo el cual utilizo para enviar correos de Outlook desde la comodidad de Excel. Esto es de utilidad si como en mi caso necesitas enviar un mismo correo a varias personas pero con diferentes archivos adjuntos. Sin mas espero que el aporte sea de utilidad. Saludos.
  49. 2 points

    Version 1.2.0

    78 downloads

    Qué tal, Después de mucho preguntar en el foro y búsquedas en internet, dejo este buscador de ficheros excel: - El directorio de búsqueda por defecto está en el código y por defecto es "C:\". Si no se necesita otro directorio, se introduce directamente el nombre a buscar - Permite buscar en los subdirectorios del directorio principal seleccionado, si se necesita la búsqueda en otro directorio - Las búsquedas de ficheros se hace mediante comodines, por lo que solo es necesario introducir parte del nombre a buscar - Permite la visualización previa de el área de impresión del archivo seleccionado - Permite imprimir el área de impresión del fichero seleccionado - Permite abrir los ficheros seleccionados para su modificación - Los datos usados se copian en la Hoja1 del fichero subido. El color de la fuente está en blanco para no molestar (cambiar para ver los datos y la fórmula usada para el nombre del fichero Agradecimientos y Créditos: - A la página de Stephen Bullen por la función PastePicture (PastePicture) - La página de EXCELTOTAL por la fórmula para extraer el nombre del último directorio (EXCELTOTAL) - Al usuario Macro Antonio por su buscador de ficheros (Abrir Archivos) - A todos los usuarios que han contestado ayudándome en los post que he ido repartiendo por el foro - A todas las páginas que he visitado y de las que no me acuerdo... Si se ven reflejados en el archivo dense por agradecidos. Bueno, espero que les sirva. Saludos, Haplox


  • Newsletter

    block_newsletter_signup

    Sign Up
×
×
  • 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.