Textbox y userform
Hola expertos, Necesito ayuda con Visual Basic en Excel en 2 puntos importantes:
El primero es que quiero que los textbox enten restringidos a solo números y que cuando se presenta la digitación de una letra u otro carácter aparezca un mensaje de error y se boore el valor del textbox para ser ingresado nuevamente.
Lo otro que quiero hacer es que quiero que cuando se abra el archivo de excel se ejecute inmediatamente el userform que yo quiera.
El primero es que quiero que los textbox enten restringidos a solo números y que cuando se presenta la digitación de una letra u otro carácter aparezca un mensaje de error y se boore el valor del textbox para ser ingresado nuevamente.
Lo otro que quiero hacer es que quiero que cuando se abra el archivo de excel se ejecute inmediatamente el userform que yo quiera.
1 respuesta
Respuesta de Orlando Collarte
1
Private Sub Workbook_Open()
UserForm1.Show
End Sub
este codigo va en Thisworkbook
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
Dim mensaje As String
mensaje = MsgBox("Valor ingresado NO es Numerico" & Chr(13) & "Puede ingresar nuevamente ?", vbCritical, Title:="Ingresar Monto Cheque")
TextBox1 = Empty
End If
End Sub
Suerte
UserForm1.Show
End Sub
este codigo va en Thisworkbook
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
Dim mensaje As String
mensaje = MsgBox("Valor ingresado NO es Numerico" & Chr(13) & "Puede ingresar nuevamente ?", vbCritical, Title:="Ingresar Monto Cheque")
TextBox1 = Empty
End If
End Sub
Suerte
