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

297

Ää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. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      83
      2814

    2. Kerro mistä alkaen

      Se ihastuminen alkoi? Mikä vuosi?
      Ikävä
      65
      1088

    3. Suomea odottaa karu kohtalo

      Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.
      Maailman menoa
      200
      942

    4. Tosiaankin, jos julkaisette täällä henkilötietoja

      Minkäänlaisia, se on poliisiasia. VPN, proxy- tai julkinen yhteys ei salaa mitään. Poliisi pystyy jäljittämään ja saamaa
      Ikävä
      85
      876

    5. Bachelor-Joonas tapasi Monican isän - "Appiukko" antoi koulutusta vävypojalle - Katso kuvat tästä!

      Joonas ja Monica ovat pitäneet yhtä Bachelor Suomi -kuvausten jälkeen. Tämä todistaa, että tosi-tv:ssä voi syntyä rakkau
      Suomalaiset julkkikset
      4
      855

    6. Olet upea nainen

      Upea nainen oot.
      Ikävä
      34
      840

    7. Gallup: Mitä mieltä olet uudesta Putous-kaudesta: hyvä, keskinkertainen, huono?

      Putous on saanut kuraa niskaan mm. kaksimielisistä jutuista. Ohjelma on lasten suosikki ja lapset toistelevat hokemia ti
      Tv-sarjat
      39
      839

    8. Onko yhtään ikävä

      Vai ei?
      Ikävä
      52
      826

    9. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      43
      805

    10. Kaipaatko yhtään

      Tai odotatko näkemistä?
      Ikävä
      41
      788
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt