Página 1 de 1
Ajuda Ocultar linhas
Enviado: 16 Mai 2022 às 18:17
por LeoHenrique
Olá pessoal !!
Preciso de uma ajuda... quero ocultar as linhas, a partir da última preenchida da coluna B até a linha 10.000. Já procurei um pouco, mas ainda não consegui resolver. Segue código que montei...
Dim Lin As Long
Lin = Cells(Rows.Count, 2).End(xlUp).Row + 1 'Até aqui funciona... consigo localizar a última linha preenchida e pulo para a debaixo
Rows("B" & Lin & "B10000").delete ' Aqui já não funciona
Se alguém puder ajudar, agradeço.
Re: Ajuda Ocultar linhas
Enviado: 16 Mai 2022 às 20:32
por osvaldomp
Olá, @LeoHenrique .
A coluna B contém fórmulas ?
No momento que você tentou aplicar esse trecho de código que você publicou qual era a última linha com dados na coluna B ?
Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel e informe quais linhas você deseja ocultar.
Esclareça também o que exatamente você quer fazer com as linhas, pois você colocou no título do tópico "ocultar linhas", e no entanto o comando Delete que você utilizou no trecho é para excluir a linha e não ocultar.
Re: Ajuda Ocultar linhas
Enviado: 16 Mai 2022 às 21:58
por LeoHenrique
Ok Osvaldo ! Já antecipo novamente os agradecimentos !!
A coluna B não têm fórmulas, segue a planilha em anexo.
Obs: Apaguei demais abas e códigos para que a planilha fique menor, deixei apenas o que preciso.
Obrigado !!
Re: Ajuda Ocultar linhas
Enviado: 17 Mai 2022 às 09:21
por osvaldomp
Olá,
@LeoHenrique .
Experimente:
Código: Selecionar todosSub OcultaLinhasVazias()
Rows(Cells(Rows.Count, 2).End(3).Row + 1 & ":10000").Hidden = True
End Sub
#
Caso lhe seja útil, este abaixo reexibe a primeira linha vazia abaixo da tabela para posterior preenchimento.
Código: Selecionar todosSub ReexibePrimeiraLinhaVazia()
Rows(Cells(Rows.Count, 2).End(3).Row + 1).Hidden = False
End Sub
Re: Ajuda Ocultar linhas
Enviado: 17 Mai 2022 às 14:40
por LeoHenrique
Muito obrigado Osvaldo !! Código em uma só linha, top demais !!