Ir ao conteúdo
  • Cadastre-se
eddie1106

Loop em Macro para calcular

Recommended Posts

Olá pessoal,

Tenho um arquivo com 3 planilhas: Plan1, Plan2, Plan3

Na Plan1 tem uma célula com fórmula =AGORA() e eu gostaria que enquanto essa planilha estivesse ativa que o excel continuasse calculando para a hora ir atualizando automaticamente.

Tentei algumas coisas com o evento

Worksheet_Activate() e o comando ActiveSheet.Calculate mas sem sucesso. A macro entrava em Loop infinito e não conseguia clicar em mais nada. Então gostaria de saber se consigo fazer uma macro para parar o a macro que entrava em loop infinito, e conseguir executar essa macro para parar ou alguma outra sugestão de como poderia fazer isso.

valeu

Compartilhar este post


Link para o post
Compartilhar em outros sites

Consegui pessoal:

__________________________

Option Explicit

Dim Segundo

____________________________

Sub ComecarRelogio()

AtualizarRelogio

End Sub

_______________________________

Sub PararRelogio()

' Cancels the OnTime event (stops the clock)

On Error Resume Next

Application.OnTime Segundo, "AtualizarRelogio", , False

End Sub

Sub AtualizarRelogio()

ThisWorkbook.Sheets("MONITOR").Calculate

Segundo = Now + TimeValue("00:00:01")

Application.OnTime Segundo, "AtualizarRelogio"

End Sub

Daí na Planilha:

_________________________

Sub Worksheet_Activate()

Call ComecarRelogio

End Sub

____________________________

Sub Worksheet_Deactivate()

Call PararRelogio

End Sub

E na pasta de trabalho

_________________________

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call PararRelogio

End Sub

_______________________

Falou

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×