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

286

Ää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. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      158
      1941

    2. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      131
      1754

    3. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      102
      1527

    4. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      17
      1223

    5. Mikä on hän on ammatiltaan?

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      71
      1218

    6. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      68
      1181

    7. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      220
      978

    8. Oletko tutustunut muihin

      Samalla tavalla kuin häneen?
      Ikävä
      70
      805

    9. Uskotko että kohdataan vielä?

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      45
      740

    10. Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

      Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
      Luterilaisuus
      194
      723
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt