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
Priscila P Lima

RESPONDIDO criar macro para ocultar e reexibir linha dentro de um intervalo

Mensagem Recomendada

Boa noite, Estou tentando criar duas macros:
Uma para ocultar linhas vazias,dentro do intervalo das coluna (C13 a C61)

e outra para reexibir as linha anteriormente ocultadas.

alguém tem alguma dica de macro?

Editado por Priscila P Lima

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde Priscila,

 

Faça testes (em uma cópia do seu arquivo original) com os códigos abaixo.

 

Sub OcultaLinB1()
    Application.ScreenUpdating = False
    For Each myCell In Sheets("Plan2").Range("C13:C61")
        If myCell = "" Then
            myCell.EntireRow.Hidden = True
        End If
    Next myCell
    Application.ScreenUpdating = True
End Sub

 

Sub ReexibirLinB1()
    Application.ScreenUpdating = False
    For Each myCell In Sheets("Plan2").Range("C13:C61")
        If myCell = "" Then
            myCell.EntireRow.Hidden = False
        End If
    Next myCell
    Application.ScreenUpdating = True
End Sub

 

Markmzz

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tentei, contudo, aparece  "erro em tempo de execução 9 subscrito fora do intervalo"

Boa noite,

 

Você tem que ajustar a macro para o seu caso particular. No meu exemplo, a planilha que estou utilizando é a Plan2.

 

Veja no código abaixo o texto na cor vermelha.

 

Sub OcultaLinB1()

    Application.ScreenUpdating = False

    For Each myCell In Sheets("Plan2").Range("C13:C61")

        If myCell = "" Then

            myCell.EntireRow.Hidden = True

        End If

    Next myCell

    Application.ScreenUpdating = True

End Sub

 

Markmzz

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito obrigada. Deu certo.
Eu tinha alterado antes o nome da planilha com espaços e caracteres (cedilha e acentos). Ae dava o erro quando ia aplicar a macro.
Retirei os espaços e caracteres. Funcionou.

Muito obrigada. 
Excelente Macro. Havia testado outra anteriormente, mas era muito lenta.
 

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...