Como ocultar linhas via VBA se uma célula tiver um determinado conteúdo
Você gostaria de ocultar automaticamente todas as linhas com um determinado conteúdo usando uma macro? Imagine que você deseja ocultar todas as linhas se o texto "ocultar" aparecer em qualquer célula da linha correspondente. Este pode ser um aplicativo útil para limpar dados. Dê uma olhada na situação inicial na tabela a seguir:
Nesta tabela, queremos ocultar todas as linhas que contêm células que contêm um zero. Use a seguinte macro:
Ocultar linhas específicas ()
Dim Cell As Range
Para cada célula em ActiveSheet.UsedRange
Se Cell.Value = 0 And Rows (Cell.Row) .Hidden = False _
Depois, Rows (cell.Row) .Hidden = True
Próxima célula
End Sub
Se você iniciar a macro com, algumas linhas ficarão completamente escondidas, conforme mostrado na figura a seguir
Em cada uma dessas linhas, o texto "ocultar" aparece em alguma coluna. Se você deseja verificar outro critério em vez deste conteúdo, ajuste a comparação correspondente na macro.
Para mostrar todas as células novamente, pressione a combinação de teclas CTRL A e selecione a função INICIAR - FORMATO - FADE OUT & FADE IN - MOSTRAR LINHAS (Excel 2007 e Excel 2010) ou FORMAT LINE - FADE IN (Excel até a versão 2003). Como alternativa, você pode usar a seguinte macro para fade in:
Mostrar subtodos
Cells.Rows.Hidden = False
End Sub
Para inserir uma das macros, pressione a combinação de teclas ALT F11 no Excel. Isso chama o editor VBA. Use o comando INSERT - MODULE para inserir uma folha de módulo vazia. Para iniciar uma das macros, pressione a combinação de teclas ALT F8 no Excel.