Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketudbygge makro

 Besvar Besvar
Forfatter
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Emne: udbygge makro
    Sendt: 15.Apr.2019 kl. 17:27
Hej er der en der kan hjælpe mig med denne makro og få den til at tjekke om file fine også spørge om den skal overskrives ja eller nej ved hoppe ud af makro ved forsætte



Sub Gem_Som_pdf()
Dim ArkNavn, DataSti, Filnavn As String

ArkNavn = Ark1.Name
DataSti = Sheets("setup").Range("b5").Value  'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = Sheets(ArkNavn).Range("v2").Value


'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If



'Gemmer det aktive ark som .pdf
Sheets(ArkNavn).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & "\" & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
MsgBox "Filen er gemt som " & DataSti & "\" & Filnavn, vbInformation
End Sub


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
Til top



Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Sendt: 15.Apr.2019 kl. 17:29

den skal bruges i dette ark
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
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Sendt: 15.Apr.2019 kl. 18:23
Fandt denne løsning efter et tidligere forslag fra excelgaard i en anden tråd:

If Len(Dir(DataSti & "\" & Filnavn)) > xlGreater Then
    If MsgBox("Files findes Allrede! vil du overskrive den?", vbYesNo) = vbNo Then Exit Sub
End If

kan man formatere en MsgBox?
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
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5412
Direkte link til dette indlæg Sendt: 17.Apr.2019 kl. 10:43
Formatering af MsgBox er ganske begrænset (vist nok kun til justering, så vidt jeg huskser).

Skal du have mere formatering ind, så er du nok nødt til, at benytte en UserForm.
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.
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Sendt: 17.Apr.2019 kl. 11:06

hej
jeg tænkte kun på at pynte lidt den den sætter knapperne til den ene side
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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk