Formules vervangen door vba code

[poom]

Goede middag heren,

In bijgevoegd bestand zou ik graag de gebruikte formules in de
kolommen K t/m H vervangen door VBA code.
Mijn vraag is nu of dit überhaupt mogelijk is?

Bij voorbaat dank voor uw reactie!

 

[HSV]

1: Als je de boel met een wachtwoord beveiligd krijg je vast geen Vba code.
2: Je zult K t/m N bedoelen.

Ps. hier zijn af en toe ook dames die misschien willen helpen.

 

[poom]

Sorry, heb er niet bij stil gestaan dat het bestand beveiligd is,
zal alsnog een onbeveiligd sturen.
Wat je met p.s. bedoeld is mij niet helemaal duidelijk, vereist wat
toelichting.

poom

 

[edmoor]

Omdat je "Goede middag heren" schreef

 

[HSV]

Dat bedoelde ik inderdaad.

Sub hsv()
Dim cl As Range
 For Each cl In Columns(10).SpecialCells(2).Offset(1).SpecialCells(2)
    cl.Offset(, 1) = Evaluate("sumif(c2:c5000,""" & cl.Value & """,g2:g5000)")
    cl.Offset(, 2) = Evaluate("countif(c2:g5000,""" & cl.Value & """)")
    cl.Offset(, 3) = Evaluate("Int(if(" & cl.Offset(, 2) & "<>0," & cl.Offset(, 1) & "/" & cl.Offset(, 2) & ",""""))")
    cl.Offset(, 4) = Evaluate("if(" & cl.Offset(, 2) & "<>0,RoundDown(int(" & cl.Offset(, 3) & ")/" & 25 & ",2),"""")")
 Next cl
End Sub

 

[poom]

Harry,

Ik heb je code gebruikt en het werkt uitstekend!
Ik ben je dan ook zeer dankbaar dat ik gebruik mocht maken
van je kennis!
Excuus nog voor mijn onhandige entree!

Goede jaarwisseling en een vooral gezond 2015.
groetjes, Piet.

 

[HSV]

Graag gedaan, en insgelijks dezelfde wensen Piet.