Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mais critérios para...
 
Notifications
Clear all

Mais critérios para macro Agrupar/Desagrupar

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
4 Posts
2 Usuários
0 Reactions
917 Visualizações
RSS
 elielgdc
(@elielgdc)
Posts: 29
Eminent Member
Topic starter
 

Boa tarde!
Estou com o seguinte macro para se usar em botão de agrupar/desagrupar:

Sub Button1()

If Rows("17:18").EntireRow.Hidden = True Then
Rows("17:18").EntireRow.Hidden = False
ElseIf Rows("17:18").EntireRow.Hidden = False Then
Rows("17:18").EntireRow.Hidden = True
End If

Então como podem ver, ele está ocultando as linhas 17,18 e reexibindo quando clico novamente.
Porém eu queria adicionar mais linhas nesse macro, queria por exemplo poder ocultar as linhas 17,18;20,21;25,26;etc
Só consigo ir de uma ponta a outra, sem ter intervalos.

 
Postado : 17/09/2015 11:53 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ja tentou assim

Sub Button1()

If Rows("17:18, 20:21, 25:26").EntireRow.Hidden = True Then
Rows("17:18").EntireRow.Hidden = False
ElseIf Rows("17:18, 20:21, 25:26").EntireRow.Hidden = False Then
Rows("17:18").EntireRow.Hidden = True
End If

Nao testei mas acredito que de certo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/09/2015 12:13 pm
 elielgdc
(@elielgdc)
Posts: 29
Eminent Member
Topic starter
 

Não deu certo =/

 
Postado : 18/09/2015 7:04 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta assim entao

Rows("17:18").EntireRow.Hidden = False
ElseIf Rows("17:18").EntireRow.Hidden = False Then
Rows("17:18").EntireRow.Hidden = True

End If

If Rows("20:21").EntireRow.Hidden = True Then
Rows("20:21").EntireRow.Hidden = False
ElseIf Rows("20:21").EntireRow.Hidden = False Then
Rows("20:21").EntireRow.Hidden = True

End If

If Rows("25:26").EntireRow.Hidden = True Then
Rows("25:26").EntireRow.Hidden = False
ElseIf Rows("25:26").EntireRow.Hidden = False Then
Rows("25:26").EntireRow.Hidden = True

End If

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/09/2015 7:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico