- Katılım
- 13 Temmuz 2016
- Mesajlar
- 613
- Excel Vers. ve Dili
- Excel 2010 & 2016 Türkçe
Arkadaşlar merhabalar aşağida bul ve değiştir makrosu var benim istediğim değiştirmek istediğimi degistirip masa üstüne kaydedip degistirdigimiz olanları tekrar eski kelimelerin dönsün bu kodlara nasıl bir kod ilave ederim
Kod:
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
Son düzenleme:
