hvordan bruges today() rigtigt

Prøv denne i Workbook_BeforeClose:

Sheets("Ark1").Range("A1").FormulaR1C1 = "=TODAY()"

Brynil > det er jo også en formel, der vil ændre sig næste dag, mon ikke det skal være:

Sheets("Ark1").Range("A1")= Date()

Hej kabbak! 

Jeg synes også dit forslag ændrer datoen næste dag. Eller er jeg helt galt på den ? :))

Mit forslag ville være en if'er:

If Sheets("Ark1").Range("A1").Value = "" Then
    Sheets("Ark1").Range("A1").FormulaR1C1 = "=TODAY()"
End If

hvis han ikke vil ændre en eksisterende dato.

Men du må meget gerne skære den ud i pap for mig hvis du vil!

har lavet en knap der gør flg.....

Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "=today()"
    Range("B3").Select

jeg indsætter en linie i toppen af arket og derefter indsætter jeg dato i a3

kan ikke lige se hvor jeg skal sætte din line ind henne

PK

Nu ved jeg ikke præcist hvad du vil foretage dig hvornår. Men hvis du kun vil indsætte ny linie og dato hvis der ikke eksisterer en dato i forvejen, så prøv med denne:

    Rows("3:3").Select
    If ActiveCell.Value = "" Then
        Selection.Insert Shift:=xlDown
        ActiveCell.FormulaR1C1 = "=today()"
    End If
    Range("B3").Select

jeg vil gerne når jeg åbner arket gøre flg....

trykke på en knappe der gør flg
rykker alt en linie ned
indsætter dags dato i a3  datoen idag skal være der næste gang jeg åbner ark...
lige nu er det today() der står i a3 nåpr jeg åbner....

PK

Hvis du allerede har en dato i arket, så vil den jo blive rykket ned til A4 når du indsætter en ny linie.

Kan du beskrive hvad du ønsker der skal ske:

  når du trykker på knappen og der ingen dato er og
  når du trykker på knappen og der allerede er en dato

Vil du fx. ha' linieskift når der allerede er en dato i arket?
Skal datoen idag gemmes automatisk når du lukker din workbook?

Og er det teksten "today()" der kan ses i cellen eller er det den faktiske dato?

Og denne også til kabbak! Den var længe om at falde, enøren! Sorry

Du skal selvfølgelig ikke indsætte formlen i arket som jeg foreslog. Den vil jo opdatere arket hele tiden.

Så gør som kabbak foreslog, anvend istedet:

    Rows("3:3").Select
    If ActiveCell.Value = "" Then
        Selection.Insert Shift:=xlDown
        ActiveCell.Value = Date
    End If

Men den indsætter kun ny linie og dato hvis der ikke findes en dato i forvejen. Er det det du ønsker?

det er en log...
jeg skal indskrive nye data i toppen af arket
log skal i felt a3 forsynes med dags dato som også skal gemmes når jeg forlader arket...

Så burder det være nok med ændring iht kabbak:

Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Value = Date
    Range("B3").Select

det virker perfekt
smid et svar begge 2 så får i point
PK

Nej tak, smid dem til kabbak!  ;))

et svar, og undskyld at jeg var fraværende ;-))