VBA's Q? Printing None-Zero Valye ONLY

  • Thread starter Thread starter Mike
  • Start date Start date
M

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
 
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
Click to expand...

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.
 
Back
Top