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
638 Visualizações
RSS
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/09/2014 5:53 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/09/2014 8:10 pm
Fernando Fernandes
 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 .

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/09/2014 10:35 am
Fernando Fernandes
 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."

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/09/2014 12:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico