Ir para o conteúdo
pedromgantunes

[Resolvido] Tempo de espera no excel

Mensagens Recomendadas

pedromgantunes    0
pedromgantunes

Boas.

Tenho um pequeno programa em excel, no entanto gostaria de saber se é possível criar uma macro onde quando o prog. está à espera de um valor ( inputbox ) e o mesmo não for indicado seja executada uma outra macro.

Agradeço desde já a quem me possa ajudar.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Olá,

Não sei se entendi muito bem, mas o objectivo é se o resultado de uma inputbox for alguma coisa, executar uma macro, caso não se indique nada, executa-se outra. É isto ?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
pedromgantunes    0
pedromgantunes

Não, não me expliquei bem.

A finalidade é, estar um certo tempo à espera que seja indicado um valor numa inputbox, caso tenha decorrido esse tempo deve correr uma macro, caso tenha sido indicado um valor deve executar outra.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Não, a inputbox é modal, o que significa que não pode definir-se um tempo de espera. Quando ela (inputbox) está visivel todo o código para.

Porque não usar um userform ? Assim já dá.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
pedromgantunes    0
pedromgantunes

E qual é a forma de se iniciar a contagem de um tempo, e ao fim do qual se a userform não for preenchida sair dessa userform e passar para outra?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Tinha de ver como querias ... mas fica aqui um pequeno exemplo que já tinha colocado:

De tiveres dúvidas diz!

Private exitUserForm As Boolean

Private Sub CommandButton1_Click()
    exitUserForm = True
End Sub

Private Sub UserForm_Activate()
    Dim TimerStart As Long, TimerFinish As Long, TotalTime As Long

    PauseTime = 10 ' 10 segundos
    TimerStart = Timer
    Do While Timer < TimerStart + PauseTime
    
    
        If exitUserForm Then
            Unload Me
            Exit Sub
        End If
        DoEvents
    Loop
    TimerFinish = Timer
    TotalTime = TimerFinish - TimerStart
    
    Stop
    MsgBox "Erro!"

End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Por falta de informação do utilizador e por existirem respostas aceitáveis à pergunta efectuada, esta questão foi marcada como resolvida.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade