Excel - criar tópicos expansíveis

[rogerferrari]

eu gostaria de saber se é possível criar topicos expandiveis...

por exemplo:

eu digito um titulo

TÍTULO1

e nas celulas inferiores subtitulos:

subtitulo1

subtitulo2

subtitulo3

daí toda vez q eu clicar no TÍTULO1 ele mostra todos os subtitulos q estão nas linhas inferiores, e se eu clicasse de novo em TÍTULO1 ele ocultaria essas linhas.

[ronaldopcp]

Se depois de pronto os subtitulos, você não acrescentar mais algum, então dá pra fazer uma macro que oculte as linhas dos subtitulos associada a botões que se você clicar ora oculta, ora reexibe as linhas.

[rogerferrari]

opa! valeu pela dica, eu consegui fazer isso q você disse

mas precisei criar dois botões, cada um com uma função.

como q eu faço pra criar apenas um botão q ora oculta, ora exibe as linha inferiores?

[ronaldopcp]

Com um só eu não consigo fazer, tenho que fazer com dois, mas, se eu descobri a forma de fazer isso te mando a dica

[rogerferrari]

Consegui!

sua dica me ajudou muito!

pra fazer em um botão só eu fiz o seguinte:

Private Sub btnSubBS_Click()

If btnSubBS.Caption = "+" Then

Rows("x:y").Select

Selection.EntireRow.Hidden = False

Range("Z").Select

btnSubBS.Caption = "-"

ElseIf btnSubBS.Caption = "-" Then

Rows("x:y").Select

Selection.EntireRow.Hidden = True

Range("Z").Select

btnSubBS.Caption = "+"

End If

x,y e Z são icognitas referentes às linhas e a celula respectivamente