1

Estou criando uma macro para apagar os valores da celula que contem #N/D, mas ele me da apresenta (Erro em tempo de execução '13')

Quando coloco #N/A o codigo funciona.

Alguem pode me ajudar a solucionar o problema?

 Private Sub CommandButton1_Click()
'percorre da linha 2 até a última preenchida em A
   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    'se em B for #N/D
    If Cells(i, 2) = "#N/D" Then
    'apaga conteúdo de A
    Cells(i, 2).ClearContents
    End If
  'próxima linha
 Next i

End Sub
5
  • Você pode formata o texto de sua pergunta para que possa ficar melhor de entender.
    – user82731
    Commented 14/05/2018 às 17:33
  • @DoutorStephenStrange ficou melhor ? Commented 14/05/2018 às 17:36
  • Ficou muito Show!!!
    – user82731
    Commented 14/05/2018 às 17:39
  • @DoutorStephenStrange o excel nao aceita #N/D como um valor, quando faço a execução do codigo ele me apresenta um erro chamado: " Erro em tempo de execução '13' " Mas se mudo o #N/D para qualquer outro texto exemplo #N/A ele aceita. Commented 14/05/2018 às 17:41
  • Velho é não entendo de vba mais, calma aguem vem te ajudar o, pt.stackoverflow.com tem muitas pessoa que podem fazer isso.
    – user82731
    Commented 14/05/2018 às 17:44

1 Resposta 1

1

Você pode utilizar a função isNA()

Código

'percorre da linha 2 até a última preenchida em A
   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    'se em B for #N/D
    If WorksheetFunction.IsNA(Cells(i, 2)) Then
    'apaga conteúdo de A
    Cells(i, 1).ClearContents
    End If
  'próxima linha
 Next i

Erro

Este erro ocorre porque #N/D não é uma String, mas sim uma variável de erro. Por isso a função isNA() é usada. Porém, #N/D pode ser procurado com funções simples de procura de String, como o .Find

Outro modo

É realizado utilizando a função CVerr()

'percorre da linha 2 até a última preenchida em A
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    'se em B houver erro
    If IsError(Cells(i, 2)) Then
        'Se em B for #N/D
        If Cells(i, 2) = CVErr(xlErrNA) Then
            'apaga conteúdo de A
            Cells(i, 1).ClearContents
        End If
    End If
    'próxima linha
Next i

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .