Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Condição no Comando...
 
Notifications
Clear all

Condição no Comando buttom (Salvar)!!!!

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,198 Visualizações
RSS
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Boa Noite amigos!!!!!

Vejam se podem me ajudar...tem um userform simples que qdo todos os campos não são preenchidos, uma caixa de texto exibe uma mensagem. Mas qdo nenhum dos campos recebem dados e o usuario clica em salvar, dá uma mensagem de erro na linha abaixo.

.Cells(93, 2).Value = CDbl(Me.TextBoxDiferencaValor.Value)

Gostaria de colocar alguma trava para qdo o usuario "esquecesse" e clicasse em salvar, houvesse uma mensagem. Mas não tenho idéia de como fazer. Poderiam por favor me ajudar?

Antecipadamente,

Obrigado!!!!

Arquivo Teste_Modelo.zip
 
Postado : 16/02/2015 5:31 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!

Eu não entendi o que quer, reformule sua dúvida!!!!!!!!!!11

Sub Gravar_Distribuicao_FST()

Dim wsPlan As Worksheet
Set wsPlan = Sheets("Plan2")

    With wsPla
        If Me.TextBoxDiferencaValor.Value = "" Then
            MsgBox "Favor preencher o campos!"
            Exit Sub
        Else
            .Cells(93, 2).Value = CDbl(Me.TextBoxDiferencaValor.Value)
        End If
    End With

End Sub

Att

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

 
Postado : 16/02/2015 5:59 pm
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Ok Descuple me expressei mal....Gostaria de qdo clicasse no botão salvar, se o usuário não inserir outros dados, exibisse uma mensagem Atenção preencha os dados....

 
Postado : 16/02/2015 6:04 pm
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Alexandre a sua adaptação deu certo mto obrigado mesmo pela ajuda.

Abraços!!!!

 
Postado : 16/02/2015 6:08 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Testeou meu código, se testou, não consegue adaptar o restante, caso haja?

Att

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

 
Postado : 16/02/2015 6:08 pm
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Boa noite!!

Testeou meu código, se testou, não consegue adaptar o restante, caso haja?

Att

...

....Testei sim e deu tf certo Obrigado pela Ajuda, DEUS Abençoe!!!!

 
Postado : 17/02/2015 6:53 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu fico feliz em ajudar, obrigado pelo retorno!!!

Att

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

 
Postado : 17/02/2015 7:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico