Auto-Macro/Temporizador

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: 12
Registrado em: Qui Jan 09, 2020 3:36 am
Has thanked: 2 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"!!
kikoerick
Membro
Membro
 
Mensagens: 63
Registrado em: Qui Jul 12, 2018 7:24 pm
Has thanked: 6 times
Have thanks: 14 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: FarahA e 4 visitantes