Formules vervangen door vba code

  • Onderwerp starter Onderwerp starter poom
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

poom

Gebruiker
Lid geworden
1 mei 2013
Berichten
20
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!
 

Bijlagen

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.
 
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
 

Bijlagen

Omdat je "Goede middag heren" schreef ;)
 
Dat bedoelde ik inderdaad. ;)

Code:
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
 
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.
 
Graag gedaan, en insgelijks dezelfde wensen Piet.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan