Substituir dados via vba

[diego_janjao]

Boa tarde, estou montando uma planilha e uma das coisas que eu queria colocar e para alterar os dados de uma outra aba via macro, porém eu não estou conseguindo que a planilha entenda que eu quero procurar o valor que está na célula E1 e substituir pelo valor que está na célula E2.

 

Sub Alterar()
'
' Alterar Macro

    Sheets("Índice Embalagens").Select
    Replace What:=[E1], Replacement:=[E2], LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
        False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Alguém poderia me ajudar?

[diego_janjao]

Já achei a solução de uma forma mais simples:

 

    Sheets("Índice Embalagens").Select
    Range("A1:A1000").Replace [E1], [E2]
    Sheets("Lançamento").Select
    Range("C26").Select
        

 

[Basole]

Bom como eu ja tinha feito a sugestao quando voce postou ...

Segue para posteriores consultas: 

Sub Alterar()
'
' Alterar Macro

Sheets("Índice Embalagens").Select
With ActiveSheet
    .Range("E1:E2").Select
    Selection.Replace What:=.Range("E1").Value, Replacement:=.Range("E2").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
        End With
End Sub

 

[diego_janjao]

@Basole , não sou nenhum expert em VBA e estou bem longe disso, rs

mas quando você colocou .Range("E1:E2").Select , isso não está limitando a minha procura e substituição apenas nas células E1 e E2?

[Basole]

 

@diego_janjao sim 

Ei considerei somente o intervalo que voce citou no 1º post. 

 

[Visitante]

Outra opção:

Sub AlterarV2()
  With Sheets("Índice Embalagens")
   .[A1:A1000].Replace .[e1], .[E2], xlPart
  End With
End Sub

 

[diego_janjao]

@Basole ah, então não era isso. Na minha solução coloquei um range qualquer, mas a intenção era procurar na aba toda.

 

@osvaldomp Valeu, Osvaldo! 

[Visitante]

2 minutos atrás, diego_janjao disse:

Na minha solução coloquei um range qualquer, mas a intenção era procurar na aba toda

 

obs. procurar e substituir em toda a planilha (comando abaixo) irá substituir inclusive em 'E1'

.Cells.Replace .[e1], .[E2], xlPart

 

[diego_janjao]

Aproveitando a presença de vocês, @osvaldomp e @Basole , gostaria de tirar uma dúvida:

Depois de rodar essa macro, queria que aparecesse a mensagem:
"Todos os dados serão atualizados, deseja continuar?"
[  ] Sim

[  ] Não

 

O código para msgbox eu até sei usar, mas para dar essa confirmação caso clique em sim, como eu posso fazer isso?

[Visitante]

Não entendi exatamente o que você quer.

Veja se ajuda.

Sub teste()
 If MsgBox("Todos os dados serão atualizados, deseja continuar?", vbYesNo) = vbYes Then
  MsgBox "você clicou sim"
 Else: MsgBox "você clicou não"
 End If
End Sub

 

[diego_janjao]

@osvaldomp era exatamente isso. Obrigado