Macro doortrekken

[verluc]

Hen een sheet met in kolom F de volgende formule :

=ALS(OF(D59<>0;E59<>0);F58+E59-D59;"")

Normaler wijze kan ik deze doortrekken naar onder, doch om reden dat verschillende
personen hieraan werken, wil ik vermijden dat één of andere een formule verwijderd en
dat alzo mijn berekeningen niet meer kloppen.
Kan dit niet worden uitgevoerd onder : Worksheet_change ? en alzo telkens deze formule één lijn bijvoegd wanneer er iets komt te staan in D of E
Met dank.

 

[snb]

private sub worksheet_Change(target .... )
  if target.column=4 or target.column=5 and cells(target.row,6).hasformula =false then cells(target.row-1,6).resize(2).filldown
end sub

 

[verluc]

Geweldig dank snb, specialist van de one-liners !!!