Userform

[edmoor]

Dan maak je er dit van:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    With Sheets("Blad1")
        .Visible = True
        Fname = "C:\Test\Jaar\" & .Range("E1") & .Range("G1") & .Range("H1") & ".pdf"
        .Range("A1:H18").ExportAsFixedFormat 0, Fname
        .Range("A2:H18").ClearContents
        .Visible = False
    End With
    Application.ScreenUpdating = True
End Sub

 

[Roma]

Edmoor,
Allereerst bedankt voor je geduld.
Ik heb de macro aangepast. en het werkt. Wanneer ik zonder de macro het tabblad zichtbaar wil maken loopt excel helemaal vast en sluit.
Wat is hier de oorzaak van.

 

[Roma]

Sorry foutje gevonden. probleem helemaal opgelost. bedankt

 

[edmoor]

Graag gedaan