Avatar billede pmejer Nybegynder
11. maj 2005 - 15:27 Der er 3 kommentarer og
1 løsning

Gem som dato, men kun som aktuel dato

Hej igen,

Kan man lave en funktion, der gemmer et regneark som dags dato, og automatisk overskriver det eksisterende ark, hvis datoen i arket er dags dato?

Hvis jeg f.eks. åbner et ark, der indeholder d.d., og gemmer det, ændrer i arket, og vil gemme det igen, skal arket automatisk overskrive den gamle fil.

Jeg håber at I forstår forklaringen...


//Peter
Avatar billede jkrons Professor
11. maj 2005 - 15:36 #1
I A1 har du =IDAG().

Indsæt denne kode i projektmappens (ThisWorkbook) kodemdodul:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.DisplayAlerts = False
    filnavn = Range("a1").Value
    ActiveWorkbook.SaveAs filnavn & ".XLS"
    Application.DisplayAlerts = True
End Sub
Avatar billede frezzer81 Nybegynder
11. maj 2005 - 15:40 #2
Er ikke helt sikker på jeg er med, men du kan lave en knap med en macro der gemmer ark'et med et navn som står i f.eks A1 som du kunne lade være der hvor dato'en står.

macro'en kunne lyde således:
Sub backup()
  Dim Sti As String
  Sti = "c:\MyBackupFolder\"
  ThisWorkbook.SaveAs Sti & ActiveSheet.Range("A1") & ".xls"
End Sub
Avatar billede jkrons Professor
17. maj 2005 - 10:26 #3
Kunne du bruge noget af det?
Avatar billede pmejer Nybegynder
26. juni 2006 - 12:09 #4
Tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester