Skip to main content
3 de 3
removeu 18 caracteres do conteúdo; título editado
user avatar
user avatar

Erro em tempo de execução '13'

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
John Hebert
  • 147
  • 1
  • 3
  • 12