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