Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 14 van 14

Onderwerp: Datum enkel aanpassen wanneer het document gezwijzigd is.

  1. #1
    Senior Member
    Geregistreerd
    5 augustus 2017
    Vraag is opgelost

    Datum enkel aanpassen wanneer het document gezwijzigd is.

    Hallo iedereen, ik heb een werkblad waarbij onderaan staat 'laatst gewijzigd op'. In de cel ernaast wil ik dan dat de datum verschijnt enkel wanneer er effectief iets gewijzigd is aan het document. Hoe doe je dit?

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Dan krijg je zoiets:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 1 Then
            Range("X1").Value = Now
        End If
    End Sub
    In het voorbeeldje wordt een datum/tijd in X1 gezet als in kolom 1 iets wordt gewijzigd. Kun je wel aanpassen naar je eigen behoefte denk ik .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    En toch maar even aangepast naar je vraag. Dan krijg je dus dit:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 1 Then
            Target.Offset(0, 1).Value = Now
        End If
    End Sub
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  4. #4
    Senior Member
    Geregistreerd
    5 augustus 2017
    Ik neem aan dat dit moet ingegeven worden via VBA? En hoe precies want ik ken hier niets van.
    En hoe moet dit geactiveerd worden?

  5. #5
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    In welke cel moet die datum/tijd komen te staan.?
    Druk Alt+F11 voor de VBA editor.
    Met vriendelijke groet,
    Albert

  6. #6
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Quote Origineel gepost door Pascal321 Bekijk Bericht
    Ik neem aan dat dit moet ingegeven worden via VBA? En hoe precies want ik ken hier niets van. En hoe moet dit geactiveerd worden?
    Als je rechtsklikt op het werkblad waar je de code actief wilt hebben, kun je de complete code plakken. Werkt dan gelijk zodra je iets wijzigt in het werkblad.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  7. #7
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ AD1957: in cel B44, maar dat kan natuurlijk veranderen als er rijen bijkomen.
    Alt-F11 werkt trouwens bij mij niet, ik moet de VBA via het menu oproepen.
    Is trouwens toevallig gelukt. Maar hoe moet ik de code veranderen zodat ik enkel de datum laat verschijnen ZONDER het uur?

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Plaats het bestand even want de aangereikte oplossingen lijken mij niet overeen te komen met de vraag. Now veranderen in Date geeft alleen de datum.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Senior Member
    Geregistreerd
    5 augustus 2017
    @ VenA: Zie bestand in bijlage: betreft beurtenkaarten/abo's van leden binnen een sportclub
    In dit geval moet de datum in cel B32 automatisch aangepast worden naar de datum van aanpassing, ZONDER de tijdsweergave.
    Bijgevoegde bestanden Bijgevoegde bestanden

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dan zal het zoiets worden.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A2:J29")) Is Nothing Then Range("B32") = Date
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #11
    Mega Senior
    Verenigingslid

    Geregistreerd
    27 februari 2016
    maar dat kan natuurlijk veranderen als er rijen bijkomen.
    Koud kunstje voor @VenA
    Met vriendelijke groet,
    Albert

  12. #12
    Senior Member
    Geregistreerd
    5 augustus 2017
    Ok, dat lukt, thx.
    MAAR wat als er rijen toegevoegd worden in het werkblad? Dan klopt het blijkbaar niet meer.

  13. #13
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Als er rijen toegevoegd worden, betekent dat dan ook dat de datum naar beneden schuift? Waarom zet je die niet bovenin?

    Haal de datum eerst weg en vervolgens kun je onderstaande code gebruiken. Als er nieuwe rijen bijkomen worden die ook meegenomen.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A2:J" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then Range("M1") = Date
    End Sub
    of

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Cells(1, 1).CurrentRegion) Is Nothing Then Range("M1") = Date
    End Sub
    Laatst aangepast door JVeer : 19 oktober 2021 om 19:34
    Gr,
    JV

  14. #14
    Senior Member
    Geregistreerd
    5 augustus 2017
    Als er rijen toegevoegd worden, betekent dat dan ook dat de datum naar beneden schuift?
    Ja
    Waarom zet je die niet bovenin?
    Omwille van mijn autistisch brein vrees ik

    Tweede code werkt perfect wanneer ik rijen invoeg, thx!

    Wat me wel opvalt is dat wanneer ik iets wijzig in het werkblad (ik verwijder bijv iets in de tabellen) dan werkt de knop 'ongedaan maken' niet.
    Als ik daarentegen een nieuwe rij invoeg (en dus eigenlijk ook een wijziging aanbreng) kan ik dat wel ongedaan maken. Hoe komt dat?

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren