Fill down formules

[verluc]

Op mijn werkblad heb ik in rij 3 formules staan;
Via VBA wens ik deze door te trekken tot de laatste gevulde cel van kolom A
Heb hiervoor een code gevonden :

Intersect(Range("C:C,F:F,H:K,M:N,S:U").EntireColumn, Range("3:" & LR).EntireRow).FillDown

doch deze code neemt ook de opmaak mee en ik wens enkel de formule.
Iemand een idee goe dit kan aangepast worden in excel 2003

 

[Haije]

wellicht door deze regel toe te voegen:

Intersect(Range("C:C,F:F,H:K,M:N,S:U").EntireColumn, Range("4:" & LR).EntireRow).NumberFormat = "General"

Of:

Intersect(Range("C:C,F:F,H:K,M:N,S:U").EntireColumn, Range("4:" & LR).EntireRow).ClearFormats

 

[verluc]

Zeer bedankt Haye. Kan hiermee verder.
Vraagstelling opgelost !!