Trying to Run a Loop inside a For Next Loop - Wont Loop

[EL_SB]

In one For loop not shown in the code I have found a cell (I, "T") And I've given it a value Wash2. Now the Column T is a list of times. For every row in column T after I, I want to add 15 mins to the previous time. I've set up a new counter as J which is I + 1, and want to loop the the end of the column which is the variable F15Last. Unfortunately I can only get it to execute once and not loop until F15Last. Any ideas?

Interface.Cells(I, "T").Value = Wash2
    J = I + 1
    Do While J <= F15Last


        Ref3 = Interface.Cells(J, "T")
'        Ref3 = Ref3 - Int(Ref3)
        CheckNow10 = Interface.Cells(J, "AA")
       CheckNow10.Value = Ref3
'        If Int(Ref4) - Int(Ref3) > 0 Then 'If time is in a new day need to change the day number
'        Interface.Cells(J, "S").Value = Interface.Cells(J, "S").Value + 1
'        Else
'        End If


        'Interface.Cells(J, "T").Value = TimeAdd + Ref3
        J = J + 1
    Loop

 

[StephenCrump]

It's difficult to diagnose a problem from an incomplete code snippet like this. However, I notice that your code has these two lines:

CheckNow10 = Interface.Cells(J, "AA")
CheckNow10.Value = Ref3

The first line assigns a value to CheckNow10, i.e. the default .Value property of Interface.Cells(J, "AA").
Which means that your code should error on the next line as CheckNow10.Value won't be a meaningful reference.

Alternatively, if you have declared CheckNow10 as a range variable, your code will error on the first line, because you need to Set CheckNow10 = Interface.Cells(J, "AA"))

If you're not getting an error message, you either have On Error Resume Next further up in your code (which is a dangerous practice) or an error handler that your code is jumping to?

 

[JoeMo]

Is Interface a variable that represents a worksheet or what?