Makro og VBA - udbygge makro

Print side | Luk vindue

udbygge makro

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3868
Udskrevet den: 23.Nov.2024 kl. 06:08

Emne: udbygge makro

Besked fra: Bjarnehansen
Emne: udbygge makro
Posteringsdato: 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

Svar:

Besked fra: Bjarnehansen
Posteringsdato: 15.Apr.2019 kl. 17:29

uploads/397/Kortmaskine_2019.02.xlsm" rel="nofollow - uploads/397/Kortmaskine_2019.02.xlsm

den skal bruges i dette ark

Besked fra: Bjarnehansen
Posteringsdato: 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?

Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: Bjarnehansen
Posteringsdato: 17.Apr.2019 kl. 11:06

uploads/397/Kortmaskine_2019.05.xlsm" rel="nofollow - uploads/397/Kortmaskine_2019.05.xlsm

hej

jeg tænkte kun på at pynte lidt den den sætter knapperne til den ene side

Print side | Luk vindue