Codigo textbox para aceptar 4 digitos letra y numeros
Ando en un diseño se textbox que este unicamente me acepte 4 digitos entro los cuales deben ser letras y numeros osea pueden ser 3 letras y 1 numero o 2 numero o 2 letras etc etc el hecho es que me deben aceptar 4 digitos por obligacion y este debe ser entre texto y numero de lo contrario mensaje de error...
Hola.. Me resolveria el problema con los digitos que sean 4... Sabes como ver acepte num y letra?
Pon esto en el evento keypress de tu textbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' Select Case KeyAscii Case 48 To 57 Case 96 To 122 Case Else MsgBox "Letra no permitida" KeyAscii = 0 End Select End Sub
Valora la repuesta para finalizar saludos!
Hola este codigo acepta letras y numeros? Y cuando solo sea letra o solo sea numero no lo permita ? El codigo que requiero debe permitir letras y numero no importa cual predomine pero deben ser 4 entre letra y numero...
Prueba con esto
Private Sub CommandButton1_Click() 'Por Adriel Ortiz ' If (Len(TextBox1) = 0 Or Len(TextBox1) < 4 Or Len(TextBox1) > 4) Then MsgBox "Minimo 4 caracteres" TextBox1 = "" Exit Sub End If largo = Len(TextBox1) ' For i = 1 To largo rev = Mid(TextBox1, i, 1) If Not IsNumeric(rev) Then cont = cont + 1 Else cad = cad + 1 End If Next i If Not (cont > 0 And cad > 0) Then MsgBox "Debe contener numeros y letras" Exit Sub End If End Sub
Valora la repuesta para finalizar saludos!
