Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Datum van laatste aanpassing File. Formule ???  (gelezen 12033 keer)

0 leden en 1 gast bekijken dit topic.

Offline Easy

  • Lid
  • *
  • Berichten: 47
  • Geslacht: Man
  • Only the sky is the limit
Datum van laatste aanpassing File. Formule ???
« Gepost op: 06 december 2005, 22:02:33 »
 ??? Is het mogelijk om in een bepaalde cel automatisch de datum weer te geven van de laatste aanpassing aan het werkblad.

Dus indien ik een excel file heb en in deze file een gegeven heb verander, dan zou er in een bepaalde cel in deze file de datum moeten komen van wanneer de file het laatst gewijzigd is. En dit natuurlijk automatisch...

Ps. Het is dus niet de bedoeling de datum weer te geven van wannneer de file het laatst opgeslagen is. De file kan zonder dat er een aanpassing is gebeurd ook opgeslagen worden.

Hopelijk een begrijpbare vraag met een al even begrijpbare oplossing.

Easy :-\
Windows Vista Business SP2 NLD
Intel(R) Core(TM)2 Quad  CPU   Q9550  @ 2.83GHz 2833
P5Q-E
NVIDIA GeForce 9600 GT 512MB 1680 x 1050
High Definition Audio-apparaat
Nr: 1 Model: SAMSUNG HD103UJ ATA Device

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Datum van laatste aanpassing File. Formule ???
« Reactie #1 Gepost op: 06 december 2005, 22:23:22 »
Easy

Je hebt VBA nodig dan. Ik heb wat code bij mekaar getypt om in cel A1 de datum van laatste aanpassing in te vullen wanneer je het bestand sluit:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Blad1").Activate
    ActiveSheet.Range("A1").Select
    Dim iResponse As Integer
        iResponse% = MsgBox("Wilt u 'laatste update' automatisch wijzigen?", vbQuestion + vbYesNo, "Nieuwe update")
    If iResponse = vbYes Then
        Worksheets("Blad1").Range("A1").Value = Now
    Else
    End If
End Sub

Dit alles kopieer je in VBA, in ThisWorkbook. Zorg ervoor dat het blad waar je de datum wil zetten, Blad1 is. OF: verander in de code 2 maal Blad1 in de naam van blad waar je de datum wilt zetten.

Dan maak je cel A1 nog op volgens: d/m/jjjj (uu"u"mm)

Succes ermee, en kap mij vast bij mijne kraag indien je nog vragen / suggesties / opmerkingen hebt.

WG
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Easy

  • Lid
  • *
  • Berichten: 47
  • Geslacht: Man
  • Only the sky is the limit
Re:Datum van laatste aanpassing File. Formule ???
« Reactie #2 Gepost op: 06 december 2005, 22:45:01 »
WG

Ik moet nu al passen. VBA heeft zich nog niet in mijn kleine hersentjes genesteld.
Ik ga het proberen met de gevens van u maar vrees dat ik de boeken zonder oplossing moet dicht doen.

Misschien kan je zo'n file via bijlage toevoegen zodat ik het beter kan ontcijferen.

Easy
Windows Vista Business SP2 NLD
Intel(R) Core(TM)2 Quad  CPU   Q9550  @ 2.83GHz 2833
P5Q-E
NVIDIA GeForce 9600 GT 512MB 1680 x 1050
High Definition Audio-apparaat
Nr: 1 Model: SAMSUNG HD103UJ ATA Device

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:Datum van laatste aanpassing File. Formule ???
« Reactie #3 Gepost op: 06 december 2005, 22:56:52 »
Sorry, was ff te snel blijkbaar! Mea culpa!

Toegegeven, je kan dit ding perfect laten werken zonder ook maar een jota te snappen van VBA. Gewoon vertrouwen op het werk en de kennis van mensen van oplossing hier, en that's done. Wat jij moet doen is (ik probeer de menus in het Engels op te geven aangezien je in het Engels werkt):

1/ Klik Tools - Macro - Visual Basic Editor. Je komt dan in het scherm van VBA terecht. Alt-F11 indrukken had ook gekund.

2/ Klik op VBA project (Book1) of iets in die stijl. Dat bevindt zich in het schermpje met als naam Project - VBAProject. Als dit laatste scherm er niet staat, kies dan Beeld - Projectverkenner (of iets dergelijks in het Engels).

3/ Binnen VBAProject (Book1), klik op het mapje Microsoft Excel-objecten.

4/ Klik op ThisWorkbook.

5/ Plak bovenstaande code in het venster. Trek je van de rest niets aan.

6/ Sluit af via het kruisje rechts boven, je bent nu terug in de oude vertrouwde Excel omgeving, en de code samenstellen is achter de rug :-)

7/ Maak je eigenlijke bestand.

8/ Volg de eerdere stappen in mijn eerste post. O.a. over de naam van het eerste tabblad.

9/ Als je je Excel bestand afsluit, word je gevraagd om de datum aan te passen. Die komt dan in cel A1.

Hopelijk helpt dit, en tot later indien vragen.

WG
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Easy

  • Lid
  • *
  • Berichten: 47
  • Geslacht: Man
  • Only the sky is the limit
Re:Datum van laatste aanpassing File. Formule ???
« Reactie #4 Gepost op: 07 december 2005, 07:31:53 »
 :)

WG

Ook zonder enige kennis van VBA is het mij via de door u aangereikte formule en gedetailleerde beschrijving gelukt.

THX

Easy
Windows Vista Business SP2 NLD
Intel(R) Core(TM)2 Quad  CPU   Q9550  @ 2.83GHz 2833
P5Q-E
NVIDIA GeForce 9600 GT 512MB 1680 x 1050
High Definition Audio-apparaat
Nr: 1 Model: SAMSUNG HD103UJ ATA Device

 


www.combell.com