Como usar iferror em vba (com exemplos)

Você pode usar a seguinte sintaxe básica para usar a função IFERROR no VBA para exibir um valor específico em uma célula se um erro for encontrado em uma fórmula do Excel:

 SubIfError ()
    Dim i As Integer
    
    For i = 2 To 11
    Cells(i, 4).Value = WorksheetFunction.IfError(Cells(i, 3).Value, " Formula Error ")
    Next i
End Sub

Este exemplo específico verifica se cada célula nas linhas 2 a 11 da terceira coluna da planilha atual possui um valor de erro.

Se for encontrado um valor de erro, um valor “Erro de Fórmula” será atribuído à célula correspondente na quarta coluna, caso contrário, o valor numérico na terceira coluna será atribuído ao valor correspondente na quarta coluna.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar IFERROR em VBA

Suponha que temos o seguinte conjunto de dados no Excel que mostra a receita total e as unidades vendidas de um produto em diferentes lojas:

A coluna C usa uma fórmula para dividir a receita pelas unidades vendidas para obter a receita por unidade.

Observe, entretanto, que a fórmula produz um valor de #DIV/0! em algumas células onde tentamos dividir por zero.

Digamos que queremos criar uma nova coluna que exiba “Erro de fórmula” para essas células.

Podemos criar a seguinte macro para fazer isso:

 SubIfError ()
    Dim i As Integer
    
    For i = 2 To 11
    Cells(i, 4).Value = WorksheetFunction.IfError(Cells(i, 3).Value, " Formula Error ")
    Next i
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Os valores na coluna D exibem os resultados da fórmula na coluna C ou o valor “Erro de Fórmula” se um valor de erro for exibido.

Sinta-se à vontade para alterar “Erro de fórmula” no método IfError no código para exibir o valor desejado quando um erro for encontrado.

Nota : Você pode encontrar a documentação completa para o método IfError do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como usar IF OR para testar múltiplas condições
VBA: Como usar IF AND para testar múltiplas condições
VBA: Como usar IF NOT para testar se a condição não foi atendida