Ändringsdatum i cell

[Martassen]

Hej!

Kan man på nåt sätt göra så att om

jag ändrar något i cell A5 exempelvis så ska datumet i A1 ändra sig till när jag gjorde ändringen ?

 

Tack på förhand!

 

[Martassen]

Oki. Tack. 

 

Redigerad 10 juni, 2020 av Martassen

[Martassen]

Japp. Datumet blir med massa nollor i klockslaget. Går det få med klockslag bara för att se att det fungerar?

 

Jag skrev Now istället för Date och korrekt? Tror det funkar!?

Redigerad 10 juni, 2020 av Martassen

[Martassen]

Ja när det var en som frågade mig typ. Vad är det för problem som dyker upp? 

[Monshi]

Händelsehantering körs VARJE gång något ändras på bladet och om de gör någon ändring på bladet kan du inte göra ångra det.

Framförallt om du har annan VBA-kod som skriver till bladet så kan händelser slöa upp rejält.

det kan man gå runt iofs med

Application.EnableEvents = false

och där fick jag Excel att krascha när jag testade OnChange.

Bara att skriva

 

Dim i As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    i = i + 1
    Range("a1") = 1
End Sub

Det kan man iofs lösa med

Dim i As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Me.Range("a1"), Target) Is Nothing Then
        i = i + 1
        Me.Range("a1") = i
    End If
End Sub

exempelvis eller just som jag skrev ovan

Dim i As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    i = i + 1
    Application.EnableEvents = False
    Me.Range("a1") = i
    Application.EnableEvents = True
End Sub

 

[Martassen]

Japp. Intressant.  Spontant känns det ju säkrast , enklast att man trycker in ett datum med ctrl shift kommatecken I cellen varje gång man gör en ändring? Eller vad tycker du? 
 

Annan grej är ju om man ska ha ändringsdatum i sidfoten. Varje gång man sparar boken så blir det datumet. Men om man då inte gör någon ändring och sparar ändå så blir ju datumet missvisande!? Har för mig det var så.