multy loop at once

[amateur1902]

 Range("F18").Select
    ActiveCell.FormulaR1C1 = "=Proper(BDP(RC[-2],""name""))"

    Range("N18").Select
    ActiveCell.FormulaR1C1 = "=BDP(RC[-10],""VOLUME_AVG_30D"")"

    Range("P18").Select
    ActiveCell.FormulaR1C1 = "=BDP(RC[-12],""px last"")"

    Range("r18").Select
    ActiveCell.FormulaR1C1 = "=BDP(RC[-14],""CHG_PCT_1D"")/100"

 

[killermenace]

Dit is een nederlands forum.
Vragen stellen mag dan ook in het nederlands gebeuren. Niet in het engels of een andere taal.

 

[ReneDirks]

Niet in het engels of een andere taal.

Haha, mooi ingedekt met "of een andere taal".. ik vroeg me net af of dit Engels was