Progress bar linked to Call sub

Hi,

I have a code that starts with a Sub where 5-6 Call are indicated

Call CTNtable
Call preprova
Call Riassunto
Call Finale
Call calcoli
Call verificapesi
Call aggiornamentofattspedite
Call Salvaespedisci

I'm trying to show a progress bar with percentage indicator that updates anytime it moves to the next Sub

For example, it starts with 0% indicator, when it starts with 'preprova' sub the indicator move to 15%, etc etc
is it feasible?
Thanks!

Please Login or Register  to view this content.

?

Thanks abousetta! But if I'm not wrong that code bases the progress on the time you set... not on Call event that the macro is performing, am I right?
If not, where should I indicate the references to each Call?

Thanks again!

An error message pops up:
"Ambiguous name detected"

and the code stops on "CTNtable" at the START OF CODE... Do you know why?

Thanks

The code is just perfect thank you! But I'd need your help for just one detail more.. If I can...

I added the following code to Progressnar.Userform in order to make it trasnparent and avoid the title be shown.


[I]Option Explicit


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Windows API calls to do all the dirty work!

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
'Lots of window styles for us to play with!

Private Const GWL_STYLE As Long = (-16) 'The offset of a window's style
Private Const GWL_EXSTYLE As Long = (-20) 'The offset of a window's extended style
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const transColor As Long = vbCyan
Private Const SW_SHOW As Long = 5
Private Const WS_CAPTION As Long = &HC00000 'Style to add a titlebar

Private Const WS_EX_DLGMODALFRAME As Long = &H1 'Controls if the window has an icon

'Constant to identify the Close menu item

Private Const SC_CLOSE As Long = &HF060

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub MakeFormTransparent()
Application.ScreenUpdating = False
Application.Visible = False


'http://www.vbforums.com/archive/index.php/t-396385.html

End Sub



It works actually, but when I click the command button of the Userform4 that Calls the CallingCTNtable sub and, hence makes the Progressbar useform appears , the title bar ("percentage completed") is still shown for the very beginning and after few seconds disappears and the label updates to 37%.
Furthermore, I am not able to see the label updates to 100% because it closes too fast

Pratically I'd like the title bar didn't appear ever and see the 0% indication (even if for few seconds), And of course see the 100% indication too ....

What can I do?

Thanks again for your help!