Notifications
Clear all

Corrigir Nomes

1 Posts
2 Usuários
0 Likes
223 Visualizações
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
Topic starter
 

Boa tarde,

Tenho uma Planilha com nomes na Coluna "A" e gostaria de corrigir parte do nome conforme lista na coluna "C".

Na Coluna "A" tenho o nome completo e possivelmente com erro;
Na Coluna "B" tenho partes do nome para comparação com a coluna "A";
Na Coluna "C" tenho nome correto para serem substituídos na Coluna "A";

Att,
Francisco

 
Postado : 20/02/2024 5:06 pm
(@larissachristine)
Posts: 2
New Member
 

Bom dia Carlos, tente usar o código da seguinte forma:

Sub CorrigirNomes()
Dim Palavra1 As String, Palavra2 As String, Celula As Range

Sheets("CADASTRO").Select

For Each Celula In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Palavra1 = Cells(Celula.Row, 2).Value

Palavra2 = Cells(Celula.Row, 3).Value

If Celula Like "*" & Palavra1 & "*" Then
Celula = Replace(Celula, Palavra1, Palavra2)
End If

Next Celula

Sheets("Home").Select

End Sub

 
Postado : 27/02/2024 9:19 am