Hi everyone,

I have this VBA piece of code and want Activity value to be written
only if it is none-zero:

Do While varVect.PosValid
If varVect.Variable 0 Then
line = line + 1
CRngSolution(line, 1).Value = subMr.Value
CRngSolution(line, 2).Value = subAcf.Value
CRngSolution(line, 3).Value = subLo.Value
CRngSolution(line, 4).Value = varVect.Variable.Activity
End If
varVect.MoveNextPos
Loop

But it is still writing zeros and non-zeros! Anything wrong?

Thanks,
Mike