06. oktober 2014 - 10:53Der er
4 kommentarer og 1 løsning
Automatisk indsættelse af dato
Hej,
Jeg sidder med et Excelark som jeg anvender som opgaveliste.
Hver opgave har sin egen linje og jeg kunne rigtig godt tænke mig at have overblik over hvilen dato der senset er blevet ændret i den enkelte opgave/linje.
For at undgå manuelle forglemmelser vil det være super hvis denne ændringsdato kan genereres automatisk af Excel.
Du kunne for eksempel bruge denne lille makro. Hvis der skrives i kolonne C skrives tidspunktet automatisk ind i tilsvarende celle i kolonne D
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C:C")) Is Nothing Then ActiveCell.Offset(0, 1) = Now() End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C:E")) Is Nothing Then Rkk = Target.Row Cells(Rkk, 8) = Now() End If End Sub
Jeg har rettet makroen til, så den passer til dit behov. Kopier den og højreklik på fanebladet og indsæt den under View Code
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.