Macro

Taas pihalla

Millasella koodilla onnistuu seuraavanlainen:

Ykkös-sheetillä mulla on tuotenumeroita allekkain A1- A100. Kakkos-sheetillä on dokumentti, jossa on kohta, mihin tuotenumerot yksi kerrallaan lisätään ja sen jälkeen tulostetaan. Miten saan näppärästi macrolla kaikki sata tuotenumerodokumenttia tulostettua? Meneekö tämä jollain loopilla?

1

317

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      moduuliin...

      Sub Tulosta()
      Dim vika As Long
      Dim i As Integer
      vika = Range("Sheet1!A65536").End(xlUp).Row
      Worksheets("Sheet2").Activate
      For i = 1 To vika
      'tähän se solu mihin tietoa haetaan Sheet1:ltä...
      Range("C10") = Range("Sheet1!A" & i)
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
      DoEvents
      Next
      End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Jaaha, sitä on vasemmistoryhmä käynyt häiriköimässä Purran kodin vieressä

      On näköjään iso lakana levitetty puiden väliin, jossa lukee mm. "Haista vi*** Riikka Purra". Tunkekaa leikkaukset pers..
      Maailman menoa
      215
      6520

    2. Päivi Räsänen vs. Abbas Bahmanpour

      (Bahmanpour on imaami Helsingissä) Syyttäjä siis jahtaa edelleen Räsästä tämän H-puheista, joissa hän on ilmeisesti vaa
      Maailman menoa
      102
      4934

    3. Demokratian uhka: Perussuomalaiset ja polarisoiva "me ja muut" -ajattelu

      Laurence Rees varoittaa, kuinka demokratian heikkeneminen ja autoritaaristen liikkeiden nousu voidaan liittää "me ja muu
      Maailman menoa
      114
      4677

    4. "Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana

      Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste
      Maailman menoa
      38
      3179

    5. Palkansaajan oikeus nauttia työuransa hedelmistä

      Työeläkejärjestelmä on verrattavissa pyramidihuijaukseen, jossa alemmat tasot, eli nykyiset palkansaajat, toimivat maksa
      Maailman menoa
      100
      2847

    6. En koskaan tule sinulle tätä kertomaan

      Kun kirjoitin sinulle viimeisintä viestiä, huomasin kyynelten valuvan poskiani pitkin.
      Ikävä
      64
      2283

    7. Saatoin tehdä elämäni isoimman virheen

      Otsikko kertoo kaiken. Miksei kaikki voi olla yksinkertaisempaa?
      Ikävä
      133
      1767

    8. Joroinen räjähdys

      Ja siellä räjähti sähköpakettiauto,joka teki suuret tuhot.
      Hybridi- ja sähköautot
      66
      1749

    9. odotatko vielä viestiä minulta...

      Mies...? En tiedä mitä sanoa 😔 auta vähän naista ja tule enemmän vastaan
      Ikävä
      139
      1684

    10. Kova ikävä parittelukumppania täällä korvessa

      Mutta muuten kyllä on rauhallista.
      Ikävä
      57
      1517
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt