Je kan de formules ook beter in de array berekenen.
Heb je gelijk drie verschillende schrijfwijzen gezien van IF Then ELSE
Code:
For j = 2 To UBound(ar1)
c00 = ar1(j, 1) & "|" & ar1(j, 2) & "|" & ar1(j, 3) & "|" & ar1(j, 4) & "|" & ar1(j, 5) & "|" & ar1(j, 6) & "|" & ar1(j, 8) & "|" & ar1(j, 10)
[COLOR="#FF0000"]ar1(j, 11) = IIf(IsDate(ar1(j, 8)), Format(ar1(j, 8), "yyyymm"), 0)
If (ar1(j, 4) = "1903571" Or ar1(j, 4) = "1909744") Then ar1(j, 12) = ar1(j, 6) - ar1(j, 7) Else ar1(j, 12) = ""[/COLOR]
d(c00) = Application.Index(ar1, j, 0)
Next j
Heb je gelijk drie verschillende schrijfwijzen gezien van IF Then ELSE