Este fórum está sendo desativado

[Ryujin]

Preciso de Ajuda no Seguinte ... Preciso que os seguintes campos apenas aceitem numeros ou letras apenas .

UserForm3 -- TextBox1 ---> Apenas Aceitar Letras
"""""""""" -- TextBox2 ---> Apenas Aceitar Números

UserForm5 -- TextBox1 ---> Apenas Aceitar Numeros

UserForm6 -- TextBox1 ---> Apenas Aceitar Numeros

UserForm8-- TextBox1 ---> Apenas Aceitar Numeros

UserForm9-- Todas as TextBox ---> Apenas Aceitar Numeros

Obrigado desde ja ^^

[babdallas]

Para verificar se é número, use:
If isnumeric(textbox.value) then
Executa as ações
Else
MsgBox "digite um numero"
Textbox.setfocus
End If

No caso de texto use If not isnumeric(textbox)

[Ryujin]

Vou verificar e ja digo algo

[Ryujin]

Utilizar Este Que vou enviar agora (Mais Recente)

[Ryujin]

Código: Selecionar todos

If IsNumeric(TextBox1) = False Then
                Ws1.Range("B" & ultimalinha).Value = UserForm3.TextBox1
                Else
                MsgBox "Atenção , Apenas poderá Inserir Palavras!"
                Exit Sub
                End If
                

Tou a usar este codigo .. Mas não funciona ://

[babdallas]

Veja se atende a sua necessidade.