rooster printen

[don42]

Hallo allemaal,
ik heb een rooster gemaakt wat ik kan sorteren op naam
wie van de experts wil er eens naar kijken, heb het als rookie in elkaar geknutseld
en ben blij dat het werkt..

Private Sub CommandButton1_Click()
Dim rng As Integer
Dim r As Integer
d = 3

For rng = 2 To 290
  Cells(rng, 2) = Sheets("rooster").Cells(rng, 20)
          Next

For r = 2 To 290
  Cells(r, 1) = Sheets("rooster").Cells(r, 1)
     Next

Range("c2:c289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 2, 0)
Range("d2:d289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 3, 0)
Range("e2:e289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 4, 0)
Range("f2:f289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 5, 0)
Range("g2:g289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 6, 0)
Range("h2:h289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 7, 0)
Range("i2:i289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 8, 0)
Range("j2:j289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 9, 0)
Range("k2:k289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 10, 0)
Range("l2:l289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 11, 0)
Range("m2:m289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 12, 0)
Range("n2:n289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 13, 0)
Range("o2:o289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 14, 0)
Range("p2:p289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 15, 0)
Range("q2:q289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 16, 0)
Range("r2:r289") = Application.WorksheetFunction.VLookup(Range("b2:B289"), Sheets("Rooster").Range("b2:r289"), 17, 0)


Do Until d = 291
Cells(d + 1, 4) = Cells(d, 1)           'de datum staat in cel A3 en gaat naar D4
Cells(d + 1, 6) = Cells(d, 1) + 1
Cells(d + 1, 8) = Cells(d, 1) + 2
Cells(d + 1, 10) = Cells(d, 1) + 3
Cells(d + 1, 12) = Cells(d, 1) + 4
Cells(d + 1, 14) = Cells(d, 1) + 5
Cells(d + 1, 16) = Cells(d, 1) + 6
d = d + 3
Loop
End Sub

mijn vraag gaat echter over printen
is het mogelijk dat ik een naam kiest
cel E2 tabje chauffeurs dat ik dan het rooster print voor deze chauffeur
en dan vanzelf naar de volgende naam ga en dat dit rooster geprint wordt
en zo allemaal achterelkaar
nu moet ik dat per chauffeur apart doen
de bijlage werkt niet maar met bovenstaande code lukt mij dat wel
alleen is het bestandje dan 200kb groot en wordt hier niet geaccepteerd

Bekijk bijlage chff.xlsx



bvd
Don

 

[don42]

heb dit

Private Sub CommandButton1_Click()
n = 2
Do Until n = 5
Cells(n, 5) = Sheets("Chauffeurs ").Cells(n, 1)
  Sheets("rooster op naam").PrintOut Copies:=1, collate:=True, preview:=True
n = n + 1
Loop
End Sub

in kolom A Cells(n, 1) staan de namen
maar hij gaat steeds naar de eerste naam wat doe ik fout?