Suomi24 Keskustelussa on viikonlopun aikana ollut poikkeuksellisen paljon bottien automaattiseti luomia kommentteja. Pahoittelemme tästä aiheutunutta harmia. Olemme kiristäneet Keskustelujen suojausasetuksia ja kommentointi on toistaiseksi estetty ulkomailta.

Word ongelma

juhanim

Onko Wordissa (2007) mahdollista lisätä sama merkki (esim. pilkku) automaattisesti joka rivin loppuun.

Tarkoitus siirtää Word muodossa oleva teksti-taulukko (osoitteisto) Exeliin niin, että kukin wordinrivi tulee Exel-taulukkoon omaan soluunsa. Pilkku toimisi jakajana Exeliin siirrettäessä, siis jotta saan rivit erotettua omiksi soluikseen.

nimi1
osoite1
puh1

nimi2
osoite2
puh2

jne

Saa ehdottaa muutakin ratkaisua. Siis nyt naputtelen erikseen pilkun joka rivin loppuun ja siirrän yhdet osoitetiedot samalle riville Wordissa ennen siirtoa Exeliin, mutta kun osoitteistossa on satoja sivuja, joku helpompi keino kiinnostaisi.

10

224

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • .txt ja sarkain

      Niin no, olisit alun alkaen voinut rakentaa sen osoitteiston Yhdistämisen kautta - eli ikään kuin olisit tehnyt osoitetarrat vaikkapa ja luonut sen rekisterin siellä yhdistämistoiminnoissa. Tämän olisi sitten suoraan voinut käyttää Excelissä hyödyksi.

      Huono neuvo tietysti, kun kerran olet jo tehnyt.

      Mutta eikö se nyt onnistu ihan sillä, että sulla olis se osoitteet sisältävä tiedosto .txt-muodossa ja ihan vaan allekkain ne tiedot. Excelissä on ainakin ennen ollut Tiedot - Tuo ulkoiset tiedot ja siellä kun valitset tietolähteeksi .txt-tiedoston niin avautuu valintaikkuna, jossa kysytään ne erottimet (kai se sitten olisi sarkain siinä .txt-tiedostossa, olisko sarkain helpompi merkata kuin pilkku joka rivin jälkeen), ja tämän jälkeen tulee vielä muutama muu valintaikkuna...

      No, todennäköisesti en edes ymmärtänyt mikä sun kysymyksen jippo oli - sori.

      • muuan mies

        Tallenna Wordin tiedosto txt-muodossa ja ruksaa Lisää rivivaihdot. Tämän voit lukea sisään Exceliin. Ja Excelissä Teksti sarakkeisiin ja pilkku erottimena.


      • toimiiko?
        muuan mies kirjoitti:

        Tallenna Wordin tiedosto txt-muodossa ja ruksaa Lisää rivivaihdot. Tämän voit lukea sisään Exceliin. Ja Excelissä Teksti sarakkeisiin ja pilkku erottimena.

        Testasitko sinä tämän toimivuuden?

        Kun tässä ajattelin itse, että kysyjällä on siinä alkuperäisessä word-tiedostossa yksi osoitetietuea alekkain, eli nimi omalla rivillä, katuosoite omalla rivillä, postitoimipaikkatiedot omalla rivillä, ja tämän hän haluaisi saada yhdelle riville ja jokaisen kentän erotettua pilkulla tai sarkaimella - niin toimineeko tuo yhdelle riville vienti antamallasi ohjeella? Ja jos sitä pilkkua ei siellä txt-tiedostossa ole, niin sitä ei ole eikä Excel siis löydä mitään kenttien välistä erotinta.

        En ainakaan itse saanut toimimaan, kun neuvosi testasin. Tosin voi olla, että ymmärrä yhtään mitä on edes tarkoitus saada aikaan siinä word-tiedostossa.
        Vai onko 2007-versio wordista jo niin kehittynyt, että se tekee tyystin toisin kuin esim. 2003.
        Ja kun ei ole alun alkaen lähdetty tekemään .mdb-tiedostoa rekisteristä, niin ei taida sitten auttaa muuta kuin tosiaan muuttaa se word-tiedosto .txt-tiedostoksi jotta Exceliin sen rekisterin ylipäätänsä voi tuoda.


    • joopa joo...

      Siksi toisekseen, jokainen osoitetietueen kenttä pitää erottaa pilkulla. Kun koko osoitetietue yhdellä rivillä, jokaisen kentän väliin pilkku tai sarkaimella erotetaan kentät toisistaan.

      Kai tuohon joku makrotehtailija osaa antaa neuvon, miten monta sivua saat rivitettyä ja pilkutettua uudelleen.

      Excel-palstalla niitä koodaajia riittää.

    • yksinkertainen makro

      Helpottaa ehkä vähän, vaikkei mikään expertin koodi olekaan.

      Eli: Nauhoita yhdestä rivinkorjauksesta makro, mutta mieti tarkkaan mitä teet ennen kuin nauhoitat.
      Esim. Jos sulla on vain ne varsinaiset osoitetiedot eikä mitään tuollaisia riviotsakkeita kuin Nimi1 osoite1 jne. joka rivillä, niin olet siinä yhden osoitetietueen ensimmäisen rivin alussa, tässä alat nauhoittaa makroa, menet sen ensimmäisen rivin loppuun End-näppäimellä (tai jollain rivin loppuun vievällä pikanäppäinyhdistelmällä), Deletellä poistat rivinvaihdon, Sarkaimella siirrät seuraavan osoitetiedon seuraavaan sarkaimeen, End-näppäimellä menet taas rivin loppuun, ja taas siirrät tiedon sarkainkohtaan (tai lisäät sen pilkun) ja toistat niin kauan kunnes sulla on rivi valmis, rivin lopusta poistat vielä rvinvaihot niin, että kun lopetat makron nauhoittamisen olet seuraavan osoitetietuerivin alussa.

      Toki, tätä sinun sitten pitäisi toistaa jokaisella sadalla sivullasi.

      Ei yksinkertaista, ei.

      • suorita

        Eli pitää suorittaa makroa jokaisella sadalla sivullasi, ei toki nauhoittaa - minkä toki jokainen fiksu tajuaa mutta kun aina on niitä irvileukoja.

        :))


      • winks winks

        Erottimesta: Pilkku on parempi kuin sarkain. Sarkaimella pitäisi osata arvioida sarakkeen leveys, nimethän voivat olla pitempiä kuin vakiosarkainkohtien väli.

        Muuten makro toimii testaten hyvin, toimii jopa kohdissa joissa jokin osoitekenttä olisi tyhjä (esim. kadunnimi puuttuu). Mutta kuka sitä jaksaa napsutella jotain makronappia satoja sivuja - hoh hoijaa..


    • kopioi/liitä tiedot Exceliin esim. nyt soluun A1 ( jolloin tiedot on allekkain A-sarakkeessa)
      suorita allaoleva makro Excelissä ja homma klaarattua muutamassa sekunnissa...

      moduuliin...
      oletuksena viestin malli


      Option Explicit

      Sub Järjestä()
      Dim vika As Long
      Dim i As Long
      vika = Range("A65536").End(xlUp).Row 1
      Range("A1").Select
      For i = 4 To vika Step 4
      ActiveCell.Offset(0, 1) = ActiveCell.Offset(1, 0)
      ActiveCell.Offset(0, 2) = ActiveCell.Offset(2, 0)
      ActiveCell.Offset(1, 0) = ""
      ActiveCell.Offset(2, 0) = ""
      ActiveCell.Offset(4, 0).Select
      Next
      Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      End Sub

      Keep EXCELing
      @Kunde

    • Siis miten?

      Tällä kertaa en käsitä vastauksia ollenkaan.

      Tee näin helposti

      Excelissä ensin laita taulukon solujen tietotyypiksi teksti
      Sitten Wordissä ihan tavallinen kopiointi ja Excelissä ihan tavallinen liittäminen.

      Saat Wordin tiedot Exceliiin niin että jokainen Wordin rivi on Excelissä oma solunsa, ja nolla- alkuiset tiedot näkyvät oikein.

      Tämän jälkeen vielä etunimi ja sukunimi erikseen esim. toimintolla teksti sarakkkeisiin, jolloin saat jaettua etunimen ja sukunimen eri sarakkeisiin, kun laitat erottimeksi väli

    • Siis miten

      Sorry unohdin:
      Wordistä Exceliin liittämisvaiheesa valitse liittämisasetuksista "säilytä kohteen muotoilu"
      Tälläi ne alkunollat näkyy kun laitoit Excelissä ensin tekstityyypin

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

    Luetuimmat keskustelut

    1. Voitasko leikkiä jotain tunnisteleikkiä?

      Tietäisi ketä täällä käy kaipaamassa.. kerro jotain mikä liittyy sinuun ja häneen eikä muut tiedä. Vastaan itsekin kohta
      Ikävä
      91
      2374
    2. Millä voin

      Hyvittää kaiken?
      Ikävä
      55
      2085
    3. Jotain puuttuu

      Kun en sinua näe. Et ehkä arvaisi, mutta olen arka kuin alaston koivu lehtiä vailla, talven jäljiltä, kun ajattelen sinu
      Ikävä
      95
      1923
    4. Tietysti jokainen ansaitsee

      Hän varmasti ansaitsee vain parasta ja sopivinta tietenkin, suon sen onnen hänelle enemmän kuin mielelläni. Aika on nyt
      Ikävä
      23
      1858
    5. 50+ naiset kyl

      Lemottaa sillille mut myös niitte kaka lemottaa pahlle ku kävin naiste veskis nuuhiin
      Ikävä
      11
      1672
    6. Haluan sut

      Haluatko sinä vielä mut?
      Ikävä
      77
      1592
    7. hieman diabetes...

      Kävin eilen kaverin kanssa keskusapteekissa kun on muutama kuukausi sitten tullut suomesta ja oli diabetes insuliinit lo
      Pattaya
      27
      1456
    8. Hei A, osaatko

      sanoa, miksi olet ihan yhtäkkiä ilmestynyt kaveriehdotuksiini Facebookissa? Mitähän kaikkea Facebook tietää mitä minä en
      Ikävä
      41
      1430
    9. Välitän sinusta mies

      Kaikki mitä yritin kertoa tänään ei mennyt ihan putkeen..Joka jäi jälkeenpäin ajateltuna suoraan sanottuna harmittaa aiv
      Työpaikkaromanssit
      6
      1412
    10. Haluaisin aidosti jo luovuttaa ja unohtaa

      Ei tästä mitään tule koskaan.
      Ikävä
      73
      1390
    Aihe