Skip to main content
removeu 18 caracteres do conteúdo; título editado
Fonte Link
user28595
user28595

VBA- Erro em tempo de execução '13'

Galera boa tarde, estouEstou 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

VBA- Erro em tempo de execução '13'

Galera boa tarde, 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

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

Galera boa tarde, 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?

segue o code

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

 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

Galera boa tarde, 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?

segue o code

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

Galera boa tarde, 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
Fonte Link
John Hebert
  • 147
  • 1
  • 3
  • 12

VBA- Erro em tempo de execução '13'

Galera boa tarde, 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?

segue o code

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