her er en kode der skriver dato for ændring i kolonne F, hvis der ændres i kolonne A Koden indsættes i det pågældende arks eget kodemodul (højreklik på arkfanen og vælg "vis programkode)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A5:A5000")) Is Nothing And Target.Cells.Count = 1 Then Target.Offset(0, 6) = Date End If End Sub
exelent -> Hvis man bruger din formel, vil datoen blive opdateret hver eneste gang excel kører en beregning. Så vil datoen jo blive sat til idag hvis der genberegnes uanset om det er referenceceller der ændres i eller nogle andre celler.
spild af tid, at hjælpe denne bruger, da vedkommende allerede har et stort set identisk spørgsmål, hvor der heller ikke er nogen respons: http://www.eksperten.dk/spm/693577
Det er da slet ikke spild af tid at besvare mit spørgsmål! Jeg er meget glad for hjælpen og har kun været medlem en uge, så undskyld! Jeg vidste ikke at man skulle give respons...:)
Sidste uge bad jeg om hjælp til at få vist dags dato i arket. Svaret var IDAG().
I dette spørgsmål beder jeg om hjælp til at få en referencecelle til at vise datoen for sidste redigering af en række. Således ville det altid være muligt at se hvornår man sidst har opdateret oplysningerne i lige præcis den række eller celle.
Når der opstår en diskussion som ovenfor, er det bare væsentligt at få afklaret, hvilken opfattelse af spørgsmålet, der er den rigtige. Og det oplever vi desværre nogle gange, at nye brugere ikke gør herinde. Derfor min, må jeg da erkende i bakspejlet, lidt harske kommentar. *S*
Jamen, lad mig så beklage over for både bak og excelent - Spørgsmålet kan måske tydeliggøres såedes: (Bak ser forresten ud til at have fanget problemstillingen)
Jeg sidder med et excelark hvor jeg registrerer en masse ordrer (En på hver linie, f.eks i A2-V2 = 1 ordre). Det jeg efterlyser er en metode hvorpå at jeg til sidst i linien kan se hvornår der sidst er blevet ændret i den (f.eks. W2 viser tidspunktet hvor A2-V2 sidst blev ændret). Jeg har forsøgt mig med bak´s kode, men kan ikke få den til at vise noget - Skal man skrive noget i den celle der skal skrive tidspunktet, for at få det til at virke?
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:V5000")) Is Nothing And Target.Cells.Count = 1 Then Range("W" & Target.Row) = Date End If End Sub
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.