volgnummers printen in serie van 20

[Abyss]

Ik wil graag een range van 1 t/m 100 nummers 20 x printen
Voorbeeld
Nummer 1 x20
En dan
Nummer 2 x20 enz
Dus niet 1,2,3,4,5 enz
Ik kan natuurlijk 20 keer een 1 en 20 keer een 2 enz enz. in de cellen plaatsen maar dan ben ik nog wel even bezig. Kan natuurlijk ook per 20 nummer slepen.
Maar ik neem aan dat er een manier is om dit te kunnen doen

Ik zoek dus een manier om dit versneld te kunnen doen.
Iemand een idee

Groeten
Abyss

 

[arafy]

als je nu in A1 het cijfer 1 zet, je selecteert tot cel A100, en dan bewerken - doorvoeren - reeks. dan selecteer je naar rechts tot je 20 kolomen hebt en dan doe je ctrl-R en je hebt je reeks.

steven

 

[Wigi]

Steven gaf een voorbeeld om ze naast elkaar uit te printen.

Om ze onder elkaar te printen:

Zet 1 tot 100 in cellen A1:A100. Dan in A101:

=A1

voer dit nog 19 keer * 100 rijen door naar beneden. Kopieer dan de hele kolom naar Waarden met Bewerken > Plakken Speciaal.

Vraag is natuurlijk: als je iets 20 keer print, is het dan wel nodig om alles 20 keer neer te zetten? Is 1 keer niet genoeg?

Wigi

 

[Abyss]

als je nu in A1 het cijfer 1 zet, je selecteert tot cel A100, en dan bewerken - doorvoeren - reeks. dan selecteer je naar rechts tot je 20 kolomen hebt en dan doe je ctrl-R en je hebt je reeks.

steven

Bedankt voor je snelle reactie,:thumb:

Het nadeel aan deze oplossing is dat ik maar 256 naar rechts kan.
Ik heb het toch liever onder elkaar


Abyss

 

[Abyss]

Steven gaf een voorbeeld om ze naast elkaar uit te printen.

Om ze onder elkaar te printen:

Zet 1 tot 100 in cellen A1:A100. Dan in A101:

=A1

voer dit nog 19 keer * 100 rijen door naar beneden. Kopieer dan de hele kolom naar Waarden met Bewerken > Plakken Speciaal.

Vraag is natuurlijk: als je iets 20 keer print, is het dan wel nodig om alles 20 keer neer te zetten? Is 1 keer niet genoeg?

Wigi

Wigi, ook bedankt voor je reactie:thumb:

Dat is nou precies wat ik wil ik wil eigelijk maar 1 keer b.v.b 1t/20 intikken en daar na deze nummer per stuk 20 keer uitprinten maar wel eerst alle nummer 1 en dan het restant **p.s ik wil maar 1x een print opdracht geven


Abyss

 

[Wigi]

Zoiets?

Sub printen()
    
    Dim iOndergrens As Integer
    Dim iBovengrens As Integer
    Dim iAantal As Integer
    Dim i As Integer
    
    iOndergrens = Application.InputBox("Geef ondergrens", "Onder", 1, Type:=1)
    iBovengrens = Application.InputBox("Geef bovengrens", "Boven", 100, Type:=1)
    iAantal = Application.InputBox("Geef aantal", "aantal", 20, Type:=1)
    
    For i = iOndergrens To iBovengrens
        Range("A1").Resize(iAantal).Value = i
    Next
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End Sub

Wigi

 

[Abyss]

Zoiets?

Sub printen()
    
    Dim iOndergrens As Integer
    Dim iBovengrens As Integer
    Dim iAantal As Integer
    Dim i As Integer
    
    iOndergrens = Application.InputBox("Geef ondergrens", "Onder", 1, Type:=1)
    iBovengrens = Application.InputBox("Geef bovengrens", "Boven", 100, Type:=1)
    iAantal = Application.InputBox("Geef aantal", "aantal", 20, Type:=1)
    
    For i = iOndergrens To iBovengrens
        Range("A1").Resize(iAantal).Value = i
    Next
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End Sub

Wigi

Wigi Bedank,

Ik ga dit even uittesten en misschien hier en daar aanpassen.
Hier kan ik wel wat mee


Abyss