Print side | Luk vindue

auto dato til en anden celle?

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=868
Udskrevet den: 06.Mar.2025 kl. 17:29


Emne: auto dato til en anden celle?
Besked fra: hopper78
Emne: auto dato til en anden celle?
Posteringsdato: 27.Aug.2012 kl. 12:24

Hej alle

Jeg er ved at rode med noget excel, er lidt grøn i det ;-)

Men jeg har en kolonne jeg skal skrive navne i, når jeg skriver et navn skal der automatisk komme en dato op i anden kolonne ved siden af...

Hvordan grejer man lige den?

Mvh
Hopper


Svar:
Besked fra: Søren Larsen
Posteringsdato: 27.Aug.2012 kl. 12:55
Det kommer an på hvilken dato, der skal komme frem...?

Besked fra: hopper78
Posteringsdato: 27.Aug.2012 kl. 12:56

Det skal være dags dato...

Besked fra: Søren Larsen
Posteringsdato: 27.Aug.2012 kl. 16:09
Du kan blot skrive =IDAG() i cellen ved siden af. Men så ændrer datoen sig, dagen efter. Hvis datoen skal "hard-codes" skal du bruge en makro, e.g.:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
        Application.EnableEvents = False

        Target.Offset(0, 1) = Date

        Application.EnableEvents = True
    On Error GoTo 0

End Sub

Det skal du indsætte i VB-editorens worksheet object.

Besked fra: hopper78
Posteringsdato: 27.Aug.2012 kl. 16:45
Der stod jeg lige af ;-)
 
Jeg er altså helt nybegynder...
 
Jeg ved godt det med =IDAG()
Men der skal ikke stå nogle dato i feltet før jeg skriver navnet i den anden celle...
 
 

Besked fra: Søren Larsen
Posteringsdato: 27.Aug.2012 kl. 23:11
Jeg forestiller mig, at du sidder med en situation, hvor du skal foretage nogle indtastninger, og så vil du gerne vide hvilken dato du tastede dem. Er det noget i den stil?

Du kan så blot taste datoen manuelt ved siden af, og kopiere/sætte ind ved siden af dine andre indtastninger samme dag.

Men hvis du vil slippe for det, så skal du bruge en makro, da formlen =IDAG() vil ændre sig til dags dato hver gang du åbner filen.

Makroen som jeg har givet i ovenstående, indsætter dags dato, som værdi og ikke som formel, til højre for en hvilken som helst celle, som du skriver noget i i det faneblad hvortil du knytter koden. Jeg kan godt indsætte koden i dit regneark, men hvis du ikke helt ved hvordan det fungere, så kan det hurtigt blive noget skrammel. Og desuden så skal koden nok ændres lidt, for at passe til dit konkrete projekt.

Jeg foreslår, at du læser lidt op på VBA, som for eksempel her:
http://www.ozgrid.com/VBA/run-macros-change.htm - http://www.ozgrid.com/VBA/run-macros-change.htm

Besked fra: hopper78
Posteringsdato: 28.Aug.2012 kl. 09:07
Nu blev jeg lidt klogere ;-)
 forestiller mig, at du sidder med en situation, hvor du skal foretage nogle indtastninger, og så vil du gerne vide hvilken dato du tastede dem. Er det noget i den stil?
Ja det er noget i den stil...
 
Jeg har indtastet den kode i "Worksheet" i Højre rulle menu står der "SelectionsChange"
 
Efter jeg har indtastet koden:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
        Application.EnableEvents = False
 

        Target.Offset(0, 1) = Date
 

        Application.EnableEvents = True
    On Error GoTo 0
End Sub
 
Går jeg op i "File" og save...
 
Men der sker ikke noget i dokumentet.
Har jeg gjort noget galt?
 
Jeg prøver lige at uploade filen, det er ark nr 5(Salg af væsker)
Jeg leger lidt med.
 
uploads/624/beregner.xls - uploads/624/beregner.xls
 
MVH
Hopper
 

Besked fra: hopper78
Posteringsdato: 28.Aug.2012 kl. 09:54
Hej igen
 
Nu virker det delvist.
 
Macro skulle åbenbart activeres før det virkede ;-)
 
Nu kommer datoen frem til højre, men datoen kommer så snart jeg trykker på feltet.
Den skal først komme når jeg har skrevet et navn og trykker enter..
 
MVH
Hopper

Besked fra: Søren Larsen
Posteringsdato: 28.Aug.2012 kl. 10:01
Husk at aktivere makroer! Ellers er der ingenting der kører.

Du har skrevet makroen det rigtige sted, du skal bare ikke bruge SelectionChange men bare Worksheet_Change.

Derudover så vil du nok gerne have datoen lagt til venstre for din indtasting. I så fald skal du ændre:

Target.Offset(0, 1) = Date

til

Target.Offset(0, -1) = Date

Besked fra: hopper78
Posteringsdato: 28.Aug.2012 kl. 11:17
Mange tak for hjælpen ind til videre ;-)
 
Nu virker det "næsten" som det skal ;-)
 
Det sidste er at:
 
Jeg har 3 kolonner.
 
Dato - Navn - Pris
 
Det virker fint at når jeg skriver navn, så kommer datoen op hvor den skal.
 
Men skriver jeg så pris bliver "navnet" erstattet af datoen.
 
Kan man gør noget så det kun er når jeg skriver et "Navn" at datoen popper op i feltet "Dato"?
 
MVH
Hopper

Besked fra: Søren Larsen
Posteringsdato: 28.Aug.2012 kl. 11:23
Så skal du definere hvilket område, der skal trigge makroen; e.g.:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    
        If Not Intersect(Target, Range("C:C")) Is Nothing Then
            Application.EnableEvents = False

                Target.Offset(0, -1) = Date

            Application.EnableEvents = True
        End If
        
    On Error GoTo 0

End Sub

Besked fra: hopper78
Posteringsdato: 28.Aug.2012 kl. 11:43
1000 tak for hjælpen.
 
Nu virker det lige præsic som jeg vil have det ;-)
 
MVH
Hopper

Besked fra: Søren Larsen
Posteringsdato: 28.Aug.2012 kl. 12:38
Det var så lidt!

\\ Søren


Print side | Luk vindue