Este fórum está sendo desativado

[AnaGalveias]

Boas,

Eu gostava de pedir uma ajuda, necessito fazer uma macro que me permita ocultar uma linha se numa determinada célula estiver escrito "OK", e voltar a mostrar se necessário através de uma botão ocultar e outro mostrar.
Imaginando que os meus dados começam na linha 5 e que na coluna D da linha 5 está OK essa linha deveria ser ocultada, se estiver "NOK" fica visível.

Podem ajudar-me

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub OcultaLinhas()
 Dim v As Long
  For v = 5 To Cells(Rows.Count, 4).End(3).Row
   Rows(v).Hidden = Cells(v, 4) = "OK"
  Next v
End Sub

Código: Selecionar todos

Sub ReexibeLinhas()
 Rows.Hidden = False
End Sub

[AnaGalveias]

por osvaldomp » 01 Out 2020 às 19:53
Experimente:

CÓDIGO: SELECIONAR TODOS
Sub OcultaLinhas()
Dim v As Long
For v = 5 To Cells(Rows.Count, 4).End(3).Row
Rows(v).Hidden = Cells(v, 4) = "OK"
Next v
End Sub


CÓDIGO: SELECIONAR TODOS
Sub ReexibeLinhas()
Rows.Hidden = False
End Sub


Tenho as células unidas o que altera a macro, pode ajudar? envio em anexo o documento

[osvaldomp]

Código: Selecionar todos

Sub OcultaLinhasV2()
 Dim v As Long
  For v = 4 To Cells(Rows.Count, 4).End(3).Row Step 2
   Rows(v & ":" & v + 1).Hidden = Cells(v, 4) = "OK"
  Next v
End Sub

dica - para responder não faça copiar/colar, clique em +Resposta localizado abaixo da última postagem

[AnaGalveias]

Não me está dar, só oculta 2 linhas e não a totalidade das linhas onde está o "OK"

[osvaldomp]

Disponibilize diretamente aqui no fórum o seu arquivo Excel com os códigos instalados.

[AnaGalveias]

Segue em anexo, agradeço a ajuda.
É normal que fique mais lento quando oculta as linhas?

[osvaldomp]

É normal que fique mais lento quando oculta as linhas?
Não.

Código: Selecionar todos

Sub OcultaLinhasV3()
 Dim v As Long
  For v = 15 To Cells(Rows.Count, 13).End(3).Row Step 8
   Rows(v & ":" & v + 7).Hidden = Cells(v, 13) = "OK"
  Next v
End Sub

Porque você disponibilizou antes um arquivo com planilha completamente diferente desta última