Weekstaten met week- en datum automatisch printen

[jmarijn]

Beste,

Ik zou graag in de bijgevoegde weekstaat een knop of functie hebben die als je b.v. in week 3 zit, de rest van de weken van het jaar afdrukt, dus 3 t/m 52.
Het liefst met de vraagstelling "tot welke week printen?".

Het zou helemaal te gek zijn als dit mogelijk zou zijn dat dit voor alle monteurs ( uit de vervolgkeuzelijst) gedaan zou worden.

Nu wordt voor elke monteur elke week apart geprint, dit zou toch handiger moeten kunnen lijkt mij.


Bij voorbaat dank,

Jos

 

[cow18]

nu geeft hij een afdrukvoorbeeld, verwijder die ' voor printout en zet die anders voor printpreview

Sub Afdrukken()
  Dim wknr As Integer, i As Integer, c As Range
  wknr = Application.InputBox(prompt:="Vanaf welke week", Title:=UCase("afdrukken weekstaten"), Default:=WorksheetFunction.WeekNum(Now), Type:=2)  'vanaf welke week
  If wknr < 0 Or wknr > 53 Then Exit Sub
  With Sheets("weekstaat")
    For Each c In Worksheets("monteurs").Range("A2:A30").SpecialCells(xlConstants)  'alle namen (dus niet-lege cellen)
      For i = wknr To 53                                   'alle weken vanaf de gevraagde week tot 53
        .Range("B3").Value = i                             'weeknummer
        .Range("B5").Value = c.Value                       'monteur
        If Year(.Range("D3").Value) = Year(Now) Then       'valt weeknummer nog in dit jaar, dan printen
          .PrintPreview                                    'afdrukvoorbeeld
          '.PrintOut                                        'effectief afdrukken
        Next
      Next
    End With
  End Sub

 

[jmarijn]

nu geeft hij een afdrukvoorbeeld, verwijder die ' voor printout en zet die anders voor printpreview

Sub Afdrukken()
  Dim wknr As Integer, i As Integer, c As Range
  wknr = Application.InputBox(prompt:="Vanaf welke week", Title:=UCase("afdrukken weekstaten"), Default:=WorksheetFunction.WeekNum(Now), Type:=2)  'vanaf welke week
  If wknr < 0 Or wknr > 53 Then Exit Sub
  With Sheets("weekstaat")
    For Each c In Worksheets("monteurs").Range("A2:A30").SpecialCells(xlConstants)  'alle namen (dus niet-lege cellen)
      For i = wknr To 53                                   'alle weken vanaf de gevraagde week tot 53
        .Range("B3").Value = i                             'weeknummer
        .Range("B5").Value = c.Value                       'monteur
        If Year(.Range("D3").Value) = Year(Now) Then       'valt weeknummer nog in dit jaar, dan printen
          .PrintPreview                                    'afdrukvoorbeeld
          '.PrintOut                                        'effectief afdrukken
        Next
      Next
    End With
  End Sub

Het is geweldig, bedankt voor je snelle reactie