printen parkeervergunning

Status
Niet open voor verdere reacties.
M

Mde

Gebruiker
Lid geworden
17 jun 2015
Berichten
346
Hallo,

Bij ons op het werk hebben we om de x aantal weken een stilstand.
We delen parkeervergunningen uit zodat het terrein niet vol komt te staan met auto's.
Nu heb ik wat in elkaar geknutseld het werkt, maar als er een rij word toegevoegd moet elke keer de VBA code worden aangepast.
Is het mogelijk om het zo te maken dat dit niet uit maakt?
Misschien kan dan ook gekeken worden om 1 sjabloon te hebben voor het printen, waarbij de achtergrondkleur veranderd.

P1 tm P12 word altijd allemaal geprint de rest alleen die ingevuld zijn.

BVD
 

Bijlagen

  • helpmij parkeren.xlsm
    66,5 KB · Weergaven: 37
Zorg ervoor de de namen van de tabjes in de 2e tabel van de tab 'Gegevens' overeenkomen met de printbladen.
Code: 
Sub VenA()
  ar = Sheets("Namen").UsedRange
  For j = 2 To UBound(ar)
    If Len(ar(j, 1)) > 4 Then c00 = c00 & j & " "
  Next j
  x = Split(Trim(c00) & " " & UBound(ar))
  
  ar1 = Sheets("gegevens").ListObjects(2).DataBodyRange
  For j = 1 To UBound(ar1)
    If ar1(j, 2) Then
      Select Case j
        Case 6: print_Overzicht
        Case 7: Print_kolenpark_leeg
        Case Else
          With Sheets(ar1(j, 1))
            For jj = x(j - 1) + 2 To x(j)
              c00 = ""
                If ar(jj, 2) <> "" Then
                  c00 = ar(jj, 2) & "||" & ar(jj, 3) & "||" & ar(jj, 4) & "||" & ar(jj, 5) & "||" & ar(jj, 6)
                  .Cells(5, 5).Resize(9) = Application.Transpose(Split(c00, "|"))
                  .PrintPreview
                End If
            Next jj
        End With
      End Select
    End If
  Next j
End Sub
 

Bijlagen

  • helpmij parkeren.xlsm
    70,3 KB · Weergaven: 33
Ik ben op vakantie als ik weer aan het werk ben zal ik er naar kijken.
Alvast bedankt.
 
Voor zover ik het nu kan zien lijkt het te werken.
Dank je :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan