[Løst] Lagre som PDF

[Trelkrok]

Hei, gjelder Norsk Office 365

 

Har en arbeidsbok som kalles «ROS - analyse» med 2 faner som kalles henholdsvis: «1 Hjelpeskjema» og «2 Handlingsplan»

 

Skulle hatt en Makro som lagrer disse 2 fanene som PDF i målmappa (den mappa boka ligger i) med filnavn som står i E3 og Datoen som står i V3 i fanen «1 Hjelpeskjema»

Noen som kan hjelpe?

 

Ha en fin kveld

 

Mvh

RA

 

[geir__hk]

Hvis det er Excel så er det like greit å bruke hurtigtaster, i norsk versjon bør det være Alt+F, S, A - i den rekkefølgen. For å lagre mer enn ett regneark til PDF, så må du markere flere samtidig - holde inne Ctrl og venstre musetast for veksle av/på.

 

Vær også obs på at utskriftsinnstillinger også gjelder for eksport til PDF.

[Trelkrok]

Takk for tips geir_hk, men har flere brukere som ikke kommer til og huske dette, så foretrekker en knapp å trykke på 

 

Etter litt feiling og prøving har jeg fått til en makro som ser ut til og løse det ved og klikke bare på en knapp. 

Hvis noen har noe og tilføye er det bare og gi en tilbakemelding   men virker til og gå greit.

Her er makroen:

 

 

Sub LagreSomPDF()

'

' Lagre ROS analyse som PDF fil

'

 

'

    Dim Sti As String

 

    Dim Filnavn As String

 

    Dim Msg As String, Ans As Variant

     

    Msg = "Er 2 Handlingsplan komplett utfylt?" & vbCrLf & "" & vbCrLf & "Hvis det er det, klikk JA, hvis ikke klikk Nei og skriv inn det" & vbCrLf & "du mangler her i 2 Handlingssplan :)"

     

    Ans = MsgBox(Msg, vbYesNo)

     

    Select Case Ans

         

    Case vbYes

    ActiveSheet.Unprotect Password:="****"

    

    

    Sheets(Array("1 Hjelpeskjema", "2 Handlingsplan")).Select

    Sheets("1 Hjelpeskjema").Activate

    

    Sti = ActiveWorkbook.Path & "\"

Filnavn = "ROS-analyse_" & Cells(6, 6)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        Sti & Filnavn, Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=Aapne

        

        MsgBox "ROS-analysen er lagret som PDF fil" & vbCrLf & "" & vbCrLf & "Du kan nå klikke rød knapp for og nullstille til ny ROS analyse :)"

                        

     Case vbNo

GoTo Quit:

    End Select

     

Quit:

        

        Sheets("2 Handlingsplan").Select

    Range("D9").Select

     ActiveSheet.Protect Password:="joba"

        

        Sheets("1 Hjelpeskjema").Select

    Range("S1:AD1").Select

        

    ActiveSheet.Protect Password:="****"

        

    

End Sub

Endret 8. oktober 2018 av Trelkrok