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