Macro Substituir #N/D

[Guest --Daniel --]

Srs.,

Estou tentando fazer uma macro para substituir #N/D por vazio.

Mas parece que a macro não reconhece o #N/D e nada acontece!

Tem alguma saída para isso? Não simplesmente não rola.

Segue a macro:

Sub Macro8()

Cells.Select

Selection.Replace What:="#N/D", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Valeu!

[João.Neto]

A macro entende o erro N/D# como um erro realmente, você pode utilizar um loop e verificar se é erro - IsError() - e então substituir, exemplo:

Sub retiraND()

a = 1

Do While Cells(a, 1) <> ""

If IsError(Cells(a, 2)) Then

Cells(a, 2) = ""

End If

a = a + 1

Loop

End Sub

Tabela de Exemplo (cole apartir da célular A1):

a a

a a

a #N/D

a a

a a

a a

a #N/D

a #N/D

a #N/D

a #N/D

a #N/D

[Guest Visitante]

Boa Noite,

Galera, não sei se seria isso mais eu faço uma crítica com Se e ai não mostra se dê algum erro. Veja, um exemplo com procv:

Se(éerro(procv(A2;D2:D20;2;0));"";(procv(A2;D2:D20;2;0)))

Dai se não achar o valor de A2 no intervalo D2:D20 ele deixa em branco, se achar ele mostra o resultado.

espero ter simplificado.

[Guest Klebão]

Através da macro é necessário identificar como erro o #N/A, ou faça a subtituição em duas parte:

Exp:

Selection.Replace What:="#N", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

DEPOIS

Selection.Replace What:="/D", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Abraço,

Klebão