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

Mbv een macro opslaan als pdf welke selectievakjes zijn aangevinkt

Status
Niet open voor verdere reacties.
T

taktix

Gebruiker
Lid geworden
15 apr 2007
Berichten
61
Hoi allemaal,

Ik heb een Excelbestand waarin ik met behulp van een macro bepaalde geselecteerde tabbladen wil opslaan als 1 pdf. Dat opslaan als pdf is gelukt. Maar ik krijg niet voor elkaar hoe het moet als de voorwaarde is welke selectievakjes zijn aangevinkt.

Ik heb een voorbeeldbestand bijgevoegd. Hopelijk kunnen jullie me (op weg) helpen.

Gr.
 

Bijlagen

  • Macro.xlsm
    21,7 KB · Weergaven: 35
Voorbeeldje:
Code: 
Sub SheetsToPDF()
    Dim CBX As CheckBox
    Dim ar() As String
    Dim x As Long
    
    For Each CBX In ActiveSheet.CheckBoxes
        If CBX.Value = xlOn Then
            ReDim Preserve ar(x)
            ar(x) = CBX.Caption
            x = x + 1
        End If
    Next CBX
    
    Sheets(ar).Select
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Environ("Userprofile") & "\Desktop\Naam.pdf", _
        OpenAfterPublish:=True [COLOR="#008000"]'Zet deze op False om de PDF niet te openen[/COLOR]
End Sub
 
Geweldig zeg! Het werkt erg goed. Bedankt voor je snelle reactie!!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan