Değiştir Butonu Yardım

[mehmetbulut46]

Ekteki çalışmama yardım edebilirmisiniz..Şimdiden Teşekkürler

 

[conari]

biraz uzun bir makro oldu ama işi görür.
inceleyiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

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

 

[mehmetbulut46]

saolun arkadaşlar ellerinize sağlık :hey: