Guardar de forman permanente variables

[Benito Bartolomé]

Hola a todos;

-En en video del siguiente enlace os muestro como he conseguido guardar de forma permanente el valor de nuestras variables.

Para ello lo que hago al momento de pulsar el botón es limpiar previamente el módulo e insertar los nuevos datos y por medio de una función los recupero.

Enlace video:

Variables permanentes

MVariablePermanente(Multiples).xlsmFetching info...

[Antoni]

Me parece que te complicas la vida, la forma más habitual de guardar datos es en una hoja oculta, pero también se puede hacer con nombres.

Con hoja oculta sería algo así:

• Columna A-Nombre formulario/Variable
• Columna B-Nombre control
• Columna C-Valor 1
• Columna D-Valor 2
• Columna E-Valor 3
• ......

Te dejo un ejemplo con nombres.

 

Variables fijas.xlsmFetching info...

[Benito Bartolomé]

Hola Antoni, he visto tú propuesta y me ha gustado mucho.

Sabía de los dos métodos y de este segundo lo sabía hacer pero manualmente y no desde un procedimiento.

En cuanto al primero, no me gusta mucho dejar anotaciones en las hojas ya que por error alguien las puede borrar y después ya no funciona la macro.

He revisado tú propuesta la cual está genial y veo que no deja guardar "texto" solo números, ¿se puede reconfigurar para que admita también "texto"?.

Un abrazo Antoni y excelente trabajo.

P.D. Esta vez te pondré un 9, te fallo lo del texto?

 

Ya lo he resuelto y un punto para mi, inclusive probé con un combo.?

[Benito Bartolomé]

