Is there a way to make the VBA codes run at a certain pace?

[PATSYS]

I know that I can ran the whole code (pressing F5) or manually run script by script (F8 for each line).

But is there a way to make it run like automatically but slower?

Thanks

 

[Norie]

What are you actually trying to do?

Is this for debugging purposes, or something else?

 

[PATSYS]

What are you actually trying to do?

Is this for debugging purposes, or something else?

Something else. I would like to illustrate to someone what the codes does but it is a long code so it is not very practical to press F8 for each line.

 

[Norie]

Well how about using breakpoints?

 

[Smitty]

Or you could break it up with Message Boxes I 'spose...

Smitty

 

[PATSYS]

Hmmn yes I will try both suggestions, probably go with msgbox.

Thanks guys.

 

[erik.van.geit]

Hi,

let me suggest a "Caveman technique"

1.
copy your code to column A
insert a row between all rows (there are tricks to do them all at once)

2.
in column B
=IF(A1="","Sleep CLng(t)",A1)

3.
paste back to VBA
and insert 2 codelines
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const t = 2000

example

Sub test1()
Range("A1") = Int(Rnd * 5555)
Range("A2") = Int(Rnd * 5555)
Range("A3") = Int(Rnd * 5555)
End Sub

  A                             B                             
1 Sub test1()                   Sub test1()                   
2                               Sleep CLng(t)                 
3 Range("A1") = Int(Rnd * 5555) Range("A1") = Int(Rnd * 5555) 
4                               Sleep CLng(t)                 
5 Range("A2") = Int(Rnd * 5555) Range("A2") = Int(Rnd * 5555) 
6                               Sleep CLng(t)                 
7 Range("A3") = Int(Rnd * 5555) Range("A3") = Int(Rnd * 5555) 
8                               Sleep CLng(t)                 
9 End Sub                       End Sub                       

test
[Table-It] version 07 by Erik Van Geit

RANGE FORMULA (1st cell)
B1:B9 =IF(A1="","Sleep CLng(t)",A1)

[Table-It] version 07 by Erik Van Geit

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
Const t = 2000

Sub test1()
Sleep CLng(t)
Range("A1") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A2") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A3") = Int(Rnd * 5555)
Sleep CLng(t)
End Sub

kind regards,
Erik

 

[PATSYS]

Hi,

let me suggest a "Caveman technique"

1.
copy your code to column A
insert a row between all rows (there are tricks to do them all at once)

2.
in column B
=IF(A1="","Sleep CLng(t)",A1)

3.
paste back to VBA
and insert 2 codelines
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const t = 2000

example

Sub test1()
Range("A1") = Int(Rnd * 5555)
Range("A2") = Int(Rnd * 5555)
Range("A3") = Int(Rnd * 5555)
End Sub

  A                             B                             
1 Sub test1()                   Sub test1()                   
2                               Sleep CLng(t)                 
3 Range("A1") = Int(Rnd * 5555) Range("A1") = Int(Rnd * 5555) 
4                               Sleep CLng(t)                 
5 Range("A2") = Int(Rnd * 5555) Range("A2") = Int(Rnd * 5555) 
6                               Sleep CLng(t)                 
7 Range("A3") = Int(Rnd * 5555) Range("A3") = Int(Rnd * 5555) 
8                               Sleep CLng(t)                 
9 End Sub                       End Sub                       

test
[Table-It] version 07 by Erik Van Geit

RANGE FORMULA (1st cell)
B1:B9 =IF(A1="","Sleep CLng(t)",A1)

[Table-It] version 07 by Erik Van Geit

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
Const t = 2000

Sub test1()
Sleep CLng(t)
Range("A1") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A2") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A3") = Int(Rnd * 5555)
Sleep CLng(t)
End Sub

kind regards,
Erik

Hi Erik,

Looks very interesting-will definitely try. BUt can you share with me the " trick" re

insert a row between all rows (there are tricks to do them all at once)

Thanks.

 

[erik.van.geit]

for example:
http://www.mrexcel.com/board2/viewtopic.php?p=1121151

have a nice day!
Erik