Aanmaak-datum in cel

[Ommeren]

Hoi

Excel 2003.
Ben bezig een nota als sjabloon te maken.
Bij het openen van de sjabloon moet de aanmaakdatum van de nota in een cel worden geplaatst, die achteraf uiteraard niet meer gewijzigd wordt als de aangemaakte nota nog eens wordt geraadpleegd.
Hoe fix ik dat?

 

[arafy]

je kan volgende macro gebruiken:

Sub workbook_Open()

    
    Range("C4").FormulaR1C1 = "=TODAY()"
    Range("C4").Select
    Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

in C4 wordt dan de systeemdatum gezet.

steven

 

[GiMe]

Ben wel niet zo sterk in VBA maar denk toch dat er eerst dient gekeken te worden of cel C4 al dan niet een datum bevat. Zoniet wordt er bij een volgende opening van het document een nieuwe datum aangebracht.
Tevens zou de bewuste cel ,na het plaatsen van de datum , beveiligd moeten worden zodat ze niet meer kan gewijzigd worden.
Allez vooruit de VBA specialisten !

 

[Ommeren]

Hoi Steven,

Dank voor je reactie, maar dit werkt niet, want als ik 'later' de nota weer open wordt daar opnieuw de systeemdatum neergezet.
En dat is nou net de 'kern' van mijn vraag:

Bij openen sjabloon datum plaatsen.
Na opslaan van het (ingevulde) resultaat als *.xls mag die datum later niet meer worden aangepast aan de huidige.

Snap je'm ?

 

[arafy]

dan moeten we zoeken dat de macro "Workbook_open" gedeleted wordt bij het opslaan. ik heb het nog niet dadelijk gevonden. vermits je met een sjabloon werkt, heb je deze daarna toch niet meer nodig.

ook het punt van GiMe ivm beveiliging kan worden meegenomen.

steven

 

[Wigi]

Waarom kunnen we niet gewoon dit doen?

Sub workbook_Open()
    If Range("C4").Value = 0 Then Range("C4").Value = Date
End Sub

Wigi

 

[arafy]

Waarom kunnen we niet gewoon dit doen?

Sub workbook_Open()
    If Range("C4").Value = 0 Then Range("C4").Value = Date
End Sub

Wigi

wigi,

een slim idee. moet de waarde 0 zijn of "" (leeg)?

steven

 

[Wigi]

Dag Steven

Als het mogelijk is dat er een formule in staat die bvb. "" zou retourneren, dan zou ik rekening houden met een "". Anders werkt mijn voorstel goed.

Wigi

 

[Ommeren]

Bedankt mensen, prima oplossing die van Wigi.