• 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.

pdf maken

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
beste helpers

in de bijlage een verlofboek met 52 tabbladen (voor elke week van het jaar 1)

In het tabblad Verlof kan je in cel B11 een weeknummer invoeren
bv 24
dan krijg ik een PDF van week 24 t/m 52
dat is (mede door Helpmij.nl) prima gelukt
Nu wil ik graag een apart tabblad met Legenda toevoegen
dus eerst tabblad Legenda en dan blad 24 t/m 52 (als voorbeeld)
of tabblad legenda en dan de gekozen week tot 52


hoop dat het duidelijk is en dat iemand mij hiermee kan helpen
Don
 

Bijlagen

  • verlof-20.xlsm
    412 KB · Weergaven: 21
Laatst bewerkt:
Code: 
Private Sub CommandButton1_Click()
  c00 = "Legenda"
  For j = Cells(11, 2).Value To 53
    c00 = c00 & "|" & CStr(j)
  Next j
  Sheets(Split(c00, "|")).Select
  ActiveSheet.ExportAsFixedFormat 0, "E:\Temp\" & Blad1.Cells(1) & " - Van week " & Cells(11, 2).Value & " tm 53.pdf", , , , , , True
  Application.Goto Sheets("verlofboek").Cells(11, 2)
End Sub
 
top

Dit werkt precies zo als ik het nodig heb
bedankt voor je hulp

nog 1 vraagje
hoe zit het precies met dat split?
die had ik nog niet eerder gezien

Don
 
Split is een methode om een array te maken.

c00 wordt "Legenda"|"24"|"25" etc
door het gebruik van split krijg je sheets(array("Legenda","24","25" etc).select

Om te debuggen kan je zoiets gebruiken
Code: 
ar = Split(c00, "|")
  Sheets(ar).Select
 
Laatst bewerkt:
dank voor de extra informatie
en je fijn hulp
ben er blij mee
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan