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

• #17588 bteebi veterán

  Új Válasz 2013-04-04 10:13:12 #17588

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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!

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