İnternet sayfasından dış veri alır iken harf hatası :S

[maskex]

Arkadaşlar bir info sayfası hazırlıyorum.Devlet meteroloji işlerinden hava durumunu excel e çekiyorum ama türkçe harfler excelde saçma sapan çıkıyor bunun çözümü nedir ?

Düzenlermisiniz lütfen.

 

[serqet]

Aşağıdaki kodla düzenleyebilirsiniz.

Sub duzelt()

    Cells.Replace What:="ı", Replacement:="ı", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Å", Replacement:="ş", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ä°", Replacement:="i", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="ü", Replacement:="ü", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ç", Replacement:="Ç", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ä", Replacement:="Ğ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ö", Replacement:="ö", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ãœ", Replacement:="ü", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="ö", Replacement:="ö", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="ç", Replacement:="Ç", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ÿ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End Sub

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f125/llere-gore-hava-tahmini-t72047.html

http://www.excel.web.tr/f60/coklu-bul-deoi-tir-fynd-replace-t115346.html


.