Új hozzászólás Aktív témák

  • bteebi

    veterán

    Sziasztok!

    Makróval szeretnék text file-ból adatot Excelbe átvinni. A probléma az, hogy a text file-ban a számok tizedesponttal vannak, míg az Excelben tizedesvessző van. Ez még nem gond, lecseréltetem az összes pontot vesszőre, ekkor viszont a számokat szövegként tárolja. Azt a megoldást találtam rá, hogy irányított beillesztéssel, a "Műveletek" résznél az "Összeadás"-t bepipálva átkonvertálja számokká a szövegként tárolt számokat. Manuálisan működik, de makróval nem. Felvettem makrórögzítővel, de sehogy se működik. Kijelöli a szöveget, vágólapra teszi, de a beillesztést már nem csinálja meg. A D2-től jobbra/lefele lévő (egybefüggő) tartományt szeretném átkonvertálni.

    A kódrészlet:

    Range("D2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
    False, Transpose:=False

    Hol lehet a hiba? Előre is köszönöm a javaslatokat! :R

Új hozzászólás Aktív témák