Página 1 de 1

Apagar macro e depois traze-la de volta

Enviado: 23 Ago 2019 às 09:45
por Diego100ges
Bom dia!
Pessoal, estou com uma dúvida, eu uso uma macro em uma planilha pra ocultar linhas de forma automática, porém eu não consigo mais utilizar CTRL+Z nesta planilha, é possível, construir uma macro para "pausar" ou desfazer e depois refazer essa macro, enquanto em precisar?
O código que gostaria de parar por certo tempo é esse:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Rows("18").Hidden = [J2] <> "EDP"
Rows("26:29").Hidden = [J2] <> "EDP"
Rows("38:39").Hidden = [J2] <> "EDP"
Rows("36:37").Hidden = [J2] = "EDP"
Rows("30:33").Hidden = [J1] <> "ENERGISA"
Rows("45:47").Hidden = [J1] <> "CEEE"
Rows("56:70").Hidden = [H17] = ""
Rows("72:86").Hidden = [H20] = ""
Rows("88:103").Hidden = [H22] = ""

End Sub


Muito obrigado!

Apagar macro e depois traze-la de volta

Enviado: 23 Ago 2019 às 10:05
por eduardogrigull
Qual seria o critério pra "pausar" a macro? Algum valor?

Re: Apagar macro e depois traze-la de volta

Enviado: 23 Ago 2019 às 10:10
por Diego100ges
Poderia ser apenas um botão, ai quando eu quiser alterar alguma coisa na planilha pausaria a macro e assim poderia usar CTRL+Z caso necessário e depois que eu fizesse as alterações poderia despausar a macro novamente.

Re: Apagar macro e depois traze-la de volta

Enviado: 23 Ago 2019 às 10:40
por Jimmy
Diego,

Coloque a macro abaixo no seu projeto, acionada por botão.

Quando acionar o botão, os eventos serão desligados, e a sua macro (acima) não mais rodará.

Acionando o botão novamente, os eventos são ligados, e assim por diante.
Código: Selecionar todos
Sub LigaDesliga()
Application.EnableEvents = Not Application.EnableEvents
End Sub
Jimmy San Juan