Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: pdf maken

  1. #1
    Senior Member
    Geregistreerd
    25 april 2014
    Vraag is opgelost

    pdf maken

    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
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door don42 : 13 juni 2019 om 09:17

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Senior Member
    Geregistreerd
    25 april 2014

    Thumbs up 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

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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 aangepast door VenA : 13 juni 2019 om 17:19
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Senior Member
    Geregistreerd
    25 april 2014

    Red face

    dank voor de extra informatie
    en je fijn hulp
    ben er blij mee

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren