Como pasar el valor de un textbox a una variable
Sres. T. E.
La siguiente consulta se trata de cómo:
Llevar el Valor de un textbox de un formulario a una variable, luego dicho valor sea mostrado el valor de la variable en un Procedimiento de la misma Hoja con un Msgbox.
Nombre del Formulario: UsfPass
Nombre del TextBox : TexPass
Nombre de la Variable: GdoPass
Nombre del procedimiento en la Hoja5 : Sub CtrolEntSal()
Código en el Formulario:
Public GdoPass As String
Private Sub TexPass_Change()
Application.ScreenUpdating = False
If TexPass = 123 And Len(TexPass) = 3 Then
GdoPass = UsfPass.TexPass.Value ‘Guardo el Valor en la Variable GdoPass
End If
End Sub
Procedimiento en la Hoja5:
Sub CtrolEntSal()
MsgBox GdoPass ‘Trato de Mostrar el Valor de la Variable y Muestra
End Sub
1 Respuesta
No entiendo cómo vas a realizar el llamado al procedimiento, o cuál es el objetivo.
Pero puedes hacerlo de la siguiente manera:
En tu userform:
Private Sub TexPass_Change() Application.ScreenUpdating = False If TexPass = 123 And Len(TexPass) = 3 Then Hoja5.GdoPass = UsfPass.TexPass.Value 'uardo el Valor en la Variable GdoPass Call Hoja5.CtrolEntSal End If End Sub
En la Hoja5:
Public GdoPass Sub CtrolEntSal() MsgBox GdoPass End Sub
La variable global debe ir en el procedimiento de la hoja.
Después de modificar el textbox haces un Call al procedimiento, de esa manera puedes mostrar lo que tienes en el textbox.
[sal u dos. Y no olvides la valoración.
¡Gracias!
Por tu pronta y precisa solución.
por falta de conocimiento me falto ingresar el Nombre de la Hoja:
Hoja5.GdoPass = UsfPass.TexPass.Value
Pero hice la modificación y me funciono correctamente
Saludos
