Auto-Macro/Temporizador  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Auto-Macro/Temporizador

Mensagempor LuisF » Qua Mar 25, 2020 4:36 pm

Boa Tarde!

Preciso adicionar a minha macro, um "time", temporizador, que a cada segundo , ela seja acionada, para que eu não precise ficar apertando o botão da macro

Código: Selecionar todos
Sub Macro000()
'
' Macro000 Macro
'

'
    Application.CutCopyMode = False
    Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("AR5:BB6"), CopyToRange:=Range("AR8:BB8"), Unique:= _
        False
    Range("BF10").Select
    Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("BD5:BN6"), CopyToRange:=Range("BD8:BN8"), Unique:= _
        False
    Range("BR11").Select
    Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("BP5:BZ6"), CopyToRange:=Range("BP8:BZ8"), Unique:= _
        False
End Sub
LuisF
Membro
Membro
 
Mensagens: 18
Registrado em: Qui Jan 09, 2020 3:36 am
Has thanked: 5 times
Have thanks: 0 time

{ SO_SELECT }

Re: Auto-Macro/Temporizador

Mensagempor kikoerick » Qua Mar 25, 2020 7:06 pm

Olá Luis, tente acrescentar no final (antes do End Sub) o seguinte código:

Código: Selecionar todos
Application.OnTime Now + TimeValue("00:00:01"), "Macro000"
Abraço!

kikoerick

Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!

For this post the author kikoerick thanked:
LuisF (Qua Abr 01, 2020 5:17 pm)
kikoerick
Membro
Membro
 
Mensagens: 98
Registrado em: Qui Jul 12, 2018 7:24 pm
Has thanked: 11 times
Have thanks: 28 times

Re: Auto-Macro/Temporizador

Mensagempor LuisF » Qua Abr 01, 2020 5:17 pm

kikoerick escreveu:Olá Luis, tente acrescentar no final (antes do End Sub) o seguinte código:

Código: Selecionar todos
Application.OnTime Now + TimeValue("00:00:01"), "Macro000"





O temporizador funciona, só que a macro esta em uma aba "Campo", e o meu dashboard esta em outra aba "Logistica", quando eu clico na aba da "logistica", ela buga toda a aba trazendo varias e varias informações com se tivesse colado, como faço para que a macro funcione apenas naquela aba "Campo".
LuisF
Membro
Membro
 
Mensagens: 18
Registrado em: Qui Jan 09, 2020 3:36 am
Has thanked: 5 times
Have thanks: 0 time

Re: Auto-Macro/Temporizador

Mensagempor kikoerick » Qua Abr 01, 2020 7:16 pm

Luis, infelizmente sem o arquivo, não consigo ajudar, pois eu precisaria ver o código inteiro funcionando.
Abraço!

kikoerick

Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!
kikoerick
Membro
Membro
 
Mensagens: 98
Registrado em: Qui Jul 12, 2018 7:24 pm
Has thanked: 11 times
Have thanks: 28 times

Re: Auto-Macro/Temporizador

Mensagempor kikoerick » Qua Abr 01, 2020 7:21 pm

Luis, achei aqui no forum a seguinte mensagem:

por leonardojones » Ter Jul 07, 2009 10:25 am
Se vc quiser que sua planilha fique atualizando (do se ficasse apertando F9) a cada segundo vc pode usar o codigo abaixo. Só que dessa forma é apenas para atualizar a planilha e não para ficar executando a Macro

Sub Auto_Open()
Atualiza
End Sub

Sub Atualiza()
DownTime = Now + TimeValue("00:00:01")
Application.OnTime DownTime, "Atualiza"
Calculate
End Sub

Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Atualiza", Schedule:=False
End Sub
Abraço!

kikoerick

Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!
kikoerick
Membro
Membro
 
Mensagens: 98
Registrado em: Qui Jul 12, 2018 7:24 pm
Has thanked: 11 times
Have thanks: 28 times

Re: Auto-Macro/Temporizador  [Resolvido]

Mensagempor kikoerick » Qua Abr 01, 2020 7:27 pm

Luis, outra possível solução

Sub Macro000()
'
' Macro000 Macro
'

'
Sheets("Pag Inic").Select

Application.CutCopyMode = False
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("AR5:BB6"), CopyToRange:=Range("AR8:BB8"), Unique:= _
False
Range("BF10").Select
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BD5:BN6"), CopyToRange:=Range("BD8:BN8"), Unique:= _
False
Range("BR11").Select
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BP5:BZ6"), CopyToRange:=Range("BP8:BZ8"), Unique:= _
False

Sheets("Dashboard").Select
End Sub
Abraço!

kikoerick

Se a resposta foi útil, agradeça clicando na mãozinha!! ... Se resolveu, clique em "resolvido"!!

For this post the author kikoerick thanked:
LuisF (Qui Abr 02, 2020 12:35 pm)
kikoerick
Membro
Membro
 
Mensagens: 98
Registrado em: Qui Jul 12, 2018 7:24 pm
Has thanked: 11 times
Have thanks: 28 times

Re: Auto-Macro/Temporizador

Mensagempor LuisF » Qui Abr 02, 2020 12:37 pm

kikoerick escreveu:Luis, outra possível solução

Sub Macro000()
'
' Macro000 Macro
'

'
Sheets("Pag Inic").Select

Application.CutCopyMode = False
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("AR5:BB6"), CopyToRange:=Range("AR8:BB8"), Unique:= _
False
Range("BF10").Select
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BD5:BN6"), CopyToRange:=Range("BD8:BN8"), Unique:= _
False
Range("BR11").Select
Sheets("Pag Inic").Range("B7:L1048576").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("BP5:BZ6"), CopyToRange:=Range("BP8:BZ8"), Unique:= _
False

Sheets("Dashboard").Select
End Sub






Essa Funcionou, porque esse vba, ao ser acionado, ele entra na aba da macro, aciona a macro e depois volta para a aba aonde eu estava. Muito obrigado
LuisF
Membro
Membro
 
Mensagens: 18
Registrado em: Qui Jan 09, 2020 3:36 am
Has thanked: 5 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot], Google Adsense [Bot] e 10 visitantes