Máximos colaboradores

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

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

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

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.

@Silvia, @Gerson Pineda Por algo será ....

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

@Gerson Pineda Parece que te dan la razón.

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

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

Checa el adjunto. Saludos eJfc.xlsx

hola revisa el adjunto. saludos, telas3.xlsx

Hola Utiliza esta formula en el rango para el FC =Y(C5<>"",D5="") Saludos

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!

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

A ver que tal. Cajas 3D.xlsm

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

Hola dmslop y silver_axe007, prueba el adjunto y comenta Prueba 1 Número aleatorio.xlsb

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

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

Prueba ahora. form neto iva totalprueba1.xlsm

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.

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

¡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

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

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

@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

Revise el archivo adjunto. Control-Entregas-2019.xlsx

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

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

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

Y después de 300 mensajes sigues sin adjuntar archivo ¿Tan complicado es?

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.

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.

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

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

¡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

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

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

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!

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.

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

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

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

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

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