Userform

Status
Niet open voor verdere reacties.
Dan maak je er dit van:

Code: 
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
 
Laatst bewerkt:
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.
 
Sorry foutje gevonden. probleem helemaal opgelost. bedankt
 
Graag gedaan :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan