Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA OCÚLTAR ...
 
Notifications
Clear all

MACRO PARA OCÚLTAR LINHAS

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,114 Visualizações
RSS
 Thiago R.
(@thiago-r)
Posts: 30
Eminent Member
Topic starter
 

Meus amigos, é simples. Eu tenho na célula A1 três opções de nomes, "MARCAS", "GENÉRICOS" e "PORTAL". Eu preciso que quando nessa célula A1 a palavra for "PORTAL", oculte as linhas 20,21,22,23,24,25 e 26. Nas demais opções de nome("MARCAS" e "GENÉRICOS"), eu preciso que essas linhas apareçam novamente.

Obrigado.

 
Postado : 21/08/2017 2:21 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Address <> "$A$1" Or Target.Value = "" Then Exit Sub
 If Target.Value = "PORTAL" Then Rows("20:26").Hidden = True Else Rows("20:26").Hidden = False
End Sub

Osvaldo

 
Postado : 21/08/2017 2:41 pm
 Thiago R.
(@thiago-r)
Posts: 30
Eminent Member
Topic starter
 

Osvaldo, obrigado pelo retorno. A Macro não funciona pois, na célula A1 eu tenho uma fórmula SE. Portanto, a Macro não entende a palavra "PORTAL", ela só funciona se eu digitar a palavra "PORTAL" na célula A1. Se for possível adaptar agradeço. Uma vez mais agradeço o retorno e aguardo.

Abraço.

 
Postado : 22/08/2017 9:28 am
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Tente com Target.Text = "PORTAL" ...

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 22/08/2017 11:17 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Utilize o código abaixo no lugar do anterior.

Private Sub Worksheet_Calculate()
 If [A1] = "PORTAL" Then Rows("20:26").Hidden = True Else Rows("20:26").Hidden = False
End Sub

Osvaldo

 
Postado : 22/08/2017 8:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico