title: Change cell value loop in VBA
body: <p>What I want this part of the code to do is if the value of cell H83 is greater than 22 then I want the code to increase the value of cell R14 which is 0.7 by an increment of 0.01 until either R14 reaches 0.75 or until H83 is less than 22. I have tried:</p>
  
  <pre><code>For j = 0.69 To 0.74
  w = j + 0.01
      If Range("h83") &gt; 22 Then
      Range("r14").Value = w
          If 21 &lt; Range("h83") &lt; 23 Then Exit For
      End If
  Next j
  </code></pre>
  
  <p>This doesn't work and right now I have it so it increases it by 0.01 only once (part in asterisks), full code:</p>
  
  <pre><code>Sub C_CreateTestResultTableV2()
  
  Application.ScreenUpdating = True 'helps the code run faster
  
  
  Dim vInputs, vResults()
  Dim c As Integer, i As Integer
  
  'create INPUTS
  c = Range("b5").End(xlToRight).Column
  vInputs = Range("b5", Cells(9, c))
      'determine last value in the column
      c = UBound(vInputs, 2)
  
  'create RESULTS
  ReDim vResults(1 To 4, 1 To c)
  
  For i = 1 To c
  
  'checks to see if t_air_in &gt; 22
  If vInputs(1, i) &gt; 22 And vInputs(3, i) &lt; 70 Then
      'set values
      Range("j18") = vInputs(1, i)
      Range("n14") = vInputs(3, i)
      Range("r16") = vInputs(5, i)
  
      'checks to see if t_air_out = 22 and changes t_wat_in and m_wat_in accordingly
      If Range("h83") &gt; 22 Then
      Range("r16").Value = Range("r16").Value - 3
      End If
  
      *If Range("h83") &gt; 22 Then
      Range("r14").Value = Range("r14").Value + 0.01
      End If*
  
      'copy output values into RESULTS
      vResults(1, i) = Range("h83")
      vResults(2, i) = Range("k83")
      vResults(3, i) = Range("z14")
      vResults(4, i) = Range("r15")
  
  End If
  
      'resets values
      Range("r16").Value = 13
      Range("r14").Value = 0.7
  
  Next i
  
  Range("b96").Resize(4, c) = vResults
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>