Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
tratar ERRO
 
Notifications
Clear all

tratar ERRO

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
636 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa noite!!!

Uma duvida como tratar um erro pela entrada de dados de um input box:

Dim Mail As New Message
Dim destinatario As String
Dim remetente As String
Dim titulo As String
Dim senha As String

remetente = Sheets("Planilha Orçamento").Range("a1")
destinatario = Sheets("Planilha Orçamento").Range("f1")

senha = InputBox("Digite sua senha")

titulo = Sheets("Planilha Orçamento").Range("g1")
Dim Config As Configuration: Set Config = Mail.Configuration

Caso senha informada pelo input box seja errada gostaria de lançar um alerta para o usuario, seria possivel fazer esta verificação

 
Postado : 16/09/2014 5:53 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

geroeane,

Supondo que a senha esteja gravada em uma aba chamada Senha e na célula B3, você poderia fazer assim:

volta:
senha = InputBox("Digite sua senha")
If senha <> Sheets ("Senha").Range ("B3").Value Then
     Msgbox "Senha não confere!"
     GoTo volta
End If
 
Postado : 16/09/2014 8:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

wagner o brigado pela atenção, mas a senha e do email que é a mesma da rede como não tenho como pegar a senha da rede uma vez o usuario logado criei este input para o mesmo digitar. So que pode acontecer de o mesmo digitar errado e travar a planilha gostaria de evitar este travamento com um tratamento de error .

 
Postado : 17/09/2014 10:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ok o codigo ficou assim simples :

On Error GoTo Trata_Erro

    Mail.Send
            
    MsgBox "Orçamento Enviado com Sucesso!!!"
                    
Else
   
Exit Sub
    
End If
        
    Call Exibir

    Exit Sub

Trata_Erro:
            MsgBox "Senha fornecida não confere."
 
Postado : 17/09/2014 12:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico