Return current running code line

[elbayedh]

Hello,

Here is the story:
I am trying to create a progress bar that it's max is the number of code lines in the macro's module-

C = ActiveWorkbook.VBProject.VBComponents("macro1").CodeModule.ProcCountLines("module", vbext_pk_Proc)

This will return how many lines of code I have, thus:

Userform1.ProgressBar.Max = C

Now, what I am trying to do is something like this, which will be running along side of the module...

UserForm1.ProgressBar.value = CURRENT RUNNING LINE NUMBER

Any ideas???

Thank you in advance guys

 

[mikerickson]

There isn't a feature for this in VBA, but a work around could be a Public Variable, CurrentCodeLocation

And putting

CurrentCodeLocation = CurrentCodeLocation + 1

every other line might help you.

 

[elbayedh]

I was thinking about that, but there are about 1154 lines of code in one module and there are 4!!!
The amount time it would take is long to do.

I had another idea but I don't know how it can be done.

For i = 1 To C
Call ActiveWorkbook.VBProject.VBComponents("Macro1").CodeModule.ProcCountLines("Module", vbext_pk_Proc).Lines(i, 1)
UserForm1.ProgressBar.Value = UserForm1.ProgressBar.Value + 1
Next i

This would work I think only if I can make it run the command!

 

[mikerickson]

Leave the code module alone. (The call statement won't work, you can't call subs line by line). Don't bother with it.

Find some key points in your code and advance the progress bar at those points.
Note that some lines take longer to excicute than others.

For i = 1 to 1000
    ' some code
Next i
Call IncreaseBarLength

For i = 1 to 10000
    'Some other code
    If (i Mod 1000) = 0 The Call IncreaseBarLength
Next i

 

[elbayedh]

That's a bummer, thought I can out smart the VBA lol

I have done what you have suggested, but I was looking for a way to make it cleaner, there are about 8 loops that take a wile to complete and they + 1 the value of the progress bar. but of curse the remaining time it will be still.

So there isn't a better way to do it? :'(