Macro: excel opslaan met naam van een cel uit een andere sheet

[VenA]

Het geheel maar een beetje uitgeschreven. Als nu het kwartje niet valt dan is VBA denk ik een stapje te hoog.

Sub VenA()
    Dim pad As String 'Dit is een variabele voor de locatie waar je het bestand wilt opslaan.
    Dim naam As String ' Dit is een variabele voor de naam die het bestand moet krijgen
    pad = "C:\temp\" ' Hier moet je de variabele een waarde geven. Let erop dat je dit goed invult dus met schijfletter en de '\'aan het eind
    naam = Format(Sheets(1).[E7], "dd-mm-yyyy") & " - Kasboek.pdf" 'naam krijgt hier een waarde
    Dim PadEnNaam As String 'Een nieuw variable om het pad en de naam samen te voegen
    PadEnNaam = pad & naam
    Sheets(2).ExportAsFixedFormat 0, PadEnNaam 'De Pdf wordt nu weggeschreven in de map 'pad' met als naam 'naam'
End Sub

Door met <F8> door de code te wandelen kan je zien welke waarde de variabelen krijgen.
Duidelijker kan ik het niet uitleggen.


@edmoor, Dank voor je antwoord in #18. (ik krijg er ééntje meer) maar is offtopic.

 

[edmoor]

Er is altijd baas boven baas

 

[VenA]

Zeker. Hierin overtref ik de meesten met wat ongenuanceerd zijn en slechte uitleg. Elke gek heb z'n gebrek:d

C:\Users\Public\Desktop\ mis ik. (niet dat het mij wat uitmaakt overigens)

Dus het het draadje maar weer teruggeven aan de TS.

 

[Wezenspyk]

Bestaat er een mogelijkheid om het bestand niet op het desktop op te slaan(of de locaties die jij gestuurd heb), maar in een map die ik zelf heb aangemaakt?

 

[edmoor]

Uiteraard kan dat. VenA heeft daar al een voorbeeld van gegeven in #21.

 

[Wezenspyk]

Dat berichtje van VenA heb ik over het hoofd gezien! Hartelijk dank heren (?) voor de uitgebreide uitleg!

 

[HSV]

Dus ook die van 9 mei 2016 22:39 uur.

 

[edmoor]

Zeker. Hierin overtref ik de meesten met wat ongenuanceerd zijn en slechte uitleg. Elke gek heb z'n gebrek:d

C:\Users\Public\Desktop\ mis ik. (niet dat het mij wat uitmaakt overigens)

Ik mis daar nog C:\Users\Default