Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como substituir pal...
 
Notifications
Clear all

Como substituir palavras em uma determinada coluna

 
2024 - VBA & Macros
Post Recente por fcarlosc 9 anos atrás
7 Posts
4 Usuários
0 Reactions
1,373 Visualizações
RSS
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

Olá pessoal,
Gostaria de saber como substituir uma determinada palavra em uma coluna sem que substitua o nome inteiro.

ex. FRANCISCO DA SIVLA para FRANCISCO DA SILVA

A macro que tenho substitui "FRANCISCO DA SIVLA" para "SILVA"

Sub sbx_localizar_palavra_substituir_por_outra()
Dim vResultado As Boolean
Dim vContador As Long
Ultima_Linha = Range("A20").End(xlUp).Row

For i = 1 To Ultima_Linha
Range("A" & i).Select
vResultado = Range("A" & i).Value Like "*SIVLA"

If vResultado Then
Range("A" & i).Value = "SILVA"
vContador = vContador + 1
End If

Next
MsgBox "Foram encontradas [ " & vContador & " ] resultados ", vbInformation, " Planilhando.com.br"
[c1].Select
End Sub

att,

Francisco

 
Postado : 26/02/2016 10:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Movi teu tópico para o local correto, pois a tua dúvida é sobre VBA.

Sempre crie o tópico no fórum que corresponde a tua dúvida, em outras oportunidades já movi tópicos teus, mas agora comece a prestar atenção nisso.

Eu apaguei a segunda mensagem que vc apenas duplicou a mensagem, já não é a primeira vez que você faz isso, não pode, poste a dúvida e aguarde resposta.

[]s

Patropi - Moderador

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

 
Postado : 26/02/2016 10:32 am
 robo8268
(@robo8268)
Posts: 73
Trusted Member
 

Tenta isso

Replace(Range("A" & i).Value,"SIVLA","SILVA")

 
Postado : 26/02/2016 10:47 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Juro que não entendi

Substituir

FRANCISCO DA SIVLA para FRANCISCO DA SILVA

Qual a diferença ?

Pq não usa Ctrl + U?

Explica ae...

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 26/02/2016 10:52 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

A Diferença é que tenho uma coluna com mais de 5.000 nomes e gostaria de usar uma macro com vários tipos de nomes e/ou sobrenomes trocados.
ex.: SIVLA - CSOTA - FRACISCO...e substituir pelos corretos...SILVA - COSTA - FRANCISCO...e por ai vai !

 
Postado : 26/02/2016 10:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

tente esta :

Sub FindReplace()
    Dim i As String
    Dim k As String
    
    i = "SIVLA"
    k = "SILVA"
    
'Coluna A
    Columns("A").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False

End Sub

Acima é uma rotina basica, você poderia criar um formulário com dois campos, um para digitar a palavra a ser substituída e outra pela palavra correta e jogar para as variáveis, apesar que em mais de 5000 nomes, vai ter muito trabalho em olhar uma por uma quais estão erradas.

[]s

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

 
Postado : 26/02/2016 11:13 am
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

Opa...Funcionou "Mauro Coutinho" agradecido...!

E robo868...vlw...!!!

att,
Francisco

 
Postado : 26/02/2016 11:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico