Forfatter |
Emne Søg Emne funktioner
|
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19
|
Indlæg funktioner
Tak(0)
Citér Svar
Emne: Hjælp til "Gem som" Makro Sendt: 19.Apr.2024 kl. 14:46 |
Jeg skal lave en makro hvor mange skal gemme et faneblad som PDF via exporter funktionen.
Mit problem er, at jeg gerne vil stoppe makroen ved "Publicer som" vinduet, så man selv skal indtaste filnavn.
Men dette er ikke muligt, da "Stop indspilning" ikke er muligt.
Nogen som kan hjælpe?
|
|
|
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5599
|
Accepteret svar
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 22.Apr.2024 kl. 10:27 |
prøv at om der er noget du kan bruge til inspiration
den danner PDF fil navnet ud fra dit navn måned og år som den gemmer på fanen setup
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5599
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 19.Apr.2024 kl. 15:07 |
Prøv at upload dit ark så vil det være letter at hjælpe dig
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 716
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 22.Apr.2024 kl. 10:21 |
Jeg tænker, det kan løses med en InputBox i makroen, hvor brugerne indtaster det ønskede filnavn, som så opfanges i en streng-variabel, som anvendes i "udskriv til PDF"-kaldet.
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5599
|
Accepteret svar
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 22.Apr.2024 kl. 10:27 |
prøv at om der er noget du kan bruge til inspiration
den danner PDF fil navnet ud fra dit navn måned og år som den gemmer på fanen setup
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5599
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 06.Maj.2024 kl. 13:08 |
nå han er nok løbet igen.......
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
Nignag
Forum Begynder
Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 21.Jun.2024 kl. 10:25 |
Hej Igen Kan se at jeg aldrig fik reageret på jeres fine svar.
Jeg løste det med følgende makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "K:\Industri\DIST XX Projekter TLJ\Indkøringer\" & Range("B6") & " - " & Range("D21") & " - " & Range("J21") & " - " & Range("N21").Value _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False
|
|