Notifications
Clear all
2024 - VBA & Macros
4
Posts
2
Usuários
0
Reactions
1,158
Visualizações
Topic starter
Galera é o seguinte:
Tenho um Textbox que receberá o numero de notafiscal. Dele não sai se não houver algo preenchido. Teria como colocar junto ao evento Exit alguma coisa para aceitar apenas numeros? Para forçar o preenchimento, o código abaixo deu certo, mas para numero, não estou conseguindo.
Alguém poderia dar uma ajudinha?
'VERIFICANDO SE A NOTA FOI PREENCHIDA
Private Sub txtNota_Exit(ByVal Cancel As MSForms.ReturnBoolean, KeyAscii As Integer)
If varCancel = False Then
If Me.txtNota = "" Then
MsgBox "Por favor, insira o número da Nota para poder continuar", vbCritical, "Numero de Nota Requerido"
Cancel = True
End If
Else
Exit Sub
End If
'somente numero
If Me.txtNota(KeyAscii < 48 Or KeyAscii > 57) And KesAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Alguem poderia dar uma mãozinha?? 
Postado : 23/02/2017 9:42 am
Ao invés de
If Me.txtNota = "" Then...
vc pode usar
If Not IsNumeric(txtNota.Value) Then...
Postado : 23/02/2017 10:02 am
Topic starter
Já tentei assim, mas não funcionou também...
Postado : 23/02/2017 3:58 pm
Topic starter
Consegui com o código abaixo...
Private Sub txtNota_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limitando a quantidade de digito
txtNota.MaxLength = 10
'para permitir que apenas numeros sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Postado : 23/02/2017 4:12 pm