Hallo, zou iemand mij kunnen vertellen hoe ik het beste de volgende code kan afronden zodat uitkomst #div/0! wordt veranderd in 0
Bedankt,
Dores
Code:
Range("BR3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-33]/RC[-39]<85%,RC[-39]*0.85,IF(RC[-33]/RC[-39]>105%,RC[-33]+2*(RC[-33]-1.05*RC[-39]),RC[-33]))"
Selection.AutoFill Destination:=Range("BR3:BW3"), Type:=xlFillDefault
Range("BR3:BW3").Select
lMaxRows = Cells(Rows.Count, "E").End(xlUp).Row
Selection.AutoFill Destination:=Range("BR3:BW" & lMaxRows), Type:=xlFillDefault
Dores
Laatst bewerkt door een moderator: