miten tämä toteutetaan

pakko saada

pitäisi vaihtaa koordinaattien paikkaa "sarjana"=kaikkiin kerralla.

63.497354,28.304383,St1 Rautavaara Savontie 1 73900 Rautavaara

sarakkeessa a on tollainen tieto (eri tiet0 sadoissa kohteissa, st1 asemat)

tälläiseksi:

28.304383, 63.497354, St1 Rautavaara Savontie 1 73900 Rautavaara

ei mahda onnistua mitenkään?

entä makrolla/koodilla?

7

182

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • sama..

      niin kysees csv muotoinen tiedosto....

      • kunde

        muuta tiedoston nimi sopivaksi.

        Sub Macro1()
        Workbooks.OpenText Filename:="E:\st.txt", Origin:=1257 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1)), TrailingMinusNumbers:=True
        Columns("A:A").Insert Shift:=xlToRight
        Columns("C:C").Cut Columns("A:A")
        Columns("C:C").Delete
        Range("A1").Select
        End Sub

        KeepEXCELing
        @Kunde

      • yhmempi.
        kunde kirjoitti:

        muuta tiedoston nimi sopivaksi.

        Sub Macro1()
        Workbooks.OpenText Filename:="E:\st.txt", Origin:=1257 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1)), TrailingMinusNumbers:=True
        Columns("A:A").Insert Shift:=xlToRight
        Columns("C:C").Cut Columns("A:A")
        Columns("C:C").Delete
        Range("A1").Select
        End Sub

        KeepEXCELing
        @Kunde

        mihi kohtaa excelissä tää potaska kirjotettaa. paljo kunde sulla on palkka muuten?

      • kunde
        yhmempi. kirjoitti:

        mihi kohtaa excelissä tää potaska kirjotettaa. paljo kunde sulla on palkka muuten?

        tavalliseen moduuliin VBA editorin puolella...

        palkka on 0€ - en oo töissä enkä eläkkeellä kunhan vaan vetelen lonkkaa tällähetkellä.
        Toki ohjelmointikeikkoja voin ottaa vastaan (kokemustahan mulla taitaa olla piisalle asti...)

    • ....

      teksti sarakkeisiin, erottimeksi pilkku, sitten onnistuu.

    • kunde hoi!

      vielä kun semmonen makro ois että data säilys kokonaisuudessaa a-sarakkeessa pilkkomattomana ja pisteet ja pilut säilyisi oikeissa kohdin...

    • uusyritys

      jotenkin näin pitäisi tehdä kaikille sarjana: leikkasin kaikki ja siirsin sarakkeesta a b:hen, sitten yläriviltä leikkasin 28...ensimmäiseksi rivillä, muuta ei tarvinnut pilkut erottimiksi ja pisteet lukujen välillä.sitten leikkasin ko rivin b sarakkeesta a:han. nyt pitäsi saada nää muutama sata rivii kerralla tehtyä noin.



      Sub vaihda()
      '
      ' vaihda Makro
      '

      '
      ActiveCell.FormulaR1C1 = _
      "63.497354,28.304383,St1 Rautavaara Savontie 1 73900 Rautavaara"
      ActiveCell.Columns("A:A").EntireColumn.Select
      Selection.Cut
      ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
      ActiveSheet.Paste
      ActiveCell.Select
      ActiveCell.FormulaR1C1 = _
      "28.304383, 63.497354, St1 Rautavaara Savontie 1 73900 Rautavaara"
      ActiveCell.Select
      Selection.Cut
      ActiveCell.Offset(0, -1).Range("A1").Select
      ActiveSheet.Paste
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin

      Sai potkut Yleltä. https://yle.fi/a/74-20140000
      Maailman menoa
      560
      9197

    2. 24h Kirppis

      Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?
      Jämsä
      13
      2295

    3. Suomessa eletään liian pitkään

      "Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy
      Maailman menoa
      180
      1450

    4. Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain

      Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja
      Joensuu
      19
      1189

    5. Näyttääkö kaivattusi

      Miten hyvältä ❤️
      Ikävä
      71
      930

    6. Sun ulkonäkö on

      Kyllä viehättävä. Kauniit piirteet. Todella sievät. Ja olemus on ihana. Olet tehnyt vaikutuksen.
      Ikävä
      41
      867

    7. Oletko koskaan

      Tavannut/tuntenut ihmistä, jonka kanssa vuosisadan rakkaustarina olisi ollut mahdollinen, mutta joku este tuli väliin?
      Sinkut
      72
      784

    8. Olen niin haaveillut

      Sinusta. Ollut hullun rakastunut. Ajatellut kaikkea mitä yhdessä voisimme tehdä. Mutta ei ei yhtään mitään. Usko vaan lo
      Ikävä
      57
      782

    9. En voi ottaa

      Jos ikinä aiot ottaa yhteyttä, niin tee se nyt. On aika, kun todella todella tarvitsisin sinua. Naiselle.
      Ikävä
      40
      711

    10. Tuo yksi tampio vielä ilmeisesti kuvittelee

      Että joku itkee peräänsä täällä vinkuen jotain utopistista kadonnutta rakkauttaan kaksoisliekit silmissä leiskuen. Pyhä
      Ikävä
      75
      632
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt