Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para localiza...
 
Notifications
Clear all

Macro para localizar e substituir

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
7 Posts
2 Usuários
0 Reactions
1,402 Visualizações
RSS
 Vejabem
(@vejabem)
Posts: 12
Eminent Member
Topic starter
 

Bom dia!

Pessoal, estou com a seguinte dificuldade: Numa determinada planilha tenho duas colunas: colunas "A" e "B". Preciso que a macro substitua na coluna "B" os itens
correspondentes e que estão presentes na coluna "A". Só que eu preciso que a macro execute essa ação nas colunas inteiras.

Estou usando o código abaixo; mas, não está dando certo:

Sub LocalizarSubstituir()

Sheets("Plan1").Select
ActiveSheet.Cells.Replace What:="AQUI ESTÁ O PROBLEMA!", Replacement:="AQUI ESTÁ O PROBLEMA!", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

End Sub

Desde já, muito obrigado!

 
Postado : 24/01/2018 7:32 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Worksheets("Sheet1").Columns("A").Replace _
 What:="SIN", Replacement:="COS", _
 SearchOrder:=xlByColumns, MatchCase:=True
 
Postado : 24/01/2018 7:39 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Vejo que a sua dificuldade é fazer um laço de repetição.
Estude laço de repetição ou vai ficar eternamente dependente de fórum:

https://www.youtube.com/results?search_query=excel+vba+laco+de+repeticao

 
Postado : 24/01/2018 7:40 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Sub substituir()

'vou dar um exemplo
'talvez você possa adaptar

Dim linha As Long

linha = 2

While Plan1.Cells(linha, 1).Value <> ""

If Plan1.Cells(linha, 1).Value = "fechado" Then

Plan1.Cells(linha, 2).Value = Plan1.Cells(linha, 1).Value

End If

linha = linha + 1

Wend


End Sub
 
Postado : 24/01/2018 7:45 am
 Vejabem
(@vejabem)
Posts: 12
Eminent Member
Topic starter
 

Bom dia, Klarc28!

É isso mesmo que eu preciso!

Só que assim: não seria só para uma palavra (no meu caso, seria um banco de clientes e de produtos); e sim, para várias "palavras" (no meu caso: cadastros) distintas
e presentes na coluna "A"; ou seja: tenho pelo menos uma centena de referências na coluna "A" e que preciso vir substituindo na coluna "B".

 
Postado : 24/01/2018 7:59 am
 Vejabem
(@vejabem)
Posts: 12
Eminent Member
Topic starter
 

Klarc28, já consegui adaptar sua última sugestão...

Valeu! Muito obrigado!

 
Postado : 24/01/2018 8:08 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Fico feliz, parabéns!!!

 
Postado : 24/01/2018 8:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico