Programação VBA Excel

[joaoosvaldo]

Boas.

Alguém que tenha mais experiência em programação em VBA no Excel sabe como fazer aparecer uma mensagem de erro sempre que determinadas condições não se verifiquem? Já consegui fazer com que a mensagem apareça mas esta não aparece sempre porque como esta operação está no meio de um programa maior e a execução é linha a linha se fizer tudo linearmente a mensagem aparece sem problemas mas se depois de executar a função voltar a fazer o mesmo erro a mensagem já não aparece! A ideia seria esta mensagem de erro estar em permanente "vigilância" e aparecer quando as condições não se verificarem!

O que tenho para já é o seguinte:

If ((Range("D14") > 0) And (Range("D18") = 1)) Then

MsgBox "aqui escrevo a mensagem de erro", vbCritical

End If

Alguém sabe como fazer? Obrigado.

[admin]

olha encontrei isto espero que ajude

http://www.functionx.com/vbaexcel/Lesson21.htm

http://www.functionx.com/vbaexcel/condi ... esson4.htm

http://www.functionx.com/vbaexcel/condi ... esson2.htm

[admin]

talvez aplicar loop ate aparecer um erro

http://www.excelfunctions.net/VBA-Loops.html


http://www.meubairroaki.com/artigo/Artigo.aspx?id=19

[J_msc]

Boa noite,

Eu quando precisei de algumas dicas sobre VBA fui ao YouTube e descobri este professor, https://m.youtube.com/user/LopesJhonny, e ajudou bastante.

Espero que consiga resolver esse problema.

Cumprimentos
José

[LVirtual]

If ((Range("D14") > 0) And (Range("D18") = 1)) Then

MsgBox "aqui escrevo a mensagem de erro", vbCritical

End If

Se é para executar isso de forma automatica atraves do codigo VBA, tens que ter essa rotina no evento SelectionChange da propria folha que queres verificar.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ((Range("D14") > 0) And (Range("D18") = 1)) Then
MsgBox "aqui escrevo a mensagem de erro", vbCritical
End If
End Sub

ha uma formula no excel que serve para verificar se o resultado de uma operaçao é erro e que retorna aquilo que quisermos em formato texto ou outro.
chama-se IFERROR(value, value_if_error) parta quem usa o vba em ingles ou entao em portugues é SE.ERRO(valor, valor_se_erro)

no campo do valor_se_erro, podes por logo a formula para criar a msgbox ou fazer aparecer qualquer valor numa determinada celula ou ate mesmo manter a celula em branco.

ou entao tambem podes usar a formula SE(valor,valor_se_verdadeiro;valor_se_falso) nesta forma:
"=SE(D14>0;SE(D14*D18=D14;"mensagem de alerta";FALSO);FALSO)"