Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Forçar preechimento...
 
Notifications
Clear all

Forçar preechimento e apenas numeros

 
2024 - VBA & Macros
Post Recente por efs2016 8 anos atrás
4 Posts
2 Usuários
0 Reactions
1,107 Visualizações
RSS
 efs2016
(@efs2016)
Posts: 38
Eminent Member
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?? :D

 
Postado : 23/02/2017 9:42 am
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Ao invés de
If Me.txtNota = "" Then...

vc pode usar

If Not IsNumeric(txtNota.Value) Then...

 
Postado : 23/02/2017 10:02 am
 efs2016
(@efs2016)
Posts: 38
Eminent Member
Topic starter
 

Já tentei assim, mas não funcionou também...

 
Postado : 23/02/2017 3:58 pm
 efs2016
(@efs2016)
Posts: 38
Eminent Member
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
Forum Jump:
  Tópico Anterior
Próximo Tópico