Een formule vervangen door het formuleresultaat bij afsluiten van excel bestand

[lseverins]

Hoi,

Ik ben bezig met excel bestand.
Ik wil dat er zodra bijvoorbeeld in B1 een waarde staat dat erbij A1 de datum van vandaag komt te staan.
Hiervoor gebruik ik: =ALS(B1=0;"";VANDAAG()).
Deze formule komt in kolom A te staan in elke rij.

met F2 en F9 kan ik deze waarde overzetten in formuleresultaat.

Hoe kan ik dat automatisch doen bij het afsluiten van het bestand? En voor de velden in Kolom A met een datum?

Hopelijk is het verhaal een beetje duidelijk.

alvast bedankt!

Lenny

 

[edmoor]

Met dit in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each cl In Columns(1).SpecialCells(xlCellTypeFormulas)
        If IsNumeric(cl.Value) And cl.Offset(, 1) <> "" Then cl.Value = cl.Value
    Next cl
End Sub

 

[lseverins]

Hi edmoor,

Bedankt voor je snelle reactie.

Het werkt, behalve dat de formule nu ook word weggehaald in veld waar nog "" staat?
Is er ook iets dat de formule wordt opgezet als de waarde anders is dan ""?

alvast bedankt!

Lenny

 

[edmoor]

Ik had #2 net zo aangepast dat de formule alleen wordt verwijderd als de waarde een getal is en B gevuld.