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

225

Ää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. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      141
      3928

    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      357
      3048

    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      14
      1978

    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      10
      1685

    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      4
      1129

    6. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      71
      974

    7. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      42
      889

    8. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      23
      831

    9. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      70
      818

    10. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      794
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt