ophogen van waarde na printen formulier

[Frank59]

Hallo,

Ik wil een waarde (cel A1) laten ophogen met 1 als een macro wordt gestart met de vraag hoeveel prints moeten er gemaakt worden?
Na iedere printopdracht (ongeacht de waarde die ingegeven wordt), moet de waarde in cel A1 direct met 1 opgehoogd worden (deze waarde mag niet handmatig gewijzigd worden),
zodat iedere afdruk een eigen nummer krijgt.
Kan iemand een voorzetje geven?

Alvast dank

Frank

 

[huijb]

Verplaats naar Visual basic for Applications

 

[Frank59]

opgelost

Hallo,

Ik wil een waarde (cel A1) laten ophogen met 1 als een macro wordt gestart met de vraag hoeveel prints moeten er gemaakt worden?
Na iedere printopdracht (ongeacht de waarde die ingegeven wordt), moet de waarde in cel A1 direct met 1 opgehoogd worden (deze waarde mag niet handmatig gewijzigd worden),
zodat iedere afdruk een eigen nummer krijgt.
Kan iemand een voorzetje geven?

Alvast dank

Frank

Heb het zelf inmiddels gevonden

Sub afdrukken()
Dim X As Integer
Dim IGB As Integer
On Error GoTo Einde
IGB = InputBox("Aantal afdrukken")
For X = 1 To IGB
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1") = Range("A1") + 1
Next X
Einde:
End Sub