Página 1 de 1

Exibir Mensagem de Espera

Enviado: 06 Set 2021 às 10:46
por Saulo
Bom dia!
Existe atualmente uma macro atribuída ao botão “Converter Para PDF” que leva um tempinho para ser executada, então eu gostaria de exibir uma mensagem para o usuário indicando que aguarde a conversão do arquivo para pdf. Essa mensagem pode ser do tipo: "processando..., Aguarde..."
Desde já Agradeço.

Re: Exibir Mensagem de Espera

Enviado: 06 Set 2021 às 12:13
por Basole
Acrescente no inicio do seu codigo

Imagem
Código: Selecionar todos
Dim i               As Integer
     Dim f               As Integer
     f = 100
     
For i = 1 To f
   Application.StatusBar = "Processando...Aguarde....Progresso: " & i & " de :" & f & "... " & VBA.Format(i / f, "0%")
Next i

Application.StatusBar = False


Re: Exibir Mensagem de Espera

Enviado: 06 Set 2021 às 13:30
por Saulo
Boa Tarde Basole - 06 Set 2021 às 13:13
Acho que acrescentei o código no lugar errado. Anexei sua solução e a princípio não funcionou.
Por gentileza, poderia verificar ? anexei a planilha já com sua solução
Grato

Re: Exibir Mensagem de Espera

Enviado: 08 Set 2021 às 15:05
por Basole
De acordo com o arquivo que anexou, está funcionando de acordo.
O que está acontecendo é que a ação é muito rapido.
Voce pode aumentar o numero de loop n exemplo, de 100 para 500, por exemplo.