Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Cel gebruiken als variabele voor mijn opslaglocatie  (gelezen 814 keer)

0 leden en 1 gast bekijken dit topic.

Offline CR

  • Lid
  • *
  • Berichten: 22
  • Geslacht: Man
  • Oplossing.be
Cel gebruiken als variabele voor mijn opslaglocatie
« Gepost op: 31 oktober 2020, 01:18:03 »
Hallo,

Ik zoek een vba routine voor het invullen van mijn opslaglocatie als variabele met mijn werkblad.
En ook een controle of deze al is ingevuld met een zo ja..... dan de vraag vervangen ja/nee.

Dus stel ik vul in cel A1 in :     D:\testlocatie\dokumenten\         
En in cel A2 staat             :     "werkblad001"     

(en deze is nog niet opgeslagen op deze locatie.)

Via VBA zou dan het werkblad opgeslagen moeten worden als PDF op die locatie.
Dus in de DIR :   D\testlocatie\dokumenten\werkblad001\

Ik heb gezocht met google maar niet gevonden.
Dus als iemand me kan helpen?

Gr Cor

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Cel gebruiken als variabele voor mijn opslaglocatie
« Reactie #1 Gepost op: 31 oktober 2020, 07:29:27 »
Sub PDF()
Plaats = Range("$A$1").Value
Naam = Range("$A$2").Value
    If Dir(Plaats & Naam & ".pdf") <> "" Then
     antwoord = MsgBox("Het bestand: " & Naam & ".pdf bestaat reeds  Vervangen?", vbYesNo)
        If antwoord = vbYes Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
        Else
            Exit Sub
        End If
    Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End If
End Sub

Offline CR

  • Lid
  • *
  • Berichten: 22
  • Geslacht: Man
  • Oplossing.be
Re: Cel gebruiken als variabele voor mijn opslaglocatie
« Reactie #2 Gepost op: 31 oktober 2020, 17:38:32 »
Helemaal geweldig dit, ben er blij mee.
Bedankt Philiep

 


www.combell.com