Excel navngiver dokumentet automatisk??

Det er første gang du vil gemme dokumentet, at Excel automatisk skal tage navnet/tallet fra celle A1 og gemme det som NavnOgEllerTal.xls?

Så skal du nok lave en makro, som du knytter til en kommandoknap og benytter den, når du vil gemme.

Prøv med denne makro.
1. Tryk ALT + F11
2. Indsæt i arkets kodemodul under "ThisWorkbook"

Hvis du ikke vil se meddelelser om at du er igang med at overskrive
en gammel version af filen kan du udkommentere linierne
med Application.DisplayAlerts.

-----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

On Error GoTo Fejl

Dim path As String
path = "C:\"

'Application.DisplayAlerts = False

ActiveWorkbook.SaveAs path & [A1] & ".xls"
ThisWorkbook.Saved = True

'Application.DisplayAlerts = True

Fejl:
    MsgBox "Arket blev ikke gemt !"

End Sub
-----------------

Nej, det er et fakturering program jeg har lavet. Jeg ønsker at gemme alle mine faktura med det tildelte faktura nummer. Jeg har altså lavet en skabelon, som jeg vil tage udgangspunkt i hver gang jeg skal skrive en faktura. Fakturannmmeret står i E5.

Hvis fakturanummeret står i E5, skal du erstatte:

ActiveWorkbook.SaveAs path & [A1] & ".xls"
med
ActiveWorkbook.SaveAs path & [E5] & ".xls"

Har blackadder ikke lavet den rigtigt? Du skal bare ændre

ActiveWorkbook.SaveAs path & [A1] & ".xls"

til

ActiveWorkbook.SaveAs path & [E5] & ".xls"

Jeg tager ikke æren for dit arbejde, blackadder

Sorry :o)

Tak for din hurtige respons!  Det vil jeg prøve.

steen_hansen >> Ingen problemer :-)

Ideen er at Workbook_BeforeSave makroen erstatter den normale save funktion, dog kun i forbindelse med det pågældende ark.

Den vil dog brokke sig hvis den ikke kan finde stien dvs. C:\

Tak for Jeres god svar. Jeg havde regnet skiftet fra A1 til E5 ud, men tak alligevel.

Problemet er som altid at jeg har Mac og derfor ingen C: . Skal i stedet bruge :Macintosh HD:Users:powerbook:Desktop:

blackadder >> Fino :o)

madsanthon: Det var blackadders gode svar, ikke mit :o)

Den giver mig en erro på :
Fejl:
    MsgBox "Arket blev ikke gemt !"

Og farver :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

gult?!
Hvad skyldes det?

Jeg glemte at nævne at du skal rette i stien, dvs.
erstatte:
path = "C:\"

med en gyldig mappe på din egen maskine.

Virker det på din/Jeres computer?

Det virker fint hos mig

Det virker også hos mig.

Prøv at gå ind i kodemodulet, marker "SaveAs" i linien
ActiveWorkbook.SaveAs path & [E5] & ".xls"

og tryk F1 for at aktivere hjælpefunktionen.

Kig efter et Mac-specifikt eksempel.

Jeg kan desværre heller ikke få det til at virke på min PC.

Jeg dobbelt klkker på ThisWorkbook efter at have trykket Alt-F11

I det vindue, der kommer frem skriver jeg:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo Fejl
Dim path As String
path = "Macintosh HD:Users:powerbook:Desktop:BarKIT:Fakturer"
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs path & [E5] & ".xls"
ThisWorkbook.Saved = True
'Application.DisplayAlerts = True
Fejl:
    MsgBox "Arket blev ikke gemt !"
End Sub

og på PC´en:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo Fejl
Dim path As String
path = "C:"
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs path & [E5] & ".xls"
ThisWorkbook.Saved = True
'Application.DisplayAlerts = True
Fejl:
    MsgBox "Arket blev ikke gemt !"
End Sub

Hvadend jeg skriver i E5 og ligegyldig hvordan jeg vælger at gemme (Save el. Save As),
gemmes mit dokument ikke med den titel, der står i E5!?

Jeg tror du mangler en backslash i din path.
prøv at erstatte:
path = "C:"
med
path = "C:\"

I Mac versionen, prøv at erstatte:
path = "Macintosh HD:Users:powerbook:Desktop:BarKIT:Fakturer"
med
path = "HD:Users:powerbook:Desktop:BarKIT:Fakturer"

Ja godt set! Jeg har i midlertid lavet backslash i testen på min PC. Men man kan ikke lave \ på Mac. Der skal stien hedde noget helt andet. Det har jeg styr på.

Ok tak igen

Jeg får en:

Compile error:

Syntax error

På hvilken linie ?

Og:
Microsoft Visual Basic
This command will stop the debugger.

Når jeg vil gemme

Prøv at indsætte linien

Exit Sub

efter linien

ThisWorkbook.Saved = True

Dvs. den burde se sådan ud nu:

---------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
    On Error GoTo Fejl
   
    Dim path As String
    path = "C:\"
   
    'Application.DisplayAlerts = False
   
    ActiveWorkbook.SaveAs path & [E5] & ".xls"
    ThisWorkbook.Saved = True
    Exit Sub
   
    'Application.DisplayAlerts = True
   
Fejl:
        MsgBox "Arket blev ikke gemt !"

End Sub
---------------------

Så farver den øverste linie gul:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Ved at sætte ovenstående ind får jeg følgende besked

Compile erroe:

Expected Sub, Function, or Property

Ville det være et problem hvis vi flyttede koden til at blive aktiveret ved tryk på en knap på arket istedet for ?

Jeg har på fornemmelsen at .SaveAs kommandoen kalder ikke harmonerer med WorkBook_BeforeSave event makroen.

Nej alt er kærkomment....!

Ok, fint.

1.  I Menuen:
    View -> Toolsbars -> Control Toolbox
2.  Vælg en CommandButton, og placer den på arket et passende sted.
3.  Dobbeltklik på knappen og indsæt nedenstående koden imellem
    Private Sub CommandButton1_Click()
    og
    End Sub

Dvs:
-------------

Private Sub CommandButton1_Click()
    On Error GoTo Fejl
   
    Dim path As String
    path = "C:\"
   
    'Application.DisplayAlerts = False
   
    ActiveWorkbook.SaveAs path & [E5] & ".xls"
    ThisWorkbook.Saved = True
    Exit Sub
   
    'Application.DisplayAlerts = True
   
Fejl:
      MsgBox "Arket blev ikke gemt !"

End Sub

-------------

Vigtigt..
Husk at slette koden fra ThisWorkbook.

Jeg har ikke fået det til at virke. Men du skal naturligvis have pointene for din gode indsats. Tak for hjælpen.

Jeg beklager at det ikke virker. Det virker fint på min egen (PC) version af Excel.

Hvad har du har fået af fejlmeddelelser ?

Jeg vil opfordre dig til at oprette spørgsmålet igen (jeg afleverer gerne point). Det kan være at der er andre der kan finde en løsning.

Jeg prøver at oprette spørgsmålet igen.

Vil du evt. maile mig din fil?

Jep, hvad er din e-mail adresse ?

mange tak!!

104@city.dk

Koden for knappen er i kodemodulet for "Sheet1"