[Resolvido]caixa de texto somente numero

Ola, como posso fazer om que uma caixa de texto aceite somente numeros ou somente letras ?

Grato

Olá!

1. PARA ACEITAR SOMENTE NÚMEROS: No evento 'Ao Pressionar Tecla' da tua caixa de texto digite:

Código:

Private Sub TuaCaixaDeTexto_KeyPress(KeyAscii As Integer)

'TECLAS LIBERADAS:
' TODOS OS NÚMEROS ;
' BACKSPACE;
' TAB;
' ENTER;
' ESC;
' ESPAÇO;
' DELETE.


Select Case KeyAscii

Case 48 To 57, 8, 9, 11, 13, 27, 32, 127
KeyAscii = KeyAscii
Case Else
MsgBox "SOMENTE NÚMERO É PERMITIDO NESTE CAMPO!", vbCritical, "ERRO"
KeyAscii = 0
End Select

End Sub

2. PARA ACEITAR SOMENTE LETRAS (SEM ACENTO): No evento 'Ao Pressionar Tecla' da tua caixa de texto digite:

Código:

Private Sub TuaCaixaDeTexto_KeyPress(KeyAscii As Integer)

' TECLAS LIBERADAS:
' TODAS AS LETRAS MAIÚSCULAS, SEM ACENTO;
' TODAS AS LETRAS MINÚSCULAS, SEM ACENTO;
' BACKSPACE;
' TAB;
' ENTER;
' ESC;
' ESPAÇO;
' DELETE.

Select Case KeyAscii

Case 65 To 90, 97 To 122, 8, 9, 11, 13, 27, 32, 127
KeyAscii = KeyAscii
Case Else
MsgBox "SOMENTE LETRA, SEM ACENTO, É PERMITIDA NESTE CAMPO!", vbCritical, "ERRO"
KeyAscii = 0

End Select

Muito Obrigado, funcionou certinho.

Andre

Disponha!