Miten tehdä makro, joka kopioi riveiltä halutut tiedot alekkain?

Makro

Miten tehdä makro, joka kopioi nimiluettelosta (välilehdeltä taulukko1) halutut tiedot uuteen (taulukko2) välilehteen.
[url]http://aijaa.com/Q7N9tc[/url]

Välilehdellä (taulukko2) makron tulisi järjestellä rivin nimi, osoite sekä postinumerotiedot alekkain, kuten kuvassa.

[url]http://aijaa.com/eRm2SK[/url]

Tein makron neljästä ensimmäisestä osoitetiedosta (kopioimalla yksitellen jokaisen solun toidelle välilehdelle), ja makro toimii vain neljään ensimmäiseen osoitetietoon. Miten siis saisi jatkettua, että makro toistaisi kaikki haluamani tai tietyn määrän?

1

177

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Pakkohan tähän on jotain vastata, kun on nähty noin paljon vaivaa, että on selkeät kuvat kysymyksessä.

      Yleisesti
      Hyvä tietolähde Basic-ohjelmointiin OpenOfficessa on Andrew Pitonyak:
      http://www.pitonyak.org/oo.php
      Erityisesti tämä tiedosto:
      http://www.pitonyak.org/AndrewMacro.pdf

      Mitä itse ongelmaan tulee, niin siinä on useita monimutkaisuutta lisääviä tekijöitä, kuten eri taulukkolehden käyttö ja lopullisen asettelun kaksipalstaisuus.

      Testimielessä kokeilin makronauhoittaa kahden rivin (kolmen solun verran) kopiointia kerrallaan taulukosta1 taulukko2-lehdelle, jossa Liitä määräten -toiminossa valittiin Transponoi. Tämä ratkaiseen kaksipalstaisuuden kohtalaisesti, jos tarve on valita vain kolmelta ensimmäiseltä sarakkeelta.

      Esimerkiksi kohdistuskoodi:
      rem ----------------------------------------------------------------------
      dim args9(0) as new com.sun.star.beans.PropertyValue
      args9(0).Name = "ToPoint"
      args9(0).Value = "$C$9"

      Tuossa tarvitaan molemmissa taulukoissa erikseen jollain silmukkalaskurilla (?) muutettavaksi, jotenkin näin:


      args9(0).Value = "$C$" & STR(kohta2)
      kohta2 = kohta2 5

      Tässä siis oletetaan, että viiden rivin välein tulee uudet tiedot taulukko2:lle. long muuttuja kohta2 alustetaan aloitusriviksi.

      Ei sillä, että nauhoitettu koodi olisi kaunista, mutta API-koodia pitäisi jostain vähän luntata jne.
      Jospa tuosta sait ideaa?

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

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      33
      7084
    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      38
      6514
    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      29
      3564
    4. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      45
      3110
    5. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2764
    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      16
      2522
    7. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2198
    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2086
    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      48
      1967
    10. Koko ajan olet

      Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
      Ikävä
      34
      1820
    Aihe