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
309
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
- 887227
- 353373
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021816- 21892
Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27891Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32853Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk47762Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60719Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt29686Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26642