macro takes too long

[kylefoley76]

This macro is taking about 1 second to loop through just 1 iteration and it is a very simple macro. With about 700 interations it will take more than 11 minutes.

What is wrong?

Sub dates()


Dim thedate As Date


thedate = ActiveCell.Offset(-1).Value
Dim i As Integer
Application.ScreenUpdating = False




Do Until ActiveCell.Offset(0, 1) = ""
i = i + 1




    If ActiveCell.Offset(0, 2).Value <> "x" Then
    ActiveCell = thedate
    Else
    thedate = thedate + 1
    ActiveCell = thedate
    End If
ActiveCell.Offset(1).Select




Loop


Application.ScreenUpdating = True


End Sub

 

[kylefoley76]

I've revised that.

 

[kylefoley76]

Thanks the minor change I made when I said to the texan that the code works with only minor changes.

 

[Rick Rothstein]

Thanks the minor change I made when I said to the texan that the code works with only minor changes.

Just wondering if you saw Message #19...

 

[kylefoley76]

post 22 refers to post 19, I forgot to quote it. As always thanks for taking an interest in my thread, but then again on your webpage it says that you don't like one-liners that express gratitude, is that true?

 

[Rick Rothstein]

post 22 refers to post 19, I forgot to quote it.

I don't understand how your comment in Message #22 applies to my request that you time test the code I posted in Message #19?

..but then again on your webpage it says that you don't like one-liners that express gratitude, is that true?

Where does it say that at?