Este fórum está sendo desativado

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

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

[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 !!

[osvaldomp]

Olá, @LeoHenrique .

Experimente:

Código: Selecionar todos

Sub 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 todos

Sub ReexibePrimeiraLinhaVazia()
 Rows(Cells(Rows.Count, 2).End(3).Row + 1).Hidden = False
End Sub

[LeoHenrique]

Muito obrigado Osvaldo !! Código em uma só linha, top demais !!