Macro para localizar e substituir

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

7 Posts

2 Usuários

0 Reactions

1,397 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