Este fórum está sendo desativado

[JDuro]

Boas pessoal.

Pretendo inserir em algumas células do meu excel um duplo clique que faça hide/unhide (ocultar/mostrar) algumas linhas. No documento anexo:

- As células amarelas são para o duplo clique;
- E as laranjas para ocultar com o duplo clique.

É possível?

Abraço
João

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("3:3,9:9,16:16,21:21")) Is Nothing Then Exit Sub
 Select Case Target.Row
  Case 3: Rows("4:8").Hidden = Not Rows("4:8").Hidden
  Case 9: Rows("10:15").Hidden = Not Rows("10:15").Hidden
  Case 16: Rows("17:20").Hidden = Not Rows("17:20").Hidden
  Case 21: Rows("22:26").Hidden = Not Rows("22:26").Hidden
 End Select
 Cancel = True
End Sub

[JDuro]

Boa!!!!! Feito!!!

[JDuro]

Muito obrigado, OsvaldoMP