Bestand opslaan bepalen vanuit een cel

[Roma]

Edmoor,
Helaas ik krijg het niet voor elkaar
zie bijlage

 

[edmoor]

Je hebt nu alle code als commentaar aangemerkt. Dit moet het zijn:

Private Sub CommandButton1_Click()
   '' With Application.FileDialog(msoFileDialogFolderPicker)
   ''     .AllowMultiSelect = False
   ''     .Show
    ''    fname = .SelectedItems(1)
   '' End With
    
  Application.ScreenUpdating = False
  With Sheets("Blad1")
      .Visible = True
      .Range("A1:H18").ExportAsFixedFormat 0, .Range("A1") & "\" & .Range("E1") & .Range("G1") & .Range("H1") & ".pdf"
      .Range("A1:H18").ExportAsFixedFormat 0, fname & "\" & .Range("E1") & .Range("G1") & .Range("H1") & ".pdf"
      .Range("A2:H18").ClearContents
      .Visible = False
  End With
  Application.ScreenUpdating = True
    
End Sub

 

[Roma]

Beste Edmoor,
Bedankt de code werkt. Alleen hij maakt blad1 leeg en dat moet blad2 zijn. Als ik dat verander dan krijg ik wederom de foutmelding niet opgeslagen.
Ook zou ik graag willen dat het weer in UserForm geplaast kan worden (daar staan meerdere buttons)
Zou je dat willen maken voor mij.
Alvast bedankt

 

[snb]

@Noroma

Dit forum is geen gratis softwarefabriek !

 

[edmoor]

Ik heb de bladen en de code opgeschoond. De benodigde code staat nu alleen in het Userform.
Blad1 bevat de knop om het Userform te openen en ook staat daar in cel A1 de mapnaam waar de PDF opgeslagen moet worden.
Blad3 en Blad4 heb ik verwijderd omdat deze naar mijn mening overbodig waren.

Je bestand:
Bekijk bijlage voorbeeld userform.xlsm

 

[edmoor]

@Noroma

Dit forum is geen gratis softwarefabriek !

Je hebt wel gelijk, maar ik ben in een goeie bui.
Deze service is dus niet standaard voor een computer hulp forum.

 

[Roma]

Edmoor,
Ben ik even blij dat je een goeie bui hebt. Je hebt mij geweldig geholpen.
Bedankt en chapoo.:thumb::thumb::thumb:

 

[edmoor]

Dan ga ik nu een biertje pakken