Boa tarde,

Tenho a barra de progresso quase ficando como pretendo. Só ainda não consegui colocar avançando conforme a macro vai executando os seus passos.

Veja-se, por favor, o anexo. Ela vai avançando de 1 em 1%, mas sem estar ligada (penso eu), nas execuções da macro. Isto torna-se particularmente interessante, pois a execução da macro não demora sempre o mesmo - varia conforme a máquina em que está trabalhando.

Agradecimentos.

Boa tarde!!!

Eu executei o código está rodando,não era isso ou dessa forma que vc precisa?

Veja a imagem em anexo.

Att

Boa tarde!!!

Sim, está rodando. É quase isto. Mas está um pouco lento, e não está acompanhando a execução da macro de gravação, entende?

Obrigada!

Boa tarde!!

Tente ajustar a rotina baixo.

Sub code()

Dim i As Integer, j As Integer, pctCompl As Single

For i = 1 To 10                 'Número de linhas (10), antes era 100
    For j = 1 To 6              'Interação de incremento em cada linha
        Cells(i, 150).Value = j 'Coluna ET que recebe os dados do laço
    Next j
    pctCompl = i
    progress pctCompl
Next i

End Sub

Att

Boa tarde!!

Se alterar para:

For i = 1 To 10

chegando aos 10% finaliza.

se alterar este:

For j = 1 To 6 

para, por exemplo:

For j = 20 To 20 

, avança muito mais rápido, mas mesmo assim não avança conforme a macro - verificando dados e copiando para a guia Registo de Ponto Diário.

A minha macro tem cerca de 14 rotinas. Assim, por exemplo quando chegasse às 7, a barra deveria estar nos 50%, e assim por diante...como neste exemplo que encontrei na net:

Option Explicit
 
'========================================================================
'Cover Macro to Test the Progress Bar
'========================================================================
Sub TestTheBar()
'Disable Screen Updating and Events
Application.EnableEvents = False
Application.ScreenUpdating = False
 
'Declaring Sub Level Variables
Dim lngCounter As Long
Dim lngNumberOfTasks As Long
 
'Initilaizing Variables
lngNumberOfTasks = 10000
 
'Calling the ShowProgress sub with ActionNumber = 0, to let the
'user know we are going to work on the 1st task. Also, set a
'title for the form
Call modProgress.ShowProgress(0, lngNumberOfTasks, _
                   "Excel is working on Task Number 1", False, _
                    "Progress Bar Test")
 
For lngCounter = 1 To lngNumberOfTasks
    'The code for each task goes here
 
    '
 
    'Call the ShowProgress sub each time a task is finished to
    'the user know that X out of Y tasks are over, and that
    'the X+1'th task is in progress.
    Call modProgress.ShowProgress(lngCounter, lngNumberOfTasks, _
                    "Excel is working on Task Number " & lngCounter + 1, False)
Next lngCounter
 
'Enable ScreenUpdating and Events
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Mas não tenho conhecimentos suficientes para conseguir adaptar na minha macro.

Att.

Boa tarde,

Será que alguém pode me ajudar?

Obrigada.

Bom dia,

Finalmente, creio que consegui. Com a ajuda do alexandrevba e com as ajudas aqui viewtopic.php?t=10541&p=55735. Alterei o código para:

Sub code()

Dim i As Long
Dim Tarefas As Long
Dim pctCompl As Single

Tarefas = 15
pctCompl = 100 / Tarefas * i

For i = 1 To Tarefas
    progress pctCompl
    pctCompl = 100
    
    UserForm2.text.Caption = " " & i & " de " & Tarefas & " "
    
    Next i        
                       
End Sub

Obrigada pela ajuda!!