[Resolvido]Macro para Substituir Texto

Amigos do MaximoAccess, recorro a sua ajuda...



Preciso de uma Macro que substitua os valores "#N/D" na coluna B:B por " ".

O nome da planilha é Registros...


Desde já grato

Bom dia,

Olha aqui é um fórum para Access.

Se algum moderador ou administrador de manifestar e permitir, eu ou outros membros vão te ajudar com prazer.

Se vocês puderem me ajudar agradeço..... eu tinha reparado que havia access, porém como vi o logo do visual basic achei que também poderiam ser esclarecidas duvidas sobre ele.....


desde já manifestos meus agradecimentos e desculpas

Só vai funcionar se os dados estiverem colados como valor, como isso é oriundo de um fórmula que não localizou um valor, eu acho que é melhor você tratar o erro na fórmula com a função ÉERROS aninhada com a função SE.

Como faço isso?

Assim:

=se(éerros(SuaFunção);"";SuaFunção)

Assim não aparecerá o #N/D que quer dizer Valor não disponível

Em todo caso aí vai o código, tem que associá-lo a um botão.

Sub SbTexto()

Columns("B:B").Select
Selection.Replace What:="#N/D", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Vou deixar como resolvido, pois há meses que o usuário não se manifesta.