Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Alterar Macro atravez de uma célula [Resolvido]

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Alterar Macro atravez de uma célula [Resolvido]   Seg Ago 29, 2011 10:53 pm

Boa tarde pessoal,
Quero fazer uma especie de despertador que abra uma msg de aviso após um determinado tempo.

O codigo para isso eu tenho:
Sub teste()
Application.Ontime Now + TimeValue("00:00:05"), "MinhaMacro"
End Sub


A mensagem virá em 5 seg. O que eu quero é poder alterar esse time de 00:00:05 sem precisar entrar no editor VBA, e sim atravez de uma celula, ou seja alterei a célula ex: A1 para o valor 02:00:00 e automaticamente a macro passe a trabalhar com esse valor e não mais 00:00:05. É possivel? Como?

Agradeço a ajuda.


Última edição por Erikson em Dom Set 04, 2011 2:47 am, editado 1 vez(es)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Ter Ago 30, 2011 1:36 am

Boa noite!!!

Vai ai algumas informações....de exemplos próximos.

http://www.tushar-mehta.com/excel/software/vba_timer/

http://snippetguy.blogs.sapo.pt/4888.html


Dim i As Long
Dim n As Date, l As Date

Sub func()

d = Time()
l = DateAdd("s", 5, Time)

Worksheets("Folha1").Cells(1, 1) = d
Worksheets("Folha1").Cells(1, 2) = l

i = 1
Do While d < l

Worksheets("Folha1").Cells(i, 3) = "ola"
i = i + 1
d = Time()

Loop

End Sub

Att....
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Ter Ago 30, 2011 6:05 pm

Bom dia,
Alexandre obrigado pela tentativa mas o código acima está dando erro "subscrito fora do intervalo". Os links indicados não atendem ao proposito da questão. Aguardo mais dicas.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Dom Set 04, 2011 2:46 am

Solução:

Sub Time_Alarme()
' O tempo para alarmar OnTime está definido para ser igual ao tempo da célula B1
Application.OnTime Now + Range("B1"), "MinhaMacro"
End Sub

Obs: o tempo deve ser no formato HH:MM:SS.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Dom Set 04, 2011 3:05 am

Boa noite!!

Parabéns !!!!!...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Dom Set 04, 2011 3:06 am

Boa noite!!

Parabéns !!!!!...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Seg Set 05, 2011 12:35 am

Boa noite e Obrigado pela colaboração.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Alterar Macro atravez de uma célula [Resolvido]   Hoje à(s) 10:56 am

Voltar ao Topo Ir em baixo
 
Alterar Macro atravez de uma célula [Resolvido]
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [resolvido] como alterar um rank
» [Resolvido] Alterar Rádio
» [Resolvido] Alterar a ordem do Rank e avatar
» [Resolvido] Alterar rodape do fórum (não é eliminar)
» [Resolvido] Quero alterar meu domínio

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: