Jeg har på et tidspunkt brugt nedenstående makro til at få information om hvem der har lavet ændringer, hvad der er lavet af ændringer, og hvornår. Makroen skriver skriver 52 kolonner forskudt hvornår der laves ændring, hvem der laver den, samt den oprindelige tekst. Hvis der laves ændring 2 gange, bliver det gemt 53 kolonner forskudt og så videre. Makroen er lavet aktiv for området A1:A10. Måske kan det være til inspiration.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Dim OldValue As Variant Application.EnableEvents = False Application.Undo OldValue = Target.Value Application.Undo Application.EnableEvents = True If OldValue <> Target.Value Then Target.Offset(0, WorksheetFunction.CountA(Range(Target.Offset(0, 52), Target.Offset(0, 52))) + 52) = Now() & ", " & Application.UserName & " : " & OldValue End If End If End Sub
Lav en ny query men brug Files -> folders. Browse til din folder med tekstfilerne. Nu læses alle fil attributter ind. Filtrer på den du ønsker og vælg feltet Date Created. Fjern alle andre felter undtaget filnavn og Date Created. Tryk Close and load Du har nu en tabel med filnavne og oprettet dato.
xl enthusiast. Desværre ikke da det er personfølsomme data
Synes godt om
Ny brugerNybegynder
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.