Sub DEĞİŞTİR()
Set SD = Sheets("Değiştir")
Set SG = Sheets("GİRİŞ")
For X = 2 To SD.[A65536].End(3).Row
SG.[C:C].Replace What:=SD.Cells(X, 1), Replacement:=SD.Cells(X, 2), LookAt:=xlWhole
Next
Set SD = Nothing: Set SG = Nothing
MsgBox "Değer değiştirme işlemi tamamlanmıştır.", vbInformation
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.