mjrofra

Hola smartacm, qué buen aporte. Igual se podría usar una hoja como xlveryhidden y guardar allí los valores, en caso de que no se quiera usar un addin. Yo en algunas ocasiones, cuando son pocos datos los que quiero almacenar, he usado nombres ocultos. Por ejemplo: Sub Escribir_Nombre_Oculto() With ThisWorkbook.Names .Add Name:="smartacm_Palabra", _ RefersTo:="Repetir", _ Visible:=False .Add Name:="smartacm_Repeticiones", _ RefersTo:=1000, _ Visible:=False End With End Sub Sub Leer_Nombre_Oculto() Debug.Print [smartacm_Palabra], [smartacm_Palabra] End Sub Sub borrar_Nombre_Oculto() With ThisWorkbook .Names("smartacmPalabra").Delete .Names("smartacmRepeticiones").Delete End With End Sub Sub borrar_Nombres_Ocultos() Dim Nombre As Excel.Name For Each Nombre In ThisWorkbook.Names If Not Nombre.Visible Then Nombre.Delete Next Nombre End Sub[/CODE] Igual, VBA también ofrece la posibilidad de leer y escribir en el registro, no todas las claves, pero te permite crear las que quieras para tu aplicación en específico y así conservar parámetros dados por el usuario, por ejemplo: [CODE]Sub Escribir_Registro() SaveSetting appname:="smartacm", _ section:="Prueba", _ Key:="Palabra", _ setting:="Repetir" End Sub Sub Leer_Registro() Debug.Print GetSetting(appname:="smartacm", _ section:="Prueba", _ Key:="Palabra") End Sub Sub Borrar_Registro() DeleteSetting appname:="smartacm", _ section:="Prueba", _ Key:="Palabra" End Sub[/CODE]

Muchas gracias por compartir tu trabajo digitalboy, al menos para mi resulta muy interesante y útil... espero poder ponerlo en práctica.

muy entretenido Santi, el código se ve interesante, voy a estudiarlo con cuidado . Quizás se podría usar la propiedad enablecancelkey, algo así: Application.EnableCancelKey = xlDisabled[/CODE] Aunque no creo que sea recomendable cancelar esas teclas, quizás sea mejor disparar un error interceptable (error 18), algo así: [CODE]Sub prueba() ' Dispara un error 18 cuando el usario cancela con Ctrl+Break Application.EnableCancelKey = xlErrorHandler On Error GoTo err_Prueba Do Loop err_Prueba: If Err.Number = 18 Then MsgBox "El usario ha detenido el procedimiento." End Sub[/CODE]

Hecho, séptima resultado al buscarlo en Google. Ahí tendrás varias visitas desde Colombia . Pues mis mejores deseos, que sea un proyecto próspero. Por cierto, se ve muy bien la página, felicitaciones.

Yo estoy acá esperando pacientemente. Estoy que estreno mi Arduino .

hola Saile, pues yo no sé si haga falta, que todavía no me entero qué hace la UDF . En todo caso, supongo que Gerson escribió una función sólo por el placer de escribirla. Nada mejor que Excel para experimentar un rato y pasar el tiempo, sin mayores pretensiones. Al final, creo que todo aporte es válido y ensaña algo.

Gerson, me alegra saludarte. Pues la UDF no es mía, en realidad ni sé qué hace mi respuesta iba como respuesta a esto:

Hola, antes que nada saludarlos, que me alegra poder hacerlo. No sé si esté entendiendo algo, que últimamente ando un poco desorientado y no doy con nada, jajaj. En todo caso me parece que en versiones anteriores a XL 2007 para usar la función eomonth (o cualquiera de la Herramienta de Análisis de datos) es necesario tener activado el complemento "Herramientas para análisis - VBA". Por acá hay algo al respecto: https://www.ayudaexcel.com/foro/f10/macro-que-genere-aleatorio-14756/ Como la función es de la herramienta de análisis de datos, no se puede llamar con application.worksheetfunction, sino que habrá que usar algo así: Public Function diasmes2(ByVal fecha As Variant) As Long If IsDate(fecha) Then diasmes2 = VBA.Day([COLOR="blue"]Evaluate("eomonth(" & fecha & ",0)")[/COLOR]) Else diasmes2 = 0 End If End Function[/CODE] Bueno, todo esto sólo para versiones anteriores a XL 2007 y suponiendo que no esté perdido yo, acá hablando disparates.

Muy interesante digitalboy. Por favor, comparte más de tus prácticas y experimentos. Aunque no tengo idea de electrónica, es algo que me llama la atención y me gustan los experimentos. Estaré pendiente de nuevos aportes.

Muy ingenioso Santi, aprovecho para saludarte, que me alegra verte de nuevo por acá aportando. En cuanto a lo de la utilidad, pues como le respondió el científico británico Michael Faraday a la reina Victoria cuando ella le indagó por la utilidad de sus estudios sobre electricidad y magnetismo: ¿Y para qué sirve un niño, madame? Edito: ...y revisando las funciones de Excel, por ahí está DEC.A.BIN (en Excel 2003 y anteriores activando la herramienta análisis de datos), aunque arroja el resultado en una sola celda y no tiene el encanto ni el ingenio de tu fórmula .

Felicitaciones por tu merecido reconocimiento y un honor y un placer poder compartir en el foro contigo maestro Valencia.

Hola Antoni. Gracias por responder y por hacer las pruebas correspondientes. Evidentemente había hecho algo mal al inicio. No estoy trabajando en mi equipo de siempre pues estoy lejos y creo que aparte de tener problemas de conexión, parece que también me confié en tener la configuración de teclado y de región que siempre uso... y no es así. He probado nuevamente tu archivo y funciona como tu indicas. He editado mi primer mensaje con una nota señalando esta respuesta... no vaya a ser que mi error despiste a alguien .

Esto ya ha sido solucionado, fue un error de mi parte, acá está la aclaración: https://www.ayudaexcel.com/foro/f64/c%E1lculo-de-google-page-ranking%E9stamos-13730/index2.html#post69110 Hola, no sé si hice algo mal, pero ingresé lo siguiente: Capital nominal = 25000 Periodo amortización = 24 meses Tipo de interés anual = 42.00 % Presioné el botón "Calcular tabla de amortización" y aunque no soy un experto en el tema, el resultado arrojado seguro que no es correcto, me basta con ver las columna de Capital, que pasa de 25000 a 66311.40 tras el primer pago y me dice que la cuota es 47325,41. . ¿Será que hice algo mal? Ni miré la macro, no sé cómo funcione, pero al menos y sin saber mucho del tema, estoy seguro que ese resultado no pueden ser correcto (a menos que yo haya hecho algo mal, presento disculpas si ha sido así). Ingresé los mismos parámetros en el archivo de Saile y me dio resultados muy distintos, que creo que deben ser los correctos (repito, no soy un experto en el tema, pero a ojo se ve que tiene que ser por ahí). Acá hay otro archivo con fórmulas que yo subí hace ya algún tiempo: https://www.ayudaexcel.com/foro/f6/agregar-celdas-automaticas-matriz-o-cuadro-8758/ y no sobre consultar las plantillas de Microsoft: Buscar resultados de "amortización" - Plantillas - Microsoft Office

Por si sirve de algo, yo no tengo ningún tipo de problemas usando Google Chrome. No he probado con otros navegadores. Libro1.zip

No sólo jugué, sino que además terminé con los ojos rojos de seguir la caja hasta que finalmente : La verdad pensé que iba a ser más fácil, pero me tomó varios intentos, casi no puedo pasar del 7. Gracias Gerson por el juego, está entretenido.