MENSAGEM DE ESPERA ENQUANTO UMA MACRO E EXECUTADA

PHLAGOMARTINS 17/04/2013 15:52:43
#422075

Srs. Boa tarde

Estou automatizando um procedimento em Excel. Crie uma macro e atribui ela a um botão. quando o botão e acionado ela realiza os cálculos pré definidos. Porem são muitas operações e leva um certo tempo. Congelei o painel para que não sai da tela inicial, ou seja o usuário não vê a manipulação de dados. Quero saber como faço para colocar aquela ampulheta ou barra gráfica com uma mensagem ao usuário para aguardar o processamento de dados.

Se alguém puder me enviar o código e onde seria o local mais indicado para inserir o código.


abaixo segue um pedaço da macro

Sub CALCULO_FINAL()
[ô]
[ô] CALCULO_FINAL Macro
[ô]
Application.ScreenUpdating = False


Sheets([Ô]Calculos[Ô]).Select
Range([Ô]A7[Ô]).Select
ActiveSheet.PivotTables([Ô]Tabela dinâmica1[Ô]).PivotCache.Refresh
[ô] ##### ATIVA 1º TB PRINCIPAL

[A8:I59999].Copy: [K8].PasteSpecial (xlPasteValues): Application.CutCopyMode = False
[ô] ### COPIA E COLA VALORES DA 1º TB

[K8:K59999].Copy: [V8].PasteSpecial (xlPasteValues): Application.CutCopyMode = False
[ô]### COPIA E COLA ANO PARA ANALISE DE PASSAGENS

[N8:N59999].Copy: [Y8].PasteSpecial (xlPasteValues): Application.CutCopyMode = False
[ô]### COPIA E COLA OS ABERTA PARA ANALISE DE PASSAGENS

[T8:T59999].Copy: [Z8].PasteSpecial (xlPasteValues): Application.CutCopyMode = False
[ô]### COPIA E COLA PASSAGENS DE OS PARA ANALISE DE PASSAGENS

Sheets([Ô]Calculos[Ô]).Select
Range([Ô]Ab7[Ô]).Select
ActiveSheet.PivotTables([Ô]Tabela dinâmica2[Ô]).PivotCache.Refresh
[ô]### ATUALIZA 1º TB PARA DETERMINAR QUANTAS PASSAGENS E OS ABERTAS POR ANO

[ab8:ad10].Copy: [af7].PasteSpecial (xlPasteValues): Application.CutCopyMode = False
[ô] ### COPIA E COLAR O RESULTADO DA TABELA ACIMA

Application.ScreenUpdating = True
End Sub



Obrigado Pela ajuda