' Para guardar texto:
If Not TextBox4 = "" Then ActiveWorkbook.Names.Add Name:="ASIENTO", RefersTo:="=""" & TextBox4 & """", Visible:=False

 

[Antoni]

En cuanto al primero, no me gusta mucho dejar anotaciones en las hojas ya que por error alguien las puede borrar y después ya no funciona la macro.

Si proteges la hoja y la ocultas como VeryHidden no tendrás problemas.

[Benito Bartolomé]

  En 16/8/2023 at 7:49 , Antoni dijo:

En cuanto al primero, no me gusta mucho dejar anotaciones en las hojas ya que por error alguien las puede borrar y después ya no funciona la macro.

Si proteges la hoja y la ocultas como VeryHidden no tendrás problemas.

Expand  

Ya lo sé, pero me gusta más esta segunda opción ?

[Héctor Miguel]

hola, a ambos !

asumo que ya saben que tambien los nombres se pueden ocultar (al crearlos desde vba), p.ej. para el libro activo:

names.add "nombre", "=aqui la formula o referencia", 0 ' (o false) '

[Benito Bartolomé]

  En 15/2/2023 at 13:43 , Benito Bartolomé dijo:

Hola a todos;

En el siguiente enlace os muestro otra forma de cargar datos en un ComboBox.

Cargar ComboBox - video

Saludos a todos.

Expand  

 

  En 17/8/2023 at 3:52 , Héctor Miguel dijo:

hola, a ambos !

asumo que ya saben que tambien los nombres se pueden ocultar (al crearlos desde vba), p.ej. para el libro activo:

names.add "nombre", "=aqui la formula o referencia", 0 ' (o false) '

Expand  

Hola Héctor, pues sí ya lo había visto en un video de Sergio Alejandro donde comenta que la idea era suya, aún así agradezco el detalle. Está bien esta opción para guardar datos que no queramos mostrar.

Como lo decía a Antoni si sabía hacerlo siguiendo dicho video pero no me imaginaba que se pudiese hacer mediante una macro, la verdad que es bastante simple y muy muy útil.

Lo que yo sugería es un pelín mas largo pero a efectos el resultado es el mismo.

Pues ya quedan dos opciones para almacenar los valores de las variables de forma permanente.

Gracias a ambos por vuestros aportes y sabiduría.

Saludos

[Antoni]

Hola a todos:

En el archivo que subí, los Name  ya se crean ocultos (,Visible:=False).

Saludos

 

[Benito Bartolomé]

  En 17/8/2023 at 8:04 , Antoni dijo:

Hola a todos:

En el archivo que subí, los Name  ya se crean ocultos (,Visible:=False).

Saludos

 

Expand  

Sí, ya lo vi en el primer post y me llamó la atención.

Como siempre vas un paso por delante ?.

Bueno "uno" me quedé corto ?

[Benito Bartolomé]

  En 15/8/2023 at 17:25 , Antoni dijo:

Me parece que te complicas la vida, la forma más habitual de guardar datos es en una hoja oculta, pero también se puede hacer con nombres.

Con hoja oculta sería algo así:

• Columna A-Nombre formulario/Variable
• Columna B-Nombre control
• Columna C-Valor 1
• Columna D-Valor 2
• Columna E-Valor 3
• ......

Te dejo un ejemplo con nombres.

 

Variables fijas.xlsm 23.19 kB · 4 descargas

Expand  

Hola @Antoni disculpa que te moleste nuevamente, no tengo la tarde acertada?.

Estoy tratando de implementar tu propuesta usando OptionButtons  para seleccionar el "Genero" si es "masculino" o "femenino" y no soy capaz, ya he probado de varias formas y no hay manera. 

He probado usando "texto" y "número" y no me sale. Incluso e duplicado "Genero" por si acaso.

Seguramente es una tontería pero no lo veo, ni con gafas?

Saludos.

 

Variables fijas.xlsmFetching info...

[Antoni]

Así funciona:

'------------------------------------------------------------------
Private Sub Guardar_Click()
   With ActiveWorkbook.Names
      .Add Name:="ALBARÁN", RefersTo:=TextBox1, Visible:=False
      .Add Name:="PEDIDO", RefersTo:=TextBox2, Visible:=False
      .Add Name:="FACTURA", RefersTo:=TextBox3, Visible:=False
      .Add Name:="ASIENTO", RefersTo:=TextBox4, Visible:=False
      .Add Name:="Genero1", RefersTo:=OptionButton1, Visible:=False
      .Add Name:="Genero2", RefersTo:=OptionButton2, Visible:=False
   End With
   Unload Me
End Sub
'-------------------------------------------------------------------
Private Sub UserForm_Initialize(): On Error Resume Next
    TextBox1 = [ALBARÁN]
    TextBox2 = [PEDIDO]
    TextBox3 = [FACTURA]
    TextBox4 = [ASIENTO]
    OptionButton1.Value = [Genero1]
    OptionButton2.Value = [Genero2]
End Sub

 

[Benito Bartolomé]

  En 22/8/2023 at 16:20 , Antoni dijo:

Así funciona:

'------------------------------------------------------------------
Private Sub Guardar_Click()
   With ActiveWorkbook.Names
      .Add Name:="ALBARÁN", RefersTo:=TextBox1, Visible:=False
      .Add Name:="PEDIDO", RefersTo:=TextBox2, Visible:=False
      .Add Name:="FACTURA", RefersTo:=TextBox3, Visible:=False
      .Add Name:="ASIENTO", RefersTo:=TextBox4, Visible:=False
      .Add Name:="Genero1", RefersTo:=OptionButton1, Visible:=False
      .Add Name:="Genero2", RefersTo:=OptionButton2, Visible:=False
   End With
   Unload Me
End Sub
'-------------------------------------------------------------------
Private Sub UserForm_Initialize(): On Error Resume Next
    TextBox1 = [ALBARÁN]
    TextBox2 = [PEDIDO]
    TextBox3 = [FACTURA]
    TextBox4 = [ASIENTO]
    OptionButton1.Value = [Genero1]
    OptionButton2.Value = [Genero2]
End Sub

 

Expand  

Gracias @Antonilo probaré.

Juraría que ya lo había probado, sin el bloque With claro.

Saludos ?

[Antoni]

  En 22/8/2023 at 16:47 , Benito Bartolomé dijo:

Gracias @Antonilo probaré.

Juraría que ya lo había probado, sin el bloque With claro.

Saludos ?

Expand  

Recuerda lo que dice la Navaja de Ockham, la solución más sencilla, acostumbra a ser la correcta.

[Benito Bartolomé]

  En 15/8/2023 at 17:25 , Antoni dijo:

Me parece que te complicas la vida, la forma más habitual de guardar datos es en una hoja oculta, pero también se puede hacer con nombres.

Con hoja oculta sería algo así:

• Columna A-Nombre formulario/Variable
• Columna B-Nombre control
• Columna C-Valor 1
• Columna D-Valor 2
• Columna E-Valor 3
• ......

Te dejo un ejemplo con nombres.

 

Variables fijas.xlsm 23.19 kB · 21 descargas

Expand  

Hola Antoni, estoy teniendo problemas con esto:

Cuanto intento guardar datos y estos llevan "=" lo interpreta como fórmula y me genera error, tienes alguna idea que me permita introducir cualquier tipo de datos?

Saludos

Variables fijas (1).xlsmFetching info...

[Benito Bartolomé]

Con este procedimiento:

If Not TextBox5.Text = "" Then
    ActiveWorkbook.Names.Add Name:="Html", RefersTo:="'" & TextBox5.Text & "'", Visible:=False
End If

funciona siempre y cuando no nos pasemos de un determinado numero de caracteres.😔

Y así no me sirve.

Si a alguien se le ocurre algo ¿?