VBA's Q? Printing None-Zero Valye ONLY

[Mike]

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

 

[Adrian C]

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

Try

If varVect.Variable.Activity > 0 Then

or look at what variable type varVect.Variable.Activity actually returns
for the above comparision. Maybe it's never exactly 0.