Knap til at gemmen med Celle sum

Bruge du Offices 2007 eller 2003? Det er meget nemmere med 2007, men også muligt med 2003.

Hej,

Jeg bruger Excel 2007

Du skal lige være opmærksom på at der til 2007 findes nogle ADD-INS som kan hentes på microsofts hjemmeside, det er muligt du bliver nødt til at hente disse.

Sub pdf()

Dim filnave As String
Dim sti As String

filnavn = Range("c5").Value & " " & Range("a7").Value & ".pdf" ' ret evt til andre celler
sti = "C:\"                                                    ' ret til ønsket placering på drevet


    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

http://www.microsoft.com/downloads/details.aspx?FamilyId=4D951911-3E7E-4AE6-B059-A2E79ED87041&displaylang=en

Hvordan tilføre jeg det i Excel, jeg er ikke en hej til det endnu.

og hvad heder de ADD-INS jeg måske har brug for.

brug linket lige over dette,ellers tast "f1" i excel og søg efter "gem som pdf". De bliver installeret når du henter dem hos MicroSoft.

Jeg kan godt gemme som PDF i min excel.
jeg tænkt mere hvordan jeg tilføre den String du skrev

Kan du prøve og forklare det?

ok, det er en makro.

Den skal ligge i VBA, kender du noget til dette?

Hvis ikke kan jeg lige bygge lige mere på koden i morgen aften. og så forklar hvad du skal gører.

Jeg er meget ny til VBA i excel og makro, så ville sætte pris
på hvis du kunne hjælpe/forklare noget mere i morgen aften.

Gerne.

hej du. du taster "alt + f11" så åbner Vb.

du indsætter et modul og copy paster denne tekst.


Sub Gempdf()

' Genvejstast:Ctrl+k
'

Dim filnave As String
Dim sti As String

filnavn = Range("c5").Value & " " & Range("a7").Value & ".pdf" ' ret evt til andre celler
sti = "C:\"                                                    ' ret til ønsket placering på drevet

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
       
End Sub

Herefter tilrettet de celle og evt. placering på drevet.
Bemærk at jeg har lavet en genvejst tast på "CRTL+k" for at aktivere makroen.

Hej,

Det tester jeg lige.
Er det ikke muligt at binde den makro til en knap
som man tilføre i ens ark?

Hej,

Når jeg sætter det ind som du siger og retter til
og trykker på Play knappen

kommer den op med en fejl og siger kan ikke gemme

og gør det her gult

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

hvad skriver den af fejl kode? runtime error ??

Den kommer med denne fejl.

Run-time error `-2147024773 (800700b)
Dokument er ikke gemt.

Hej, har du nogle ide til hvad det kan være ?

Jeg har lavet den lidt om
så den kun ser i en cell nu. her virker det når jeg trykker på play knappen

Sub Gempdf()

' Genvejstast:Ctrl+k
'

Dim filnave As String
Dim sti As String

filnavn = Range("d9").Value & ".pdf" ' ret evt til andre celler
sti = "C:\"                                                    ' ret til ønsket placering på drevet

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
     
End Sub


Men den genvej virker ikke. Kan vi ikke binde den marko til en knap så man bare trykker på den og den så køre det script?

Okay har fået det til at virke med en knap.
Men det virker kun når den ser i en cell.

Kan du kik på koden du starte med at give mig
hvorfor den giver fejl


filnavn = Range("c5").Value & " " & Range("a7").Value & ".pdf" ' ret evt til andre celler

Jeg fik det til at virke med knap og alt.

Tak for hjælpen

Endelig kode ser sådan her ud.

Private Sub CommandButton1_Click()
Dim filnave As String
Dim sti As String

filnavn = Range("e9") & " - " & Range("b5") & " - " & Range("b7").Value & ".pdf"
sti = "C:\"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

smid et svar så du kan få Point

Lukker den