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
313
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
Mieleni harhailee sinussa
Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei205353- 501391
- 11817
- 47789
Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?
Me olimme rannalla erään kiven päällä❤️58788- 46772
Mitä teet nainen
Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,52767Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle49756Joko Martinalla uusi aviomies hakusessa
Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom132745Onko oikein? Kaikki naiset "jäivät rannalle" Maajussille morsian -pääsarjasta - He ovat mukana!
JES, Maajussille morsian starttaa ja tiedossa on tuttuun tyyliin kaksi eri ohjelmaa: Maajussille morsian ja Maajussille8734