Salve, @laiza-mendes! Bem vinda ao grupo do Planilhando!
Vc já montou um esqueleto de sua Pasta de Trabalho Excel para podermos ir te orientando nela? Isso facilita um montão, ok?
Anexa aqui mesmo o que vc já fez até agora pra vermos onde está a dificuldade...
Num exemplo sucinto, poderia se parecer com isso:
Sub EscondeLinhas()
Dim c As Range, x As String
For Each c In ActiveSheet.Range("C1:C20").Cells
x = Left(c.Value, 2)
If x = "06" Or x = "07" Or x = "10" Or x = "17" Then c.EntireRow.Hidden = True
Next c
End Sub
Postado : 22/07/2022 11:13 pm