Jump to content

permitir solo ciertos caracteres en textbox


viejo

Recommended Posts

Buen dia expertos recurro a ustedes con esta consulta que espero no les quite mucho de su valioso tiempo y en espera me puedan ayudar, y es que requiero que un textbox acepte solo caracteres que yo quiera como en este caso requiero el textbox solo acepte letras mayusculas y minusculas, y los caracteres exceptuados son el guion bajo, el espacio y los dos puntos ":" y tengo el siguiente codigo pero no logro adecuarlo

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' osea Esto es para que el Textbox1 solo acepte números
'    If KeyAscii < 48 Or KeyAscii > 57 Then
'        KeyAscii = 0
'    End If

' del 32 al 126 son caracteres imprimibles

  ' Esto es para que el Textbox1 solo acepte letras
' las letras son del 65 al 90 en mayusculas
' las letras son del 97 al 122 en minusculas

  ' osea el 32 es el espacio, el guion bajo es el 95

If Not (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii = 32 Or KeyAscii = 95) Then
KeyAscii = 0
End If


End Sub

pero no se porque no me funciona, si alguien me puede ayudar se lo agradeceria muchisimo

Link to comment
Share on other sites

Y con tu código prueba y comenta

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    If Not (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 _
                        Or KeyAscii = 32 Or KeyAscii = 95 Or KeyAscii = 58) Then
                        KeyAscii = 0
    End If
End Sub

 

Link to comment
Share on other sites

  • 4 weeks later...

A mi me gusta mucho que muestro a continuación porque yo le digo en el evento KeyPress cuales son los que deseo que se digiten y me evito muchos inconvenientes.

    If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0

Luego puedes incluir otros caracteres o símbolos que desees incluir y listo

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
    • Hola,   No me funciona.   Sale este error.   Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm?   Muchas gracias
    • A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy