Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation since 07/03/2019 in all areas

  1. 6 points
    No tenemos la BD Access, no sabemos la tabla y no tenemos el formulario. ¿Asi pretendes que alguien te ayude? ☹️
  2. 5 points
    DiegoPC

    ANSWERED Contar los Vecinos

    Hola @Lázaro, @Janlui y @Silvia @Silvia Yo también lo iba a hacer con rangos con nombre y me ganaste!!! Muy buena solución. Para no quedarme atrás... lo hice de dos formas diferentes. Con megafórmula, sin nombres de rango, tomando como idea fundamental el uso de desref Con una UDF (User Defined Function) que, mediante macros, se crea una función de Excel para ser usada. Desde el punto de vista del usuario es la forma más "limpia". ¿Servira? Dado que Lázaro se autodefine como macrofílico, supongo que será de interés.Contar Vecinos 2.xlsb
  3. 5 points
    Antoni

    ¿Vale la pena seguir en el foro?

    Hola foreros: Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post. Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. Los cinco últimos consultantes acumulan la friolera de 1.470 respuestas en su historial de consultas. Esto va más allá de alguna consulta puntual sobre dudas que puedan surgir en el desarrollo de un proyecto. Propongo a la dirección del foro que de alguna forma se ponga punto final a esta práctica, ¿como?, quizás impidiéndoles nuevas consultas por un tiempo, o cobrándoles por ello, o limitando el número de respuestas de sus consultas, no se, pero algo hay que hacer. Repito, ¿Vale la pena seguir en el foro para esto?. Ahí lo dejo. Saludos
  4. 5 points
    avalencia

    vsto vs JavaScript

    Hola Aunque por mucho tiempo Microsoft intentó impulsar el uso de VSTO, en mi evaluación no lo ha logrado y somo muy pero muy pocos los que conocemos su uso. No tengo duda de que eso se debe a qué necesariamente hay que descargar/tener alguna versión de Visual Studio, lo que no necesariamente quiere o necesita un usuario de Excel por más que sea programador de VBA, ya que basta instalar Office y/o Excel para usar dicho lenguaje. Sobre JavaScript, y "derivados" que se pueden usar en Excel, no creo que vaya en detrimento de VBA, sino más bien que ante la constante necesidad de usar la nube para el trabajo, es una tecnología(s) que hay que conocer y/o usar para hacer cosas que solo con VBA no se pueden. Ojo que algo que algunos olvidan es que hay cosas que JavaScript tampoco puede y VBA sí, así que sin duda no es que uno reemplace al otro. Saludos
  5. 5 points
    John Jairo V

    ANSWERED separar pares

    ¡Saludos @MAURO_1512! ( y a todos los integrantes de este post ). Creo debes tener en cuenta que aquí en el foro estamos para ayudar en cosas puntuales, siempre y cuando se tenga claro qué es lo que se quiere hacer. Ten en cuenta que el foro es gratuito, y cada quien ayuda según su disposición, y en algunas ocasiones, su paciencia, como bien la ha tenido el amigo @bigpetroman. Te recomiendo para una nueva oportunidad de pregunta, y un nuevo tema, ordenes tus ideas y tengas súper claro lo que quieres hacer, para que la ayuda sea precisa y concreta. Es muy incómodo (al menos para mi y lo que he percibido, para la mayoría), hacer algo y luego se cambie, y se den vueltas sin sentido alrededor de un tema que parece no "llega a su fin". Para mi, este tema ya ha sido resuelto (según tus mismos comentarios anteriores) con creces. Espero lo tomes con la mejor actitud posible, y puedas reflexionar al respecto. ¡Bendiciones!
  6. 5 points
    Hola a todos Algo de teoría: - Es más rápido usar fórmulas "nativas" ingresadas directamente en las celdas que usarlas insertándolas a través de VBA - Cuando se dice que es más rápido usar macros (VBA) en lugar de miles de fórmulas, quiere decir realizar los procesos a través de dichas macros, no que se inserten esas mismas fórmulas a través de ellas porque termina siendo más lento que el punto anterior (tal y como le sucede ahora a nuestro amigo) - Las fórmulas, sean insertadas con macros o directamente, siempre son más lentas cuando usan rango "indeterminados" tipo "C2:C". Es un "clásico" error hacer/usar eso. - Es innecesario usar fórmulas en celdas en las cuales ya se tiene un resultado que no va a cambiar. En esos casos lo ideal es copiar y pegar como valores. - Si se desea mejorar la velocidad/rendimiento con macros, usar el método VlookUp de la propiedad WorksheetFunction, no es lo más rápido en realidad. En todo caso es mejor usar FInd. - Si consideran una alternativa el uso de bucles tipo For - Next, o For - Each, tampoco será tan rápido como usar ADO y SQL o Scripting.Dictionary, o mejor aún, Scripting.Dictionary con arrays. Saludos
  7. 5 points
    DiegoPC

    AÑADIR FILAS AUTOMÁTICAMENTE

    Hola! Así como lo planteas... solamente con macros. Yo te diría que luches para no crear usuarios mancos... está bien que no sean profesionales en Excel pero es solo insertar filas, no es algo que requiera un elevado conocimiento ni profesionalismo, creo que no deberías acostumbrarlos a que hasta lo más pequeño se haga automáticamente y hacerlos despertar al menos las habilidades mínimas. Igual contribuyo a tu afán de crear usuarios zombies con una pequeña macro, en la segunda hoja está la configuración según el calibre. CONTROLES.xlsm
  8. 5 points
    Supongo que falta afinar alguna cosilla, pero en conjunto, resulta. Este ha sido mi post Nº 10.000 🙂 AYUDAEXCEL ENVIO DE PEDIDOS POP.xlsm
  9. 5 points
    Lo prometido es deuda: https://abrahamexcel.blogspot.com/2019/06/conectar-excel-con-excel-online-en.html Espero sea útil Abraham Valencia
  10. 4 points
    Cálculo de rutas de montaña
  11. 4 points
    AlexanderS

    Ayuda a como hacerlo

    @Marcos14, lo que pides no es tan sencillo pero es posible, en el adjunto esta el formulario y funciona de la siguiente forma: Para mover los números debes dar click encima de uno de ellos no debes mantener presionado basta con un simple click encima Con el mause te mueves por la imagen de los círculos y cuando estés en la posición que quieras debes presionar de nuevo un click sobre el numero no sobre la imagen En caso de que quieras eliminar uno de los números que moviste debes dar un dobleClick sobre este, con eso volverá a colocarse a la derecha en la lista. Ahora se que este era un ejemplo y para trasladarlo a otro libro debes tomar en cuanta lo siguiente: Tuve que crear un modulo de clase (ClassControl), este contiene el código para que los controles funcionen, debes copiar este modulo competo. También el modulo 1 contiene código para el funcionamiento del formulario. El Formulario debe llamarse (frmbiomicroscopia), si cambias el nombre debes modificar el código del modulo de clase. No importa la cantidad de Etiquetas que crees el código se adapta. Los controles donde van los números deben ser Labels de lo contrario el código no funcionara. Como ves debes tener cuidado si lo vas a trasladar a otro libro ya que el código no esta solo en el formulario. Comentas, saludos. Libro1 (2).xlsm
  12. 4 points
    John Jairo V

    ANSWERED Contar los Vecinos

    ¡Hola a todos! He estado un poco ocupado estos días. Les comento sobre la fórmula que posteé, la cual tiene que ver con la función INDIRECTO. La fórmula completa es ésta: =SUMA(CONTAR.SI(DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; );;;3;3);$H13:$L13))-1 Como es costumbre, arranco de adentro hacia afuera: 1. (FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1 Esta parte, a pesar de ser la primera, es la central de la solución planteada. En primera instancia, la idea es entender que el símbolo %, más que un "formato porcentaje" es un operador en Excel. El colocar el símbolo % es igual que dividir una cantidad por 100. Entonces: 1%% = 1/100/100 = 1/10000 = 0,0001 Al dividir por esta cantidad, es igual que multiplicar por 10000, o 10^4. El numerador de la división es el siguiente: FILA($BN$2:$BR$11)-1; el cual le restamos 1 para obtener una fila menos y ubicarnos en el número con fila anterior al buscado (bien lo pudimos hacer con la función DESREF, al igual que el 1 que se le resta a la función COLUMNA). Esta parte (sin la división) genera lo siguiente: {1;2;3;4;5;6;7;8;9;10} (cantidad de elementos : 10 - filas -) (mi separador de constante matricial vertical es el ";" (en Excel 2007 el separador, normalmente, es el "\") Al dividirlo por 1%% (o lo que es lo mismo, multiplicar por 10^4 o 10000), nos daría: {10000;20000;30000;40000;50000;60000;70000;80000;90000;100000} La parte de COLUMNA($BN$2:$BR$11)-1 da como resultado: {65\66\67\68\69} (Cantidad de elementos : 5 - Columnas -) (mi separador de constante matricial horizontal es el "\" (en Excel 2007 el separador, normalmente es el ";") Entonces, la suma (FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1 genera la siguiente constante matricial mixta: {10065\10066\10067\10068\10069;20065\20066\20067\20068\20069;30065\30066\30067\30068\30069;40065\40066\40067\40068\40069;50065\50066\50067\50068\50069;60065\60066\60067\60068\60069;70065\70066\70067\70068\70069;80065\80066\80067\80068\80069;90065\90066\90067\90068\90069;100065\100066\100067\100068\100069} Esto es, debido que sumamos una constante matricial vertical con una horizontal (cuando esto sucede, cada elemento de la constante matricial vertical se suma con toda la constante matricial horizontal, generando una matriz de 10 filas x 5 columnas = 50 elementos) El objetivo de armar esta matriz rectangular es evitar realizar la comparación que sigue en la explicación (el SI) 2 veces, haciéndola solamente una vez. Esto es ventajoso cuando la matriz tiene más de una condición para su construcción (aunque este no sea el caso). Hay que tener en cuenta que se colocaron dos operadores de porcentaje que, aunque no eran necesarios según la ubicación de la columna (que solo tenía 2 dígitos numéricos), sirve como colchón por si en la fórmula el valor numérico del valor de la columna en cuestión supera estos dos dígitos). 2. SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1) Esta parte, lo que hace es solamente colocar los elementos de la matriz rectangular que coinciden con el valor que se está buscando. Siendo entonces lo que se genera (en la primera celda), lo siguiente: {FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\50069;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO;FALSO\FALSO\FALSO\FALSO\FALSO} Siendo solamente un valor que cumple con la condición (los valores dentro de la matriz de comparación son únicos). Al envolver esta parte con la función MIN, se devolverá como resultado el 50069. 3. TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") Esta parte también es crucial en la construcción: La idea es armar, con la función TEXTO, una cadena que entienda la función INDIRECTO en su notación numérica FILA - COLUMNA (también conocida como estilo F1C1). Entonces, al ser de 5 dígitos (por lo menos, porque puede tener más), los 4 últimos caracteres corresponderán a la columna, y los que sigan, corresponderán a las filas. El resultado de la función TEXTO es el siguiente: "F5C0069" 4. INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; ) La función INDIRECTO, en su primer argumento, se coloca la cadena de texto en su notación FILA - COLUMNA (estilo F1C1). El segundo argumento, puede ser FALSO (o su equivalente numérico por esencia, 0) o VERDADERO (o su equivalente numérico por esencia, 1). El argumento FALSO trabaja con el estilo F1C1 (que es el que necesitamos), y el argumento VERDADERO trabaja con el estilo A1 (que conocemos normalmente en la hoja de cálculo). El resultado corresponderá a la referencia (importante que la función devuelva una referencia, y no solamente un valor) que corresponde a la fila 5 y la columna 69. Tener en cuenta que se ha buscado devolver el valor desplazado una fila a la izquierda y una columna arriba de la encontrada con la condición de la función SI, que serviría como arranque de la referencia que será modificada posteriormente por la función DESREF. 5. DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; );;;3;3) La función DESREF es importante aquí, puesto que es la que permite modificar una referencia en cuanto a su tamaño, el cual buscamos sea un cuadrado de 3 filas x 3 columnas, empezando por el valor que se encuentra en la parte superior izquierda del valor encontrado. Se debe tener en cuenta también que, esta parte, pudo ser también de la siguiente forma: DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;FILA($BN$2:$BR$11)/1%%+COLUMNA($BN$2:$BR$11)));"F0C0000") ; );-1;-1;3;3) Manejando el desplazamiento hacia arriba y hacia la izquierda con la función DESREF directamente. 6. CONTAR.SI(DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; );;;3;3);$H13:$L13) Aquí, con la función CONTAR.SI, se busca contar la cantidad de coincidencias que se encuentran en el recuadro, con respecto a cada uno de los valores que se encuentran en el rango H13:L13 (para la primera línea). Esta parte, nos arrojará una matriz horizontal de 5 elementos (por la cantidad de elementos que tiene el rango H3:L13) como la siguiente: {1\0\0\1\0} Cada 1 corresponde a si se encontró el vecino buscado o no. 7. =SUMA(CONTAR.SI(DESREF(INDIRECTO(TEXTO(MIN(SI($BN$2:$BR$11=H13;(FILA($BN$2:$BR$11)-1)/1%%+COLUMNA($BN$2:$BR$11)-1));"F0C0000") ; );;;3;3);$H13:$L13))-1 Esta parte tiene como objetivo SUMAR los valores que se generaron en la matriz anterior. Hay que tener en cuenta que, por lo menos, siempre se encuentra un elemento, y es, porque dentro del cuadrado 3 x 3 siempre está el valor de la coincidencia de la función SI que sirvió como base para generar el recuadro (el valor está en toda la mitad del cuadrado 3 x 3). Este valor unitario debe ser restado al final, puesto que solamente se trata de encontrar vecinos, no el mismo valor que generó el recuadro. En el ejemplo que se ha estado analizando (la primera celda, BN13), el valor resultante es 1. Espero se haya entendido, con la explicación realizada, el propósito de la construcción de la fórmula en cada una de sus partes. ¡Bendiciones para todos!
  13. 4 points
    Silvia

    ANSWERED Separar local concatenado

    hola manzano Si solo son dos dígitos: =IZQUIERDA(A1,2) Si no se sabe y solo se tiene la coma como parámetro: =IZQUIERDA(A1,HALLAR(",",A1)-1) Mi separador de argumentos es la coma, si el tuyo es otro, corriges saludos, Silvia
  14. 4 points
    John Jairo V

    ANSWERED Contar los Vecinos

    ¡Hola, a todos! ¡Me encantó la forma como @DiegoPC resolvió con macros! Dejo una opción con formulación. ¡Bendiciones para todos! Contar Vecinos.xlsb
  15. 4 points
    Hola DavidBF, te valdría algo como esto ?
  16. 4 points
    Hola Te adjunto una solución, siempre usando referencias 3D Saludos Sumar rangos referencias 3D_GP.zip
  17. 4 points
    Hola @Enid86 El código del Maestro Antoni efectúa lo que necesitas. Suerte! Sub encontrar_letra() With Application .ScreenUpdating = False .DisplayAlerts = False End With ccol = Hoja1.Cells(3, 2).Value ufila01 = 0: ufila01 = Hoja1.Cells(Rows.Count, ccol).End(xlUp).Row ctexto = Hoja1.Cells(4, 2) With Columns(ccol) .Find(ctexto, .End(Down), , xlWhole, , xlPrevious).Select End With MsgBox "La última celda con valor: " & ctexto & " es la celda: " & ActiveCell.Address With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub ae20200503_post43338_encontrar letra.xlsm
  18. 4 points
    Bueno, ya está, no se si es lo que quieres, pero es lo que me ha salido. Abre el adjunto y pulsa sobre la flecha azul. aleatorio (1).xlsm
  19. 4 points
    Suponiendo que actúas sobre la columna A. Pon en la hoja esta macro. Private Sub Worksheet_Change(ByVal Target As Range) Dim Carpeta As String On Error Resume Next If Target.Address Like "$A$*" Then '<----- corregir si es necesaio Carpeta = ThisWorkbook.Path & "\" & Target.Value If Dir(Carpeta, 16) = "" Then MkDir (Carpeta) ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Carpeta End If End If End Sub Y por favor, no dejes de beber,.......🤣🤣🤣
  20. 4 points
    Esta es la aplicación muy fácil de utilizar.
  21. 4 points
    Hola @Enid86, si lo que buscas es saber si la variable "vehiculo" se encuentra dentro de la matriz "listacalidad", puedes utilizar esta linea: If UBound(Filter(listacalidad, Vehiculo)) >= 0 Then Esto buscara dentro de la lista cuantas veces aparece el vehículo, si no aparece devuelve un -1, si aparece devuelve un numero mayor o igual a 0 dependiendo de las veces que se repita dentro de la lista. Saludos a ambos @Sergio, @Enid86
  22. 4 points
    bigpetroman

    ANSWERED formato en textbox

    amigo @pildo asi pudieras hacerlo asi Private Sub ComboBox1_Change() Dim nTiempo As Double On Error Resume Next TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1) nTiempo = CDbl(TextBox1) * 24 TextBox2 = Int(nTiempo) & ":" & Format((nTiempo - Int(nTiempo)) * 60, "00") End Sub
  23. 4 points
    Hola, te faltó crear nombres.... Selecciona todo el rango J3:Q9 Presiona CTRL+SHIFT+F3 Deben estar marcados los check de fila superior y columna izquierda Aceptas y todo estará bien
  24. 4 points
    Juan P esto sucede porque el evento Worksheet_Change que ha utilizado Gerson están dirigido a los cambio que ocurran en la celda E2, si lo que deseas es aplicar en E4 solo debes cambiar la referencia. Private Sub Worksheet_Change(ByVal Target As Range) '************ by Gerson Pineda ************ '************ Feb/2020 ************ On Error Resume Next Application.EnableEvents = False With Target If .Address(0, 0) = "E4" Then .Value = _ VBA.Left(.Value, VBA.InStr(1, .Value, " ", vbTextCompare) - 1) End With Application.EnableEvents = True On Error GoTo 0 End Sub
  25. 4 points
    Antoni

    Validar DNI, CIF y NIE

    ¿Sabes cual es el problema JSDJSD?, que tu le estás dando una solución que no es la que quiere, lo que pasa es que no se ha enterado cual es la solución que tu le aportas, ya que la solución es la que ha aportado ikanni, o sea una función de validación del DNI, no una búsqueda en una columna. Pero como no sube una archivo con el textbox, el botón y explicando que es lo que quiere tal como indican las normas del foro, el tema se está eternizando sin ninguna necesidad.
  26. 4 points
    Antoni

    ANSWERED COMMANDBUTTON

    😂😂😂😂
  27. 4 points
    Jajajaja, mi propia medicina.... Estaba preparando un ejemplo nuevo (el archivo que tiene el control que me da el problema es confidencial), pero en el nuevo archivo funciona bien...
  28. 4 points
    Un poco de humor informatico...
  29. 4 points
    Hola @Ridisc Te propongo utilizar lo siguiente en la lista desplegable =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión Recomendación personal: Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos Bienvenido al Foro Amigo, Saludos! historico de ventas.xlsx
  30. 4 points
    Hola Marcos14. No te puedes imaginar lo que nos cuesta meternos en la cabeza de quien pregunta... Tú puedes tener los conceptos clarísimos, pero los demás usuarios del foro no conocen cómo funcionan tus archivos. Necesitamos tiempo y paciencia para meternos en las cabezas de quienes planteáis dudas.
  31. 4 points
    Al menos danos una pista de lo que necesitas. Aquí solo @Silvia tiene bola de cristal, el resto de los mortales necesitamos algo más de información
  32. 4 points

    Version 1.0.0

    229 downloads

    Es otro calendario mas a base de autoformas. Hay código en los módulos Calendario y Thisworkbook. Doble click en cualquier fecha o en una celda en blanco. No tiene misterio.
  33. 4 points
    hola marroco312 (y Gran Antoni ♥♥♥♥♥) Tengo un amiguito que me ha pedido que te envíe esta fórmula, tal vez también podría serte de utilidad. =2+ENTERO((DIA(A1)-9+DIASEM(A1-DIA(A1)+1))/7) saludos, Silvia
  34. 4 points
    Antoni

    NÚMERO A LETRAS

    Con el tiempo que llevas por aquí ya deberías ser capaz de hacer una modificación tan simple como esta. UDF-Cifras a letras (1).xls
  35. 4 points
    Hola Has cometido varios errores que conllevan a que los archivos sean lentos y/o muy grandes. En tu caso es lo primero y se debe a: - Tienes miles de fórmulas en celdas en donde en realidad NO esperas un resultado inmediato. Esa es una mala costumbre. En realidad lo ideal es aplicar fórmulas solo en donde realmente se están llevando a cabo operaciones y no en celdas vacías en donde "a futuro" se espera escribir algo. Ah, ojo, incluso en aquellas celdas en donde una fórmula ya obtuvo su resultado y dicho resultado no va a cambiar, pues lo ideal es copiar y pegarla como valor. ¿Qué hacer? Elimina esas miles de fórmulas. - Tienes miles de celdas en donde has aplicado diversos formatos a pesar de que están vacías ¿qué hacer? Elimina esas filas y columnas en blanco en las cuales has aplicado formatos. Eso. Abraham Valencia
  36. 3 points
    Yo necesito unos mil dolares de EE.UU. para cubrir mis deudas por la "cuarentena" 🤣
  37. 3 points
    Public Declare PtrSafe Function SetTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long 'LongPtr cambialo por Long Hola a todos, es esta parte cambia LongPtr por Long, a mi me funciona as´s.
  38. 3 points
    Prueba y comenta pROYECTO.xlsm
  39. 3 points
    ¡Hola, a ambos! Otra opción, puede ser: Private Sub TextBox1_Change() With TextBox1 Select Case .Text Case Is < "00:02:00": .ForeColor = rgbGreen Case Is >= "00:05:00": .ForeColor = rgbRed Case Else: .ForeColor = rgbYellow End Select End With End Sub ¡Bendiciones!
  40. 3 points
    Hola a todos! No me quedare fuera de la foto Adjunto 2 alternativas Saludos! Contar Vecinos_GP.zip
  41. 3 points
    Cells(i, "C") = 0 If Not Cells(i, "A") = 0 Then Cells(i, "C") = Cell(i, "B") / Cells(i, "A")
  42. 3 points
    Hola Enid86, como bien dice el Maestro Gerson Pineda, el aporte del Maestro Antoni resuelve perfectamente su solicitud, me la impresión de que no te has dado cuenta de su propuesta, te muestro un ejemplo de su código para que veas que verdaderamente cumple con lo solicitado.
  43. 3 points
    hola Perssefones Adjunto una opción.. Saludos, Silvia Buscar simbolos.xlsx
  44. 3 points
    Antoni

    ANSWERED Restar horas en Texbox

    Llevas casi 800 mensajes y ya deberías saber que debes subir un archivo.
  45. 3 points
    No conozco esa solución para desactivar la cinta del programador, salvo la que ya ha expresado Gerson, o sea, deshabilitandola de forma manual. En cualquier caso, si alguien es capaz de desproteger el proyecto VBA, es que tiene suficientes conocimientos como para desactivar cualquier otra solución. ¿Y para que quieres la cinta del programador si eres capaz de entrar directamente al editor de VBA desprotegiéndolo?
  46. 3 points
    Hola Como referencia copiaré y pegaré una respuesta que di sobre un tema similar: - No olviden que VBA piensa en "gringo", o sea, el separador de decimales es el punto. - No olviden que VAL, a diferencia de lo que muchas veces se cree o dice, sí puede tomar en cuenta los decimales, siempre y cuando el separador usado sea el punto. - Para los que usamos el punto como separador de decimales, verán que cambiando las comas y usando VAL, listo, solucionado. - Para casos específicos en donde se usa la coma como separador de decimales, lo mejor es redondear y/o usar formatos como lo sugeridos Saludos
  47. 3 points
    Hola Wiru, con un simple me dió verguenza decir que a pesar de que funcionaba la solución , era incapaz de integrarla en mi hoja, lo hubiéramos comprendido todos perfectamente y hubieras obtenido ayuda de muchos de los miembros del foro. Ahora que faltes al respeto a un miembro del foro y que pongas en duda su dedicación a ayudar a los demás desinteresadamente es imperdonable, simplemente te estas cerrando muchas puertas. Por supuesto si estas palabras significan lo que yo entiendo al leerlas creo que te has equivocado de lugar, veo conveniente que recapacites y te dirijas a los miembros del foro con respeto y sin menosprecio. Y por cierto creo que muchos miembros de este foro consideramos al Maestro Antoni uno de los Dioses de este mundo de Excel, así como uno de los mayores contribuidores en resolución de dudas, por lo que me resulta muy difícil entender tu respuesta ante su pregunta.
  48. 3 points
    @Leopoldo Blancas, ayer tomaron algunas medidas para mejorar la velocidad. Espero que se haya solucionado.
  49. 3 points
    hola, a todos ! hablando de fechas (en excel y vba) sugiero consultar un artículo al respecto de Stephen Bullen (no muchos lo toman "en serio" así que...) lo recomiendo de manera indirecta desde la página de Ron de Bruin: International Worksheetfunction problems
  50. 3 points
    Antoni

    Next C - Error

    Los genios somos así, jajaja 😋


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy