Datum laatste wijziging

[nieko]

Hoe kan ik in excel automatisch laten zien wanneer er gemuteerd is in het tabblad?

 

[tilpi]

Extra>Wijzigingen bijhouden>Wijzigingen markeren.

Mvg

Piet

 

[robdgr]

Nieko,

Zet deze code vast onder een knop en er is slechts één handeling vereist om de mutatiedatum vast te zetten:

Sub Vandaag()
'
' Vandaag Macro
'

'
Application.ScreenUpdating = False
    Selection.Insert Shift:=xlToRight
    Selection = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True
 
End Sub

 

[nieko]

Ik doel meer op een datumveld zodat je versiebeheer gaat krijgen. Dus wijzigingen markeren vind ik geen optie.

De andere optie vind ik link omdat als zij vergeten de knop te drukken zie ik de wijzigingsdatum niet.

 

[Wigi]

Nieko,

Zet deze code vast onder een knop en er is slechts één handeling vereist om de mutatiedatum vast te zetten:

Sub Vandaag()
'
' Vandaag Macro
'
Application.ScreenUpdating = False
    Selection.Insert Shift:=xlToRight
    Selection = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True
 
End Sub

Bwaah, Ctrl-; werkt ook

 

[nieko]

Wigi: sorry hoor maar ik snap ctrl- niet!

 

[Wigi]

Houd Ctrl toets ingedrukt en druk dan op de toets van punt komma.

Dan komt de huidige datum in de cel te staan.

 

[nieko]

Oké, weer wat geleerd. Maar kan dat niet automatisch als er iets verandert tov de vorige keer?

 

[Wigi]

Met VBA.

Je zou bvb

Sheets("naamvanhetblad").Range("celadres").Value = Date

kunnen zetten in een Workbook_BeforeClose event. Dan komt de datum in die cel te staan net voor je afsluit.

Uiteraard ook indien je niets veranderd hebt in de sheet.

Wigi

 

[robdgr]

Bwaah, Ctrl-; werkt ook

Wigi,

'K wist niet dat je kwaad werd, maar vond de oplossing wel mooi

 

[nieko]

hahaha, nee hoor. Sorry als het zo overkwam

 

[Wigi]

Gene paniek, ik word niet vaak kwaad

 

[Hoornvan]

Nico,

Bedoel je zo iets?

Dit is te vinden op www.radjesh.nl

 

[DMO]

Nee hij heeft het over exel

 

[Ginger]

...kleine aanvulling op de regel van Wigi....
Deze methode kijkt eerst of er werkelijk iets is aangepast in de sheet.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ThisWorkbook.Saved = False Then
        Sheets("naamvanhetblad").Range("celadres").Value = Date
        ThisWorkbook.Save
    End If

End Sub

Zo ja, zet de datum in de gekozen sheet & cel en sla het workbook op.

Groet, Leo

 

[nieko]

Even een reactie op Wigi en Ginger,


Sorry hoor, maar ik heb geen verstand van vba.

Moet ik een knop laten verwijzen naar de code met een macro??

Of moet ik VBA openen en de code daarin plakken?

 

[Ginger]

Nieko, Yep, je moet inderdaad deze code copieren en plakken in je VBE. Het openen doe je door vanuit Excel op Alt+F11 te drukken. De editor wordt dan geopend. Aan de linkerkant zie je de 'object browser'. Als het goed is, zie je daar de naam van je workbook staan. Klap deze eventueel open door op het 'plusje' te klikken. Je ziet dan de module ThisWorkbook. Plak daar mijn code in.
Verander eerst nog ff de naamvanhetblad en celadres in de coderegel. De dubbele quotes moet je trouwens in beide gevallen netjes laten staan. Uiteindelijk zal de regel er zoiets uitzien

Sheets("Sheet 1").Range("A1").Value = Date

(maar ieder andere bladnaam en celnummer kan natuurlijk!)

Sluit je editor (kruisje) en sla je workbook op. Vanaf nu zal je in je opgegeven cel de datum zien verschijnen als er iets in je workbook is gewijzigd. Een knop is dan niet nodig.

Groet, Leo

 

[Hoornvan]

DMO,

Als je even de moeite had genomen om op de link te klikken die er bij staat,
dan had je kunnen zien dat het over Excel gaat. www.radjesh.nl - Excel - Sheet 1.05

Mvg, Wim

 

[nieko]

Hoi Ginger,



Ik heb dit gekopieerd in "thisworkbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.Saved = False Then
Sheets("blad1").Range("a1").Value = Date
ThisWorkbook.Save
End If

End Sub

afgesloten en macro's ingeschakeld in office 2007 maar ik zie geen resultaat

 

[nieko]

Ha, het lukte :thumb::thumb::thumb: geweldig !!!

Super bedankt!!!!