Bom dia!!

O exemplos das postagens, não te ajuda?
http://www.google.com.br/cse?cx=partner ... ba%20macro

Att

Procurei e não encontrei ...

A questão seria a mensagem aparecer enquanto o excel efetua os calculos.
(aquela mensagem que aparece no rodape do lado direito "calculando...."), então... a mensagem ficaria visivel enquanto o excel calcula...
Ao terminar de calcular o Form ou mensagem automaticamente sumiria ou apareceria mensagem efetuado...etc

Igual aquele "aguarde", quando mudamos de pagina na internet....

Obrigado

Acredito que o que está querendo é uma Barra de Progresso, então veja no tópico abaixo se é isto :

Barra de Progresso (ProgressBar)
viewtopic.php?f=21&t=10557

[]s

Achei esse codigo abaixo, porem ele faz um contador no maximo de 32750 linhas....
e o ideal seria que esse contador estivesse vinculado ao calcular do proprio excel.

AH esqueci de falar...
Essa planilha que fiz e apenas o relatorio de uma outra planilha no qual utilizo o SOMAR PRODUTO ao inves do CONT.SES (ja que a planilha fechada o cont.ses não consegue calcular, o somar produto faz mesmo com a base fechada)...

Sub contar()

Dim Percentual As Single 'variável que armazena resultado de divisão
Dim contador As Integer 'conta atual quantidade de laços feitos
Dim limite As Integer 'apresentando uma variável para armazenar o valor máximo

limite = 32750 'atribui a quantidade máxima de células a serem preenchidas

Range("A1").Select 'seleciona coluna A para iniciar a contagem

For x = 1 To limite 'laço repete ação até variável limite. X é variável início e incrementada
ActiveCell = x 'atribui o valor atual de X na cálula ativa/selecionada
ActiveCell.Offset(1, 0).Select 'percorre uma linha abaixo e não muda de coluna

contador = contador + 1 'conta qual é a quantidade já realizada de ações
Percentual = contador / limite 'divide a quantidade feita pelo limite e a fração %

' Chama atualizaçao de barra
AtualizaBarra Percentual

Next x 'repete o laço se não chegou ainda no limite

frmProcesso.Hide 'fecha a janela (formulário) após concluir

End Sub
Sub AtualizaBarra(Percentual As Single) 'variável reservada para ser %
With frmProcesso 'With usa o frmprocesso para as ações abaixo
'sem ter que repetir o nome do objeto frmprocesso

' Atualiza o Título do Quadro que comporta a barra para %
.FrameProcesso.Caption = Format(Percentual, "0%")

' Atualza o tamanho da Barra (label)
.lblProcesso.Width = Percentual * _
(.FrameProcesso.Width - 10)
End With 'final do uso de frmprocesso diretamente

'Habilita o userform para ser atualizado
DoEvents
End Sub
Sub Executar()
frmProcesso.Show
End Sub

Achei esse codidgo tbm... Não sei se funciona prq não consigo efetuar funcionar

http://www.tomasvasquez.com.br/blog/mic ... o-do-excel

Perez, atualizei o anexo que indiquei, baixe e veja se ajuda, tem algumas explicações no mesmo, se pesquisar no Google, encontrara varios exemplos de Barra de Progresso, alguns bem simples e outros mais complexos, e pelos que já vi, a progressão está relacionada com o tempo de execução, como poderá ver no exemplo ao se alterar o tempo da execução, a principio o ideal é executar e ir ajustando o valor da progressão até chegar ao ideal. E sem ter seu modelo completo, fica dificil encontrar um valor ideal.

[]s

Mauro

Muito obrigado, estarei verificando.
Sobre o tempo de execução e meio que "incalculável" pois dependerá da quantidade de linhas x colunas preenchidas....

Para se ter ideia a formula que utilizo na planilha (utilizo o somar produto, pois como descrito acima o Cont.ses, não funciona se a base estiver fechada e como a base esta alocada fora do relatório utilizo o somar produto).

=SOMARPRODUTO(--('K:AREA MÉDICAJOSE PEREZArquivos_Base[Base Planilhas.xlsb]Planilha'!$H:$H=F$17)*(--('K:AREA MÉDICAJOSE PEREZArquivos_Base[Base Planilhas.xlsb]Planilha'!$W:$W=$B23)*(--('K:AREA MÉDICAJOSE PEREZArquivos_Base[Base Planilhas.xlsb]Planilha'!$P:$P=$C$11)*(--('K:AREA MÉDICAJOSE PEREZArquivos_Base[Base Planilhas.xlsb]Planilha'!$AC:$AC=$D$11)*(--('K:AREA MÉDICAJOSE PEREZArquivos_Base[Base Planilhas.xlsb]Planilha'!$AD:$AD=$E$11))))))

Ja fiz as adptações aqui com o codigo informado, AGRADEÇO muito....

Se conseguisse vincular ao "calcular do excel" ou souber de algo... agradeço mais ainda.....

Abraços e obrigado