Een celwaarde gebruiken

Status
Niet open voor verdere reacties.

SamEerd

Nieuwe gebruiker
Lid geworden
8 mei 2018
Berichten
4
Ik probeer een macro te maken waarmee een bepaald aantal pagina's moet worden afgedrukt.

Als er in cel K21 een waarde komt is het de bedoeling dat pagina 1 tot "die specifieke waarde" wordt afgedrukt, maar om 1 of andere reden krijg ik het niet klaar... hij blijft alle pagina's printen :confused:



Dit is wat ik gebruikt heb:

Sub Afdrukken()
Dim nAantal As Integer
nAantal = Sheets("Paklijst").Range("K21")

ActiveWorkbook.Sheets("Afdruk").PrintOut From:=1, To:=nAantal, Copies:=1, Collate _
:=True

End Sub


Kan iemand me mss helpen en zeggen waar ik fout ga?
 
probeer dit eens:

Code:
nAantal = Sheets("Paklijst").Range("K21").Value
 
Het zou gewoon moeten werken.
Hoeveel pagina's heb je, en wat is de waarde van 'nAantal' als je de code met F8 uitvoert.
 
Wat staat er dan in K21 en hoe komt deze waarde tot stand? Bij mij werkt het gewoon. Je kan het ook zo schrijven.

Code:
Sub Afdrukken()
  Sheets("Afdruk").PrintOut 1, Sheets("Paklijst").Range("K21")
End Sub

Eventueel .Value achter Range("K21") zetten
 
zonder .Value moet het ook werken.

nAantal geeft met F8 de juiste waarde
 
Laatst bewerkt:
Het is gelukt. :thumb:
Gisteren bleven er 50+ pagina's uitkomen, maar vandaag gaat het perfect tot het aantal dat nodig... Mss deed ik iets fout...

Ik heb wel de value erachter gezet.

Bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan