gemme funktion skal hente dato fra celle

Du er nødt til at bruge en makro, fx

Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:=CStr(Range("C2").Value)
End Sub

Super det virker, kan man lave det sådan at det kun er ved en bestemt fil den fungere og er der en måde at gøre det så det er nemt at gemme evt. ved crtl+s og det så aktiver makroen? så man er fri for at trykke alt+f8 + afspil makro.

Åbn den fil, det skal gælde for. Tryk Alt+F11. Vælg Insert - Module. Kopier makroen hertil. Luk VBA editoren igen. Tryk Alt+F8.

Klik på Indstillinger. Skriv en genvejstast og klik OK. Så gemmer du ved at klikke på den pågældende genvej.

Tak for det det virker rigtig godt.

hvordan giver jeg dig "ikrons" point???????

Du skulle egentlig have ventet på et svar fra mig - og så accepteret det :-)

Kan man angive i hvilken mappe den skal gemme filen??
Så kan du også få nogle point :-)

Det kan man sagtens


Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:= C:\mappe\undermappe\" & CStr(Range("C2").Value)
End Sub

Her er hvad jeg har skrevet
Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:= G:\DK\Produktion DK\Kapacitet udnyttelse\Dagsrapporter\" & CStr(Range("C2").Value)
End Sub

Men jeg får en fejlmeddelse

Compile error:
Expected: line number or label or statement or end of statement
den står og markere det første backslash i stien.

Ved du hvad der kan være galt?

Dyu mangler et sæt anførselstegn.

Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:= "G:\DK\Produktion DK\Kapacitet udnyttelse\Dagsrapporter\" & CStr(Range("C2").Value)
End Sub

Den siger ikke har adgang til filen men jeg kan jo godt gemme den manuelt???????

Eksisterer alle mapper i stien på forhånd?

Hos mig virker det i hvert fald upåklageligt, såfremt alle mapper ixstine eksisterer på forhånd.

ixstine = i stien. Min kode ser sådan ud:

Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:="G:\DK\Produktion DK\Kapacitet udnyttelse\Dagsrapporter\" & CStr(Range("C2").Value)
End Sub

og den gemmer fint i den pågældende mappe som dato.xlsm, fx 09-10-08.xls

Nu virker det perfekt!
Tusind tak for tålmodigheden

Velbekomme :-)