Dag iedereen
Een vraagje ivm met een bestaande macro.
Op dit moment gebruiken we excel om chauffeurskaarten uit te printen.
Dit zijn verschillende rondes. We gebruiken daarvoor een overzicht dat we cel per cel gelinkt hebben aan de chauffeurskaarten.
Nu wil ik in de macro een lijn toevoegen dat ervoor zorgt dat als er geen chauffeur is deze kaart (sheet) niet wordt afgedrukt.
Dus als er een specifieke cel leeg is hij de printopdracht van die sheet overslaat. Dit om papier te besparen.
dit is de code zoals ze nu is :
Ik had al een code getest maar werkte niet.
Ik ben nog niet zo lang met macro's bezig dus mijn ervaring is beperkt.
Alvast bedankt.
Een vraagje ivm met een bestaande macro.
Op dit moment gebruiken we excel om chauffeurskaarten uit te printen.
Dit zijn verschillende rondes. We gebruiken daarvoor een overzicht dat we cel per cel gelinkt hebben aan de chauffeurskaarten.
Nu wil ik in de macro een lijn toevoegen dat ervoor zorgt dat als er geen chauffeur is deze kaart (sheet) niet wordt afgedrukt.
Dus als er een specifieke cel leeg is hij de printopdracht van die sheet overslaat. Dit om papier te besparen.
dit is de code zoals ze nu is :
Code:
Sub printenrittenbladen()
'
' printenrittenbladen Macro
'
'
Sheets("info administratie").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("input").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=5, Collate:=True
Sheets("A3 PLANNING").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bezali 1 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bezali 2 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Borden Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Luchtbal 1 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Luchtbal 2 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Rozemaai Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 1 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 2 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 3 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 4 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Fiets Ekeren Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 1 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 2 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 3 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 4 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 5 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 6 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem - Deurne Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Fiets Merksem - Deurne Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 1 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 2 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 3 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 4 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 5 Veeg").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 6 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 7 Bache").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bezali 1 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bezali 2 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Borden Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Luchtbal 1 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Luchtbal 2 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Rozemaai Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 1 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 2 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 3 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Ekeren 4 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Fiets Ekeren Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 1 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 2 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 3 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 4 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 5 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem 6 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Merksem - Deurne Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Fiets Merksem - Deurne Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 1 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 2 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 3 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 4 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 5 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 6 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Deurne 7 Check").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("input").Select
Range("D1").Select
End Sub
Ik had al een code getest maar werkte niet.
Ik ben nog niet zo lang met macro's bezig dus mijn ervaring is beperkt.
Alvast bedankt.