(12/03/2020, 15:26)accessman yazdı:

Sub BulDegistir1()



Set pDict = CreateObject("Scripting.Dictionary")

pDict.Add "ÅŸ", "ş"

pDict.Add "ı", "ı"

pDict.Add "Ç", "Ç"

pDict.Add "Ä°", "İ"

pDict.Add "Ş", "Ş"

pDict.Add "ü", "ü"

pDict.Add "Ö", "Ö"

pDict.Add "Ãœ", "Ü"

pDict.Add "Ğ", "Ğ"

pDict.Add "ÄŸ", "ğ"

pDict.Add "ö", "ö"

pDict.Add "ç", "ç"

'Buraya istenildiği kadar ekleme yapılabilir.



For Each p In pDict

    Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

        Next

End Sub

Bence bu yöntem formüllü hücrelerde işe yaramaz.