Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
Correção automática
 
Notifications
Clear all

Correção automática

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por Rafajunio 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,117 Visualizações
RSS
 Rafajunio
(@rafajunio)
Posts: 17
Active Member
Topic starter
 

E ai amigos boa tarde.

Todos os dias eu tenho que gerar um relatorio, e tenho que abrir ele todos os dias pra corrigir campos especificos por causa da ortografia.
quando faço o Donwload da Planilha no sistemas ele vem com as palavras sem acentuação.
EX: NAO (NÃO) REVISAO (REVISÃO) APROVACAO (APROVAÇÃO)

sabem me dizer se ha algum modo de fazer essa correção automatica? alguma formula ou VBA?

 
Postado : 29/05/2015 8:59 am
Issamu
 Issamu
(@issamu)
Posts: 605
Honorable Member
 

Olá!
Você pode utilizar essa estrutura de fórmula:

Sub Substituir_Conteudo()

    Cells.Replace What:="NAO", Replacement:="NÃO", LookAt:=xlWhole
    Cells.Replace What:="REVISAO", Replacement:="REVISÃO", LookAt:=xlWhole
    Cells.Replace What:="APROVACAO", Replacement:="APROVAÇÃO", LookAt:=xlWhole 'xlWhole para coincidir o conteúdo da célula inteira ou xlPart para parte do conteúdo.
    
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 : 29/05/2015 10:36 am
 Rafajunio
(@rafajunio)
Posts: 17
Active Member
Topic starter
 

Hehehe, sou leigo em VBA (se não me engano isso é uma macro né?) tem como me ajudar?

 
Postado : 01/06/2015 5:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

tem como me ajudar?

De qual ajuda você precisa?
http://blog.planilhasexcel.com/2009/04/ ... excel.html

Att

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

 
Postado : 01/06/2015 6:18 am
 Rafajunio
(@rafajunio)
Posts: 17
Active Member
Topic starter
 

Olá!
Você pode utilizar essa estrutura de fórmula:

Sub Substituir_Conteudo()

    Cells.Replace What:="NAO", Replacement:="NÃO", LookAt:=xlWhole
    Cells.Replace What:="REVISAO", Replacement:="REVISÃO", LookAt:=xlWhole
    Cells.Replace What:="APROVACAO", Replacement:="APROVAÇÃO", LookAt:=xlWhole 'xlWhole para coincidir o conteúdo da célula inteira ou xlPart para parte do conteúdo.
    
End Sub

Não compreendi esse codigo no vba, pois sou leigo :( .. tentei fazer com os tutorias mas sem sucesso .

 
Postado : 02/06/2015 6:06 am
Forum Jump:
  Tópico Anterior
Próximo Tópico