Ocultar linha com base em múltiplos critérios.

[Laiza dos Santos Mendes]

Pessoal estou aprendendo VBA , e estou  querendo ocultar todas linhas que o conteudo da celula comece com : 06 ou 07 ou 10 ou  17 . Exemplo na coluna C eu tenho alguma célula que tenha o valor 06-02 , então eu quero ocultar a linha porque o conteúdo começa com 06.

Editado Julho 22, 2022 por Laiza dos Santos Mendes

[Alyson Ronnan Martins]

Bom dia @Laiza dos Santos Mendes

Podemos fazer essa "ocultação de varias maneira" a que eu mais uso é o For para fazer um loop passando por todas as linhas e ocultando elas.

Exemplo:

Public Sub cOcultarLinhas()

Dim Coluna As Long
Dim ultimaLinha As Long
Dim charLeft As String

Coluna = 3 'Coluna "C"
ultimaLinha = ActiveSheet.Cells(Rows.Count, Coluna).End(xlUp).Row 'Pegar a ultima linha da coluna

For r = 1 To ultimaLinha
  charLeft = Left(ActiveSheet.Cells(r, Coluna).Value, 2) 'As duas primeiras letra
  If charLeft = "06" Or charLeft = "07" Or charLeft = "10" Or charLeft = "17" Then
    'Se uma das opções forem corretas ele vai ocultar a linha
    ActiveSheet.Rows(r).EntireRow.Hidden = True
  End If
Next r
 
End Sub