CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
guelfo

RESPONDIDO Dúvida com filtro VBA

Mensagem Recomendada

Bom dia,

 

Utilizo o código abaixo para filtrar os dados:

 

Sub filtro_john()
 
    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets(1).Unprotect Password:="123"
    
    Sheets("Presumido").Select
    flag = Range("A3").Value
    If flag = 0 Then
        Range("A3:P4").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A$3:$P$4").AutoFilter Field:=2, Criteria1:="2"
        Range("A3").Value = 1
    Else
        Range("A3:P4").Select
        Selection.AutoFilter
        Selection.AutoFilter
        ActiveSheet.Range("$A$3:$P$4").AutoFilter Field:=2, Criteria1:="2"
        Range("A3").Value = 1
    End If
    
    [a1].Select
        ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
  
End Sub
 
Gostaria de saber se existe algum comando para ocultar as linhas em branco e como seria para reexibi-las, pois ao filtrar os dados as linhas em branco ficam aparecendo no final.
Se não tiver jeito de ocultar, alguma forma de desconsiderar as linhas em branco para que elas não apareçam quando o filtro for aplicado.
PS: Não posso simplesmente excluí-las.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde,

 

Na verdade eu fiz de outra forma, utilizei o intervalo total, desta forma ele utilizou o criterio para toda a planilha, ficando assim:
  ActiveSheet.Range("$A$3:$U$600").AutoFilter Field:=2, Criteria1:="2"

 

Mas pesquisando achei este site: http://exceleoutrascoisas.blogspot.com.br/2011/07/tres-alternativas-em-vba-para-ocultar.html

que explica como ocultar as linhas em branco.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...