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

224

Ää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. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      122
      5145

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      30
      3678

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2460

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      50
      1578

    5. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      41
      1560

    6. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      24
      1524

    7. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      23
      1411

    8. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      14
      1302

    9. On varmaan turn off

      Mutta olen tosi kokematon.
      Ikävä
      27
      1208

    10. Olen oikeasti aika mukava

      Vaikka itse sanonkin. Tunnemyrsky sekoitti mieltä silloin ja annoin aika kahjon kuvan itsestäni.
      Ikävä
      22
      1127
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt