geri al makro

[işsiz123]

arkadaşlar merhabalar
ben buton yardımıyla geri al yapmak istiyorum
örnek olarak:

sayfa1 de
aranan kelimeler      yerine yerleştirilecek kelimeler
 a1= 1                       b1=mehmet
 a2= 2                       b2=ali
 a3= 3                       b3=can

sayfa1 a:a sutununda ki kelimeleri sayfa2 de bulup yerine sayfa1 deki B:B kelimelerini yazıp sonra tekrar eski değerlerini geri dönüp yerine tekrar yazsın 1 yerine mehmet yazıldığı yere tekrar 1 yazılsın

Bulup değiştirme makrosu

Sub DEĞİŞTİR()
Set S1 = Sheets("Sayfa1")'değiştirilecek sayfa
Set S2 = Sheets("Sayfa2")' a sütununda değiştirilecek kelimeler, b sütununda neyle değiştirileceği
For X = 1 To S2.[A65536].End(3).Row
S1.Cells.Replace What:=S2.Cells(X, 1), Replacement:=S2.Cells(X, 2)
Next
Set S1 = Nothing
Set S2 = Nothing
End Sub

eski yazanları geri getirme makrosu olarak ne yazabiliriz

 

[turist]

Sub GERİAL()
Set S1 = Sheets("Sayfa1") 'değiştirilecek sayfa
Set S2 = Sheets("Sayfa2") ' a sütununda değiştirilecek kelimeler, b sütununda neyle değiştirileceği
For X = 1 To S2.[A65536].End(3).Row
S1.Cells.Replace What:=S2.Cells(X, 2), Replacement:=S2.Cells(X, 1)
Next
Set S1 = Nothing
Set S2 = Nothing
End Sub