Datum vastzetten

[Botros]

Ik zit met een klein probleempje. Op één ding na ben ik bijna klaar met een bestand waar risico's in verwerkt kunnen worden in de vorm van een plan van aanpak. Nu vereist de arbowet dat je een deadline stelt aan een op te lossen punt.

Nu wil ik dat Excel de datum genereert a.d.h.v. de prioriteit van het risico.

Hiervoor heb ik de volgende formule:

=IF($D4<20;'02'!$G$4;IF($D4<70;'02'!$G$5;IF($D4<200;'02'!$G$6;IF($D4<400;'02'!$G$7;'02'!$G$8))))

'02'!$G$4 = geen datum
'02'!$G$5 = datum die je opgeeft+1085
'02'!$G$6 = datum die je opgeeft+365
'02'!$G$7 = datum die je opgeeft+84
'02'!$G$8 = vandaag

Nu wil ik dat de datum die je opgeeft automatisch de datum van vandaag wordt. En dat deze ook op die datum vast blijft staan. Dus niet dat zodra je de sheet de week daarop opent dat deze dan veranderd van de week daarop.

Heeft er iemand enig idee hoe ik dit kan oplossen?

Bvd!

Botros

 

[danny147]

Beste Botros

Hoe wil je deze op je blad zetten, via een knop een formule ?
Doe anders gewoon CTRL+; (druk op CTRL en punt komma)

Groetjes Danny. :thumb:

 

[Botros]

Beste Botros

Hoe wil je deze op je blad zetten, via een knop een formule ?
Doe anders gewoon CTRL+; (druk op CTRL en punt komma)

Groetjes Danny. :thumb:

Hey Danny,

Ik wil dat de kolom datum vast staat. Ik denk dat het makkelijker is als ik het beteffende bestandje naar je kan mailen. Hij is namelijk groter dan 100 kb en kan het daarom niet posten.

 

[danny147]

Beste Botros

Kan je het bestandje niet zippen of rarren ?

Hoe groot is het dan ?

Groetjes Danny. :thumb:

 

[Botros]

helemaal niet aan gedacht..

 

[Warme bakkertje]

Botros, voor het sluiten de cel naar zichzelf laten verwijzen zet de inhoud vast bv

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [a1].Value = [a1].Value
End Sub

Mvg

Rudi

 

[Botros]

Botros, voor het sluiten de cel naar zichzelf laten verwijzen zet de inhoud vast bv

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [a1].Value = [a1].Value
End Sub

Mvg

Rudi

deze werkt niet...

 

[snb]

Wel als je het werkblad specificeert:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [Blad1!A1].Value = [Blad1!A1].Value
End Sub

 

[Roncancio]

Je kunt ook een knop gebruiken en onderstaande code aan de knop toevoegen.

Worksheets("'02").Range("$G$8").Value = Date

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Wel als je het werkblad specificeert:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [Blad1!A1].Value = [Blad1!A1].Value
End Sub

Nee, ook niet. TS schreef namelijk:

niet dat zodra je de sheet de week daarop opent dat deze dan veranderd van de week daarop.

en dat gebeurd bij het afsluiten van het bestand.

Met vriendelijke groet,


Roncancio