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

259

Äänestä

    Vastaukset 7

    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. Puukotus Kajaanissa

      Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu
      Kajaani
      58
      1422

    2. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      27
      1030

    3. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      80
      911

    4. Mitä söpö

      Mies mietit?
      Ikävä
      64
      778

    5. Nainen, tässä olen kahden vaiheilla

      Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa
      Ikävä
      69
      754

    6. Miten uskallan sua nähdä

      Kun vaikutat suuttuneelta :(
      Ikävä
      47
      722

    7. Hyvä on sitten, jos et sitä s*ksiä halua kanssani.

      Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.
      Ikävä
      131
      685

    8. Minä en ole koskaan

      Rakastanut ketään toista yhtä paljon kuin sinua
      Ikävä
      89
      680

    9. Humalassa autolla ajo.

      Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.
      Suomussalmi
      11
      662

    10. Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."

      Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i
      Kotimaiset julkkisjuorut
      13
      636

    11. Suloinen ja herkkä

      Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.
      Rakkaus ja rakastaminen
      31
      595

    12. Vähän pitää

      Kiusia ja näyttää
      Ikävä
      103
      574

    13. Jäljitelmä Birginit

      Ei jumaleisson, Jeffin vaimo kertoo et nää Hermesit olikin jäljitelmiä ja timangit labrarääsää. Anna mun kaikki kestää �
      Kotimaiset julkkisjuorut
      135
      570

    14. Hurja pako Kuhmossa

      19 vuotias kaahasi humalassa jalkakäytävälle tänään. Kuka mitä häh.
      Kuhmo
      4
      562

    15. Minä muistan

      Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol
      Ikävä
      45
      550

    16. Nyt se syksy on sitten alkanut

      Esimerkiksi tänään sataa aamusta iltaan, ja nytkin.
      Maailman menoa
      35
      529

    17. Hyvää yötä hurmuri

      Iltaa haaveeni! Kauniita unia😘 Jospa me vielä nähtäis ja juteltais, suukoteltais ja halittais, siliteltäis ja hyväiltä
      Ikävä
      24
      503

    18. Mä voisin rakastua noihin tähti silmiin

      Katseesi on niin lumoava nainen💚.
      Ikävä
      18
      492

    19. Taidat olla

      Luovuttanut jo minun suhteeni osalta?
      Ikävä
      36
      475

    20. Jos tullaan toisiamme vastaan, niin

      pitäiskö pysähtyä ja onnitella?
      Ikävä
      37
      471
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt