Dar formato condicional a un textbox
Hola Experto:
Deseo me ayudes con lo siguiente. Introduzco datos en un formulario mediante un textbox y para que me ingrese sólo número tengo la siguiente macro:
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And _
TextBox1.Text <> "" Then
Beep
MsgBox "Se debe ingresar solo números"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
El caso es que además quisiera dar un formato condicional, por ejemplo:
Ingreso 93457689 o 129874575
Y me quede 9.345.768-9 o 12.987.457-4
Y para el caso de los textos, que la primera letra sea siempre Mayúscula aunque se escriba con minúsculas.
Cualquier aporte me ayudaría. Gracias amigos
Deseo me ayudes con lo siguiente. Introduzco datos en un formulario mediante un textbox y para que me ingrese sólo número tengo la siguiente macro:
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) And _
TextBox1.Text <> "" Then
Beep
MsgBox "Se debe ingresar solo números"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub
El caso es que además quisiera dar un formato condicional, por ejemplo:
Ingreso 93457689 o 129874575
Y me quede 9.345.768-9 o 12.987.457-4
Y para el caso de los textos, que la primera letra sea siempre Mayúscula aunque se escriba con minúsculas.
Cualquier aporte me ayudaría. Gracias amigos
1 respuesta
Respuesta de macros_excel
1