Userform

[Roma]

Beste,
Ik heb een verborgen tabblad en daat wil ik graag een PDF van maken met Userform.
Wie wil kan mij zeggen wat hier fout staat?
(De macro staat op het tabblad diverse)

Sub BTWVerkoop()
        'PDFmaken
                Fname = "C:Test\" & Range("E1") & Range("G1") & Range("H1") & ".pdf"
                  Range("A1:I203").ExportAsFixedFormat 0, Fname
         '' [A6:I203].ClearContents
  End Sub

Ron

 

[edmoor]

Ten eerste is C:Test al fout.
Daarnaast is het eventueel belangrijk om te weten wat er in E1, G1 en H1 staat.

 

[Roma]

Beste edmoor,
In de cellen staan gegevens die belangrijk zijn voor het pdf file naam. Deze verschillen regelmatig.
Daarnaat heb ik de map op de C schrijf test genoemt
Ron

 

[edmoor]

Een voorbeeld van de inhoud van die cellen zou handig zijn.
C:Test\ is fout omdat dat dan C:\Test\ moet zijn.

 

[Roma]

Edmoor,
Hierbij een uittreksel van mijn bestand
Ron

 

[edmoor]

De code in dat voorbeeld document werkt gewoon goed, als je maar zorgt dat er in de map C:\Test een map zit met de naam Jaar omdat er dit in de code staat:

fname = "C:\Test\Jaar\" & Range("E1") & Range("G1") & Range("H1") & ".pdf"

Maar met een Userform heeft dat niks te maken want die zit er niet in.

 

[Roma]

Beste edmoor,

Sorry deze had ik vergeten toe te voegen. Maar alsnog een voorbeeld hiervan.
Op blad3 staat de button die na Userform moet gaan en de Opdracht uit moet voeren.
De gegevens op blad1 wordt dan een PDF gemaakt en het veld weer leeg.

 

[edmoor]

Zoals ik al zei is de code goed, als je maar zorgt dat de map Jaar in C:\Test ook bestaat.

 

[Roma]

Dat klopt. de code is goed maar vanaf tabblad3 werkt Userform niet.

 

[edmoor]

Dat klopt ook, omdat er helemaal geen code achter de knop op Blad3 zit.

 

[Roma]

Juist weer een slordigheidje van mij. Nu code toegevoegd. Maaaaar de knop Voorbeeld schoonmaken geeft een foutmelding en dat is uiteindelijk mijn probleem.

 

[edmoor]

Dat kom dus omdat in Blad3 de cellen E1, G1 en H1 leeg zijn.
De code heeft geen referentie naar een blad en gebruikt daarom het actieve blad.

 

[Roma]

Edmoor bedankt,
Ik heb weer wat geleerd en dat werkt.
Alleen het is uiteindelijk een verborgen tabblad de de Userformknop staat op een startpagina met meer knoppen.
Hoe kan ik dit oplossen zodat alles gelezen wordt van tabblad1

 

[edmoor]

Dat kun je doen door te refereren aan Blad1. En omdat je die vaker na elkaar nodig hebt kun je daar het beste het With statement voor gebruiken:

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

 

[Roma]

Edmoor,
Je bent een supermens BEDANKT.
Jammer dat het niet via Userform kan omdat ik nog meer knoppen heb die ook die opdracht moeten uitvoeren.

 

[edmoor]

Dat voorbeeld van mij kun je zo in het userform gebruiken. Dat is geen enkel probleem en is ook waar ik de aanpassing heb gedaan.

 

[Roma]

Bedankt ik ga het uitproberen.(ik heb nu bezoek)
Sluit hierbij deze topoic af.
Nogmaals bedankt
ron

 

[Roma]

Edmoor,
Sorry maar geeft de zelfde foutmelding Document niet opgeslagen

 

[edmoor]

Het werkt hier prima dus dan heb je in je eigen omgeving iets niet in orde. Bestaat de map C:\Test\Jaar wel en mag je daarin schrijven? Maak anders een scherm afdruk van de foutmelding en plaats die hier.

 

[Roma]

Foutje het werkt. alleen niet wanneer het tabblad verborgen is