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?
Macro
Taas pihalla
1
286
Vastaukset
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ä.
Luetuimmat keskustelut
- 1581941
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311754Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021527Anna 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 tunnet171223- 711218
- 681181
- 220978
- 70805
- 45740
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723