Beste mensen,
Ik heb in VBA een werkende macro gemaakt:
Nu wil ik deze code nog verder aanvullen met nog meer IF & AND formules, maar de regel van VBA is vol en ik weet niet hoe ik verder kan gaan met de formule of nog meer regels kan toevoegen.
Wie weet hoe dit wel kan? Of kan de formule korter worden opgesteld?
Groeten,
Mark
Ik heb in VBA een werkende macro gemaakt:
Code:
With Range("M12:M212")
.FormulaR1C1 = _
"=Kraaneigenschappen!R9C13+(2.5*(IF(AND(RC[-9]<=Kraaneigenschappen!R12C2,RC[-9]>=Kraaneigenschappen!R12C4),2.42,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R11C2,RC[-9]>=Kraaneigenschappen!R11C4),2.66,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R10C2,RC[-9]>=Kraaneigenschappen!R10C4),2.89,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R14C2,RC[-9]>=Kraaneigenschappen!R14C4),1.96,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R15C2,RC[-9]>=Kraaneigenschappen!R15C4),1.7,0)))+((R6C3-2.5)*(IF(AND(RC[-9]<=Kraaneigenschappen!R12C2,RC[-9]>=Kraaneigenschappen!R12C4),2.42,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R11C2,RC[-9]>=Kraaneigenschappen!R11C4),2.66,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R10C2,RC[-9]>=Kraaneigenschappen!R10C4),2.89,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R14C2,RC[-9]>=Kraaneigenschappen!R14C4),1.96,0)+IF(AND(RC[-9]<=Kraaneigenschappen!R15C2,RC[-9]>=Kraaneigenschappen!R15C4),1.7,0)))"
End With
Nu wil ik deze code nog verder aanvullen met nog meer IF & AND formules, maar de regel van VBA is vol en ik weet niet hoe ik verder kan gaan met de formule of nog meer regels kan toevoegen.
Wie weet hoe dit wel kan? Of kan de formule korter worden opgesteld?
Groeten,
Mark