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, ei215424- 501461
- 12871
- 47819
Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?
Me olimme rannalla erään kiven päällä❤️58808Mitä teet nainen
Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,52807- 46792
Joko Martinalla uusi aviomies hakusessa
Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom134788Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle49786Onko 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 Maajussille9766