Página 1 de 1
Substituir valor da célula ao inserir um valor nela
Enviado: 14 Jul 2017 às 09:38
por wpceid
Boa tarde amigos!
Estou com um problema, eu gostaria de quando uma pessoa escrever, por exemplo, OI numa célula, o valor seja automaticamente trocado por TCHAU.
Eu tenho um banco de dados com as palavras originais e as palavras a serem substituídas.
Obrigada!
Substituir valor da célula ao inserir um valor nela
Enviado: 14 Jul 2017 às 10:15
por FelipeMGarcia
Na mesma célula não dá, mas dá pra fazer em uma célula ao lado, se for na mesma célula, pode ser que consiga via VBA, mas não manjo.
Re: Substituir valor da célula ao inserir um valor nela
Enviado: 14 Jul 2017 às 12:18
por alexandrevba
Boa tarde!!
Felipe e , seri algo assim, casso fosse por meio de VBA.
Código: Selecionar todosSub AleVBA_5003()
'Esse recurso não é automatico, deve se inserir um bottão de commando para rodar a macro
'Para automatizar tente usar o evento --> Worksheet_SelectionChange(ByVal Target As Range), dentro do módulo de planilha
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.Cells.Replace What:="OI", Replacement:="TCHAU", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next ws
End Sub
Att
Re: Substituir valor da célula ao inserir um valor nela
Enviado: 14 Jul 2017 às 13:53
por wpceid
Eu consegui através deste código:
Código: Selecionar todosSub LocalizarSubstituir()
Sheets("Mês").Activate
ActiveSheet.Cells.Replace What:="NOME1", Replacement:="NOME2", LookAt:=xlPart, SearchOrder:=xlByRows
Obrigada a todos que ajudaram!