• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opdrachtknop aan juiste pagina koppelen

Status
Niet open voor verdere reacties.
J

janaukes

Gebruiker
Lid geworden
26 mrt 2016
Berichten
49
Ik ben bezig met een overzicht in Excel 2010.

Nu ben ik al een heel eind gekomen met jullie hulp maar ik krijg het niet voor elkaar de Opdrachtknop aan de juiste pagina te koppelen.
Ik heb hierbij gewerkt vanaf een voorbeeld maar ik vrees dat ik de zaken niet goed overzet. :evil:

Wie kan mij hierbij helpen?

Voor wie het leuk vindt: Ik heb de klok ook even in de bijlage gezet [Deze is echter niet bedoeld voor de vraag hoor, ik weet hoe ik moet koppelen]

Jan.Bekijk bijlage Voorbeeld tbv vraag.xlsxBekijk bijlage Kopie van Kopie van klok_analoog.xls
 
Je voorbeeld document zit helemaal geen code in achter de knoppen.
 
Ik denk dat er nu nog geen code achterstaat.
Je moet het opslaan als .xlsm
 
Jan,
Kijk eens goed naar mijn vbtje van uw vorig postje . Kijk onder formules -> Namen beheren daar zal je 2 x addtopdf zien staan. Voor dit bestand moet je ook dergelijke lijstjes maken voor betreffende werkbladen en dat heb je in dit bestand nog niet gedaan,zie namen definiëren
 
Hoi,
Heb je vbtje aangepast
zie mijn opmerking in vorig postje
 

Bijlagen

  • voorbeelddocument.xlsm
    72,3 KB · Weergaven: 30
Ik heb de formules bijgewerkt. En de eerder gekregen code voor dubbelprinten uit het voorbeeld gehaald dat ik heb gekregen.
Deze staat nu netjes bij Opdrachtknop 3.
Toch krijg ik een foutmelding. Ik kan niet vinden waar het zit.

Op toets 'Blad 1 en 7 opslaan (PDF, dubbelzijdig) krijg ik een PDF van blad 1 en 2 (Ik heb hierdoor wel ontdekt dat ik moet aangeven wat de afdrukstand voor ieder blad moet zijn)

Ik heb (Algemeen) "Blad1" en "Blad2" op dezelfde manier aangevuld tot "Blad7"
Ik krijg dan een foutmelding op de eerste regel: Sub printen()

Bekijk bijlage voorbeelddocument_23-04-2016.xlsm
 
Als ik onderstaande Makro voor Commandbutton3 gebruik dan krijg ik alleen blad 1.

Private Sub CommandButton3_Click()
Sheets(Array("Roosterblad", "Planbord", "Team", "Telefoonnummers", "Overzicht kamers", "Invulpagina", "Therapie")).Select
Sheets("Roosterblad").Activate
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
Klik om te vergroten...
 
Doe het eens zo:
Code: 
Private Sub CommandButton3_Click()
    Sheets(Array("Roosterblad", _
                 "Planbord", _
                 "Team", _
                 "Telefoonnummers", _
                 "Overzicht kamers", _
                 "Invulpagina", _
                 "Therapie")).PrintOut Copies:=1, Collate:=True
End Sub
 
Laatst bewerkt:
Hoi Jan,
Je bent een paar dingen door elkaar aan het halen
Deze:
Ik heb (Algemeen) "Blad1" en "Blad2" op dezelfde manier aangevuld tot "Blad7"
Ik krijg dan een foutmelding op de eerste regel: Sub printen()
Klik om te vergroten...
Daar gebruik je de code
Code: 
Sheets("Blad1").PrintOut Copies:=1
Dat moet worden
Code: 
Sheets("Roosterblad").PrintOut Copies:=1(blad 1 bestaat gewoonweg niet in uw tabbladen)
Voor het tweede blad wordt dat dan
Code: 
Sheets("Planbord").PrintOut Copies:=1
etc
Deze
Sheets(Array("voorbeelddocument_23-04-2016", "Overzicht kamers")).Select
Klik om te vergroten...
Hier haal je de betandsnaam en werkbladen door elkaar
Dat moet worden
Code: 
Sheets(Array("Roosterblad", "Overzicht kamers")).Select
(of een ander tabblad)
Ik zal straks een kijken om een betere oplossing te vinden voor uw knop 3
 
Hoi Philiep.

De oplossing van Edmoor (Dank daarvoor Edmoor) voor Button-3 werkt wel, echter ....... Hoe definieer ik de afdrukstand per pagina. Ik krijg anders 54 prints.

Ik ga zo even aan de slag met de andere tips Philiep.
 
Bekijk bijlage voorbeelddocument_23-04-2016 1508.xlsmHallo,

Ik heb alles verwerkt wat jullie hebben aangegeven.
Ook de code (Laatste in de post van 23-04-2016 | 13:11) van Philiep werkt. Vraag is nu of beide oplossingen geschikt zijn om de afdrukstand per pagina aan te geven.

Bij onderstaande krijg ik een Fout 9 tijdens uitvoering: "Het subscript valt buiten bereik".

Sub printen()
Application.ScreenUpdating = False
Sheets("Roosterblad").PrintOut Copies:=1
Sheets("Planbord").PrintOut Copies:=1
Sheets("Team3").PrintOut Copies:=1
Sheets("Telefoonnummers").PrintOut Copies:=1
Sheets("Overzicht kamers").PrintOut Copies:=1
Sheets("Invulpagina").PrintOut Copies:=1
Sheets("Therapie").PrintOut Copies:=1

End Sub
Klik om te vergroten...

Om verwarring te voorkomen heb ik datum en tijd even aan het bestand toegevoegd.
 
HOi Jan,
Je hebt helemaal geen tabblad die Team3 noemt vandaar de fout
Code: 
Sheets("Team[COLOR="#FF0000"]3[/COLOR]").PrintOut Copies:=1
 
Je moet bij het geven van voorbeelden uiteraard wel zorgen dat de informatie klopt.
Onjuiste bladnamen zullen fouten veroorzaken.
 
Da's jammer want Fout 9 tijdens uitvoering: "Het subscript valt buiten bereik" komt in dat geval wel door een foute bladnaam. Mocht je er weer tegenaan lopen dan weet je dus dat je ergens in de code verwijst naar iets dat niet bestaat.
 
Nu werkt het goed.

Blijft alleen nog de afdrukstand per pagina.
En de instelling dubbelzijdig printen bij "Overzicht kamers" (printopdracht) ==> Kan dat niet beter met een aparte opdrachtknop?

Knop1 is nog zoeken.

Ik heb hier een boekwerk Office 2010 van zo'n kleine 1000 pagina's maar heb er nog niets van geleerd.

Dat ligt op deze site duidelijk anders. Ik ben dus erg blij met de hulp.
 
Je kan met Sheets("Naam").PageSetup.Orientation = xlPortrait of xlLandscape bepalen of een pagina staand of liggend moet worden afgedrukt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan