Excel Macro

[Antonio C N Santos]

Eu não entendo VBA, mas fiz a macro abaixo, usando o gravador de macros.

Mas preciso que, se o IF for verdadeiro, seja exibida a mensagem Erro e a execução seja encerrada.

Se for OK, segue a exccução do restante da macro, que não está descrita, mas existe.

 

Qual sintaxe na macro para isso?

 

Range("AN2").Select

 ActiveCell.FormulaR1C1 = _

        "=IF(OR(RC[-3]=""---"",RC[-2]=""---""),""Erro"",""ok"")"

[Visitante]

Range("AN2").Select
ActiveCell.FormulaR1C1 = _
"=IF(OR(RC[-3]=""---"",RC[-2]=""---""),""Erro"",""ok"")"

 

If ActiveCell.Value = "Erro" Then
  MsgBox "Erro"
  Exit Sub
End If

 

'aqui continua o seu código

 

End Sub

[Antonio C N Santos]

Range("AN2").Select

ActiveCell.FormulaR1C1 = _

"=IF(OR(RC[-3]=""---"",RC[-2]=""---""),""Erro"",""ok"")"

 

If ActiveCell.Value = "Erro" Then

  MsgBox "Erro"

  Exit Sub

End If

 

'aqui continua o seu código

 

End Sub

Oswaldo funcionou perfeitamente.

 

Mas tenho uma duvida, quando eu troco "---" por um numero, fica ok pois a macro é executada sem eu mandar.

Entendo que assim a macro tá sempre ativa. Isto não pode causar lentidão já que a planilha que estou trabalhando é grande ?

Não tem como desativar a macro, logo que der a mensagem de "Erro" ?

[Visitante]

 

Não tem como desativar a macro, logo que der a mensagem de "Erro" ?

 

Se a fórmula em "AN2" retornar "Erro" o código exibe a Caixa de Mensagem e após você clicar para encerrar a Caixa, o código é encerra a execução.

Faça o teste: deixe ativa a planilha com os dados, force a fórmula a retornar "Erro",  Alt+F11 para acessar o Editor, clique em qualquer lugar do código e vá apertando F8 e acompanhe a execução do código passo-a-passo.