one by one as if do it manually

[Hudson Andrew]

Hi all ,

I have one simple question in fact it's stupid too.


i have loop code like below . all i wanted is the code is working fine but i wanted the code to run slowly as if we do it using F8 . like as if we doing it manually one by one i tried all the steps but could not figured it out hence i am looking for help.

Sub looping()

Dim x As Integer


x = 1


Range("A1").Select






Do Until ActiveCell.Value = 10


ActiveCell.Offset(1, 0).Select


ActiveCell.Value = x


x = x + 1
Loop




End Sub

 

[JLGWhiz]

You won't be able to do any editing on the sheet, but this will stop the code so you can see what it did, then continue by clicking OK.

Sub looping()
Dim x As Integer
x = 1
Range("A1").Select
Do Until ActiveCell.Value = 10
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = x
x = x + 1
MsgBox "Click OK when ready to continue"
Loop

Or if you don't want the message box

Sub looping2()
Dim x As Integer
x = 1
Range("A1").Select
Do Until ActiveCell.Value = 10
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = x
    x = x + 1
    d = Timer + 1.5
         Do While Timer < d
              Do Events
         Loop
Loop

 

[JLGWhiz]

The Do Events should be DoEvents.

 

[Hudson Andrew]

Hello mate , This is really cool stuff.
another advice from you , from the below code how do i come to next column and then go up with the reverse order ?.

can that be possible ?.

Sub looping2()Dim x As Integer
x = 1
Range("A1").Select
Do Until ActiveCell.Value = 10
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = x
    
'    Do Until ActiveCell.Value = 10
'    ActiveCell.Offset(0, 1).Select
'    ActiveCell.Offset(-1, 0).Select
'    ActiveCell.Value = x
'    x = x + 1
    d = Timer + 1.5
         Do While Timer < d
              DoEvents
         Loop


Loop
End Sub

 

[JLGWhiz]

Sub looping2()
Dim x As Integer, d As Double
x = 1
Range("A1").Select
Do Until ActiveCell.Value = 10
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = x
    x = x + 1
    d = Timer + 1.5
         Do While Timer < d
              DoEvents
         Loop
Loop
x = 0
ActiveCell.Offset(, 1).Select
Do
    x = x + 1
    ActiveCell = x
    ActiveCell.Offset(-1).Select
    d = Timer + 1.5
        Do While Timer < d
            DoEvents
        Loop
Loop Until x = 10
End Sub

 

[Hudson Andrew]

Thanks mate . appreciate your help .

 

[JLGWhiz]

Thanks mate . appreciate your help .

You're welcome,
regards, JLG