Macro's: vermeerdering van bepaalde cellen per print

[keyser]

Beste,

ik wil mijn werk een beetje vergemakkelijken en zou graag in onderstaande excel
2 cellen telkens +1 willen laten optellen per print opdracht.

Ik heb al verschillende dingen uitgeprobeerd maar het blijkt telkens ergens fout te gaan.

ik zou liefst van al een knop hebben, zoals in onderstaande excel (I6).
waar ik enkel hoef op te drukken, waarna excel mij vraagt hoeveel keer het document moet afgedrukt worden.

ik vul bijvoorbeeld 100 in
en het document wordt automatisch 100x afgedrukt
en per afdruk verhoogt de waarde van 2 cellen telkens +1
dus beginnend bijvoorbeeld op 100 en eindigend op 199.

in onderstaand voorbeeld zijn het dus cellen B10 en B22 die per print opdracht +1 omhoog zouden moeten gaan.

Hartelijk dank,
dit zou mij toch dagelijks een kwartiertje klikken besparen.

 

[HSV]

Zoiets?

Sub hsv()
Dim aantal As Long, i As Long
aantal = Application.InputBox("Vul het te printen aantal in", "Hoeveel prints", 10, , , , , 1)
 For i = 1 To aantal
   ActiveSheet.PrintPreview
   Range("B10") = Range("B10") + 1
   Range("B22") = Range("B22") + 1
 Next i
End Sub

 

[keyser]

Beste,

Hartelijk dank voor de reactie,
het is bijna wat ik zoek, het enige dat anders zou moeten is het print gedeelte,
nadat ik de hoeveelheid prints heb ingegeven zou hij het benodigde aantal moeten printen.
in uw macro moet ik alles nog apart printen. het is al een grote stap vooruit.
maar is het mogelijk nadat ik het aantal prints heb ingegeven, en mijn printer heb uitgekozen, dat hij automatisch
het aantal afdrukken maakt?

mvg,

Roald

 

[HSV]

Maak van PrintPreview → PrintOut.
Ik dacht dat je dat wel begreep.

 

[keyser]

haha,
juist, perfect, ik ben duidelijk een leek op vlak van macro's!
dit is exact wat ik zocht hartelijk dank HSV.