Máximos colaboradores

Hola! Les dejo un aporte que puede que les interese. Cuantas veces no he querido colocar en mi macro un formulario parametrizable por el usuario si que él pudiera ver dónde se guarda esa información, después de pensar un poco me dí cuenta que no era tan difícil. Este método sólo funcionaría si se guarda el libro como un complemento (xla), tal como el ejemplo que les anexo! La idea es guardar el parámetro en el complemento, en una hoja del mismo! En el ejemplo hay 2 macros que pueden ejecutarlas con Alt+F8 Configurar: Abre el Form para configuración generaRepeticiones: Genera las repeticiones en el libro abierto Lo que hace es generar repeticiones de una palabra de acuerdo a la configuración dada el el formulario. Si alguién se le ocurrió una forma distinta sería bueno ver más opciones Salu2! ConfiguraciondeMacros.zip

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]

Hola jackpvs Como dice German, estamos aqui para ayudarnos (maxime cuando seguimos las reglas del foro), llevo un buen tiempo aqui y juntos hemos resuelto casos dificiles, en los cuales no habia esperanza para ciertos usuarios, y que para mi agrado he participado en muchos de ellos, y claro seguimos aprendiendo cada dia mas Agradecemos tus palabras (escritos) en reconocer la ayuda que te brindamos aqui Saludos

Hola jackpvs, pues muy agradecido por tus palabras y reconocimiento público, pero te aseguro que no es necesario tanto, ya que nosotros (me atrevo a hablar por todos) lo hacemos por placer de ayudar y seguir aprendiendo en cada tema que tocamos, y cuando tenemos la suerte de que con la ayuda prestada dar la solución a un problema, porque no hay que olvidar que por muy pequeño que sea y fácil, cuando ese alguien pide ayuda es porque para él es un problema, nos sentimos inmensamente feliz por ello, y si encima como es tu caso se agradece aun más. Un placer y espero que hasta pronto, saludos, Germán.