Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Ocultar "LINHA" com determinado valor.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
carlossantos



Mensagens : 1
Data de inscrição : 25/06/2014

MensagemAssunto: Ocultar "LINHA" com determinado valor.   Qui Jun 26, 2014 1:21 am

Boa noite.

Alguém pode customizar o código: ?

Sub oculta()
'
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A100")
For Each celula In faixa
Rows(celula.Row).Select
Selection.EntireRow.Hidden
= (celula.Value = "X")
Next
End Sub

Explicando:
Quando executar a macro, todas as linhas que a céluna da coluna "A" conter "X" ficarão ocultas.

O Problema é que eu uso em cima de uma planilha com no máximo 500 linhas, mas ao executar a macro o excel seleciona linha por linha e vai ocultando onde tem o "X".

Queria algo mais rapido, que não precise ir linha por linha.

Na coluna A eu irei inserir fórmulas pois em uma unica planilha listo mais de um tipo de relatório e em alguns pode conter 400 linhas e em outros somente uma linha, por isso quero a macro que oculte sozinho.

Obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ocultar "LINHA" com determinado valor.   Qui Jun 26, 2014 2:16 pm

Bom dia!!

Use o gravado de macro, grave uma usando autofiltro.

Eu fiz com 1000 linhas
Código:
Sub Macro1()
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$1000").AutoFilter Field:=1, Criteria1:="X"
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Ocultar "LINHA" com determinado valor.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ocultar última linha de lista
» widgets para toda linha wave. Espero que cutão :D
» [TUTORIAL] Flashplayer 11.0.1.152 em toda linha Wave !
» Atras da linha vermelha
» [RESOLVIDO]Valor de step

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: