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

192

    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. Kunpa minä tietäisin

      Olisipa minulla tietoa, siitä oletko sinä nainen kiinnostunut minusta, miehestä joka tätäkirjoittaa, vai olenko minä aiv
      Ikävä
      28
      2527
    2. paras asia kaivatussasi?

      ❤️‍🔥
      Ikävä
      114
      2116
    3. Syitä välttelyyn

      En ennen ole kokenut tällaista. Miksi vältellään jos on ihastunut vai onko se aina merkki siitä ettei kiinnosta?
      Ikävä
      97
      1803
    4. Vihaan sua todella paljon.

      Tiedoksi vaan 🙃
      Ikävä
      122
      1799
    5. Yksi päävastuullinen heitti lusikan nurkkaan.

      Toivottavasti omaisuuden hukkaamiskielto tulee välittömästi.
      Ähtäri
      9
      1547
    6. Purrasta tehty huoli-ilmoitus

      Näin lehti kertoo https://www.iltalehti.fi/politiikka/a/0f1cfaf0-d4e4-4a97-9568-c27b3199b016
      Maailman menoa
      138
      1128
    7. Miksi kaivattunne

      ei pystynyt koskaan kertomaan tunteistaan? Teitkö oikean valinnan kun lähdit etääntymään? Kuinka kauan olisi pitänyt odo
      Ikävä
      90
      1085
    8. Pelottaa kohdata hänet

      En tiedä jaksanko tai kykenenkö. Tuntuu jättimäiselle vuorelle kiipeämiseltä. Pitäisikö luovuttaa. Pitäisi. En jaksa nyt
      Ikävä
      89
      1031
    9. Tiedätkö ketään toista jolla on sama kaivattu

      Eli joka ikävöisi samaa henkilöä tällä palstalla? Tai muualla? Tiedätkö miten kaivattu suhtautuu tähän toiseen verrattu
      Ikävä
      20
      1002
    10. Olisin halunnu vaan tutustua

      Ja kevyttä olemista... Mutta ei sitten. Ehkä mies säikähti, että haluan heti kaiken. 😅 Kävisi ihan sellainen kevyt meno
      Ikävä
      35
      987
    Aihe