N1ckSch1lder
Gebruiker
- Lid geworden
- 27 mrt 2017
- Berichten
- 12
Beste lezer,
Ik ben vrij nieuw in de macro's maar ben door fora en youtube tutorials een heel eind gekomen.
Echter, nu zit ik vast bij de volgende situatie:
Ik heb een storingsoverzicht waar meldingen worden geregistreerd. Vanuit deze data wordt een werkbon automatisch ingevuld, waaronder een werkbonnummer.
Dit werkbonnummer is een samenvoeging van verschillende waardes --> Datum_Klant_Grootboeknummer_Opvolgnr., Doormiddel van de formule: C11 =CONCATENATE(A3&"_"&C3&"_"&E3&"_"&G3)
Deze werkbon kan ik opslaan als PDF in een specifieke map met als naam het werkbonnummer (Cell C11).
Nu wil ik dat de PDF wordt opgeslagen in een map afhankelijk van de klant die is ingevuld.
Op dit moment wordt de PDF opgeslagen op de desktop, zie onderstaande code:
Sub SavePDF()
'Save as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Nick\Desktop" & _
ActiveSheet.Range("A18").Value & _
Worksheets("Overzicht").Range("C11").Value & ".pdf", _
OpenAfterPublish:=True
End Sub
Ik hoop dat iemand mij hier mee kan helpen!
Met vriendelijke groet,
Nick
Ik ben vrij nieuw in de macro's maar ben door fora en youtube tutorials een heel eind gekomen.
Echter, nu zit ik vast bij de volgende situatie:
Ik heb een storingsoverzicht waar meldingen worden geregistreerd. Vanuit deze data wordt een werkbon automatisch ingevuld, waaronder een werkbonnummer.
Dit werkbonnummer is een samenvoeging van verschillende waardes --> Datum_Klant_Grootboeknummer_Opvolgnr., Doormiddel van de formule: C11 =CONCATENATE(A3&"_"&C3&"_"&E3&"_"&G3)
Deze werkbon kan ik opslaan als PDF in een specifieke map met als naam het werkbonnummer (Cell C11).
Nu wil ik dat de PDF wordt opgeslagen in een map afhankelijk van de klant die is ingevuld.
Op dit moment wordt de PDF opgeslagen op de desktop, zie onderstaande code:
Sub SavePDF()
'Save as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Nick\Desktop" & _
ActiveSheet.Range("A18").Value & _
Worksheets("Overzicht").Range("C11").Value & ".pdf", _
OpenAfterPublish:=True
End Sub
Ik hoop dat iemand mij hier mee kan helpen!
Met vriendelijke groet,
Nick