Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Localizar e substit...
 
Notifications
Clear all

Localizar e substituir

 
2024 - VBA & Macros
4 Posts
4 Usuários
0 Reactions
1,672 Visualizações
RSS
 Romulolima
(@romulolima)
Posts: 11
Active Member
Topic starter
 

Olá

Tenho uma macro que executa vários ajustes em uma planilha, pórem tive que dividir essa macro em duas partes, pois no meio do caminho preciso fazer manualmente um "Localizar e Substituir" para substituir #N/D por 0. Utilizei o código abaixo mas ele não funciona, não aparece nenhuma mensagem de erro, ele simplesmente não substitui nada. Pensei que poderia ser a formatação do #N/D, ou o modo como escrevo o zero, ele deve ser formatado como numero pois entrará em uma soma.

Sub LocalizarSubstituir()
Sheets("Estoque").Select
Cells.Replace What:="#N/D", Replacement:=0, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

Alguem conseguiria me ajudar?

Abraços

 
Postado : 03/06/2015 1:11 pm
 EduPio
(@edupio)
Posts: 9
Active Member
 

Boa tarde.

Se a fórmula deu erro ("#N/D"), porque não acrescenta a fórmula SEERRO na frente e já pede para retornar o valor como 0 (zero)?

=SEERRO(PROCV($H$5;$J$28:$N$43;2;0);0)

Espero ter ajudado!

 
Postado : 03/06/2015 1:36 pm
Issamu
 Issamu
(@issamu)
Posts: 605
Honorable Member
 

O VBA entende a expressão #N/D como um erro realmente e não faz a substituição direta. A sugestão é:

Sub Arrumar_Erros()

On Error GoTo erro
Do Until 1 = 2
  Cells.Find(What:="#N/", LookIn:=xlValues).Activate
  ActiveCell.Value = 0
Loop

erro:
End

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 : 03/06/2015 1:51 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Contribuindo, se o erro é proveniente de formulas, pode-se usar a rotina abaixo, lembrando que a mesma substituirá por 0 todas as celulas com os erros :
#N/D
#VALOR!
#REF!
#DIV/0!
#NÚM!
#NOME?
#NULO!

Sub Replace_Erros()

    Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2015 9:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico