Ocultar com condicional em excel

Question

Bom dia

Tenho uma folha Excel com várias linhas e colunas (óbvio 😅)

Em uma das colunas tenho várias opçoes, entre as quais Entregue.

Gostaria de saber se há forma de que todas as minhas linhas que tenham ENTREGUE fiquem ocultas automaticamente.

Obrigada

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá. Cabibi

Obrigado por usar os produtos da Microsoft e postar na comunidade.

Eu ficaria honrado em ajudá-lo com seu problema.

Eu percebo que você encontrou um problema de excel.

Aqui estão algumas maneiras que você pode consultar abaixo:

1. Usando a função de filtro

Selecione o intervalo de dados:

Selecione toda a área que contém os dados (incluindo a linha de cabeçalho).

Ativar filtragem:

Na faixa de opções do Excel, clique em Filtro de > de Dados.

Você verá uma seta suspensa ao lado do cabeçalho de cada coluna.

Filtre por 'Entregue':

Clique na seta suspensa da coluna que contém "Entregue".

Desmarque 'Entregue' e clique em OK.

Como resultado, todas as linhas que contêm 'Entregue' serão ocultadas.

Desmarque o filtro:

Se você precisar exibir novamente todas as linhas, clique na seta suspensa da mesma coluna e selecione 'Selecionar tudo'.

2. Código VBA

Você entende VBA?

Se você entende o VBA, pode tentar, se não foi exposto ao VBA, é recomendável que você não tente porque há um limite técnico.

Abra o editor VBA:

Pressione Alt + F11 para abrir o editor VBA.

Módulo de inserção:

Na janela do projeto à esquerda, clique com o botão direito do mouse no nome da pasta de trabalho e selecione 'Inserir' > 'Módulo'.

Colar código:

Insira o seguinte código no módulo e salve-o:

Sub HideDeliveredRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim col As Integer

    Set ws = ThisWorkbook.Sheets("Sheet1") ' Substitua “Sheet1” pelo nome de sua planilha.
    col = 2 ' Substitua 2 pelo número da coluna que contém “ENTREGUE” (por exemplo, 1 para a coluna A, 2 para a coluna B e assim por diante)

    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, col).End(xlUp).Row)

    Application.ScreenUpdating = False
    For Each cell In rng
        If cell.Value = "ENTREGUE" Then ' Determinar se o valor é ENTREGUE
            cell.EntireRow.Hidden = True
        Else
            cell.EntireRow.Hidden = False
        End If
    Next cell
    Application.ScreenUpdating = True
End Sub

Execute a macro:

Feche o editor VBA e retorne ao Excel.

Pressione Alt + F8, selecione HideDeliveredRows e clique em Executar.

Salve o arquivo:

Se você precisar salvar a macro, salve o arquivo no formato .xlsm.

Deixe-me saber se isso é contrário ao que você precisa.

Atenciosamente.

Petter.Y - MSFT | Especialista em suporte da comunidade Microsoft