Este fórum está sendo desativado

[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!

[eduardogrigull]

Qual seria o critério pra "pausar" a macro? Algum valor?

[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.

[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