- 21 Ago 2019 às 10:22
#47134
Bom dia, pessoal.
Estou com uma dúvida, estou usando um código em uma planilha para ocultar algumas células conforme o critério, porém eu não consigo mais usar o ctrl+z na planilha, e quando eu removo o código eu consigo usar, alguém sabe me explicar se é algo no código?
Estou usando o código assim:
Private Sub Worksheet_Change()
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
Estou com uma dúvida, estou usando um código em uma planilha para ocultar algumas células conforme o critério, porém eu não consigo mais usar o ctrl+z na planilha, e quando eu removo o código eu consigo usar, alguém sabe me explicar se é algo no código?
Estou usando o código assim:
Private Sub Worksheet_Change()
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
Ajude o fórum a funcionar melhor:
Deixe o LIKE quando o comentário for útil a questão.
Marque como RESOLVIDO, quando a demanda for atendida!
"A ambição universal do homem é colher o que nunca plantou."
Deixe o LIKE quando o comentário for útil a questão.
Marque como RESOLVIDO, quando a demanda for atendida!
"A ambição universal do homem é colher o que nunca plantou."