Para fazer o que você quer, somente com VBA.
Você pode rodar o código abaixo na planilha desejada:
Sub apagar_ERROS()
Range("D7").Activate
Do Until ActiveCell.Text = ""
If WorksheetFunction.IsError(ActiveCell) Then
ActiveCell.Rows("1:1").EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
End Sub
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 28/04/2015 12:48 pm