Excel 2003 - Como ocultar linhas indesejadas??

[jcgmcs]

Boa noite!! Amigos,

Como ocultar na planilha, tdas as linhas q tenham a celula escrita com < Teste - Indefinido >

Mas preciso q seja somente em cima da palavra < Teste > as ocultações.

Seria possível fazer isso??

Grato a tdos.

Carlos

[Patropi]

Bom dia Carlos

você tem que adaptar para a coluna que desejar.

Neste exemplo é aplicado na coluna A de A2 até A20.

Sub Ocultarteste()
Dim Intervalo As Range
Dim Célula As Range
Set Intervalo = [A2:A20]
For Each Célula In Intervalo
If Célula = "Teste" Then
Célula.EntireRow.Hidden = True
Else
Célula.EntireRow.Hidden = False
End If
Next Célula
End Sub

Dê retorno.

Att.

[jcgmcs]

Bom dia Carlos

você tem que adaptar para a coluna que desejar.

Neste exemplo é aplicado na coluna A de A2 até A20.

Sub Ocultarteste()
Dim Intervalo As Range
Dim Célula As Range
Set Intervalo = [A2:A20]
For Each Célula In Intervalo
If Célula = "Teste" Then
Célula.EntireRow.Hidden = True
Else
Célula.EntireRow.Hidden = False
End If
Next Célula
End Sub

Dê retorno.

Att.

Patropi, boa tde!!

Fiz a adaptação como abaixo:

Sub OcultarTeste()

Dim Intervalo As Range

Dim Célula As Range

Set Intervalo = [K5:K500]

For Each Célula In Intervalo

If Célula = "Teste" Then

Célula.EntireRow.Hidden = True

Else

Célula.EntireRow.Hidden = False

End If

Next Célula

End Sub

E não fez as ocultações na coluna.

Obs: Colei o código, abaixo de uma outra macro e lembrando q meu Excel é 2003 ok!!

Grato.

[Patropi]

Boa tarde Carlos

Baixe a planilha e faça o teste.

Eu coloquei uma Macro com botão para ocultar e outra para Exibir novamente.

coloquei mais uma linha de código para não tremer quando a macro está em execução.

http://www.sendspace.com/file/r11ez2

Dê retorno.

OBS. Quando você for responder não use o botão CITAR, use o botão responder que fica do lado esquerdo um pouco abaixo da janela de resposta,

Evite poluição desnecessária. Só clique em Editar quando for necessário.

Att.

[jcgmcs]

Brigaduuu de novo!! Nem tinha visto esse botão lá embaixo!!

vou testar, vlwwwwwww!!!

[jcgmcs]

Patropi, desculpe aee;

Mas conforme sua planilha, até funciona da maneira como você pensou, mas não é extamente o que eu pensei q ela fosse fazer. o que eu quero é que, quando eu tiver na coluna de K5 até K500, as escritas em algumas celulas qualquer, tipo ---> Teste Finalizado <--- e ao clicar no botão Ocultar linha, ele oculte apenas as que eu digitar "Finalizado" lá no código.

Será q deu pra entender?? Ta um pouco confuso nehh!!! Mas a ideia é simples.

Olha só, no seu modelo, se eu colocar em algumas celulas em K ---> Teste A, Teste B e Teste C <--- ele não oculta essas linhas, só se eu deixar apenas Teste nas celulas, assim como você deixou, entendeu!!

De novo, rsss. Quando eu tiver dentro de algumas celulas, as duas palavras ---> Teste Finalizado <--- quero ocultar as linhas q tenham a palavra "Finalizado" descartando de dentro da mesma celula a palavra "Teste" entendeu!! Ufahh rsss

É isso!! valeu.

Brigadão e no aguardo...

[Patropi]

Bom dia Carlos

Eu resolvi me baseando no que você digitou, veja:

Mas preciso q seja somente em cima da palavra < Teste > as ocultações.

VBA não é minha praia, vou deixar para os colegas te ajudarem.

Att.

[jcgmcs]

Rsss É... então!! é < Teste > de "Teste Finalizado" ou então < Finalizado > de "Teste Finalizado"

Quero poder escolher qual das duas palavras dentro da celula, usaria p/ poder ocultar as linhas tndeu!!!

Mas continuamos no aguardo dos colegas. valeu!!! e T+++

[jcgmcs]

Rsss É... então!! é < Teste > de "Teste Finalizado" ou então < Finalizado > de "Teste Finalizado"

Quero poder escolher qual das duas palavras dentro da celula, usaria p/ poder ocultar as linhas tndeu!!!

Mas continuamos no aguardo dos colegas. valeu!!! e T+++

Puuuuxa!! Ainda naaaada!!! Será tão difiiiici assim!!!

[zinhovba]

Bom dia!!

Seria isso????

Sub OcultarTeste()
Application.ScreenUpdating = False
Dim Intervalo As Range
Dim Célula As Range
Set Intervalo = [K5:K500]
For Each Célula In Intervalo
If Célula = "Teste" Or Célula = "Teste Finalizado" Then
Célula.EntireRow.Hidden = True
Else
Célula.EntireRow.Hidden = False
End If
Next Célula
Application.ScreenUpdating = True

End Sub

[jcgmcs]

Zinho!, boa tde amigo!

Primeiramente, muito obrigado a sua atenção ao meu Post. Mas ainda não é isso! Mas vamos lá...!!!

Anexei uma "Planilha exemplo" do nosso amigão Patropi, que quase acertou na mosca! Teria ficado perfeito!!! Mas tão baixe elaeee e veja os detalhes, a macro oculta apenas as linhas que tem a palavra < Teste > Mas preciso que oculte todas as linhas incluíndo as que estão como:

< Teste - Finalizado1, 2, 3, 4, e etc. > entendeu!!

É isso! To no aguardo.

Ops!! aqui está: http://www.sendspace.com/file/zzbool

[jcgmcs]

Zinho!, boa tde amigo!

Primeiramente, muito obrigado a sua atenção ao meu Post. Mas ainda não é isso! Mas vamos lá...!!!

Anexei uma "Planilha exemplo" do nosso amigão Patropi, que quase acertou na mosca! Teria ficado perfeito!!! Mas tão baixe elaeee e veja os detalhes, a macro oculta apenas as linhas que tem a palavra < Teste > Mas preciso que oculte todas as linhas incluíndo as que estão como:

< Teste - Finalizado1, 2, 3, 4, e etc. > entendeu!!

É isso! To no aguardo.

Ops!! aqui está: http://www.sendspace.com/file/zzbool

Eaeee!!??

[zinhovba]

Boa noite!!

Veja agora

http://www.sendspace.com/file/kh0uo8

Att

[jcgmcs]

Nooooooossa funcionouuu!!!!! XXXou de bola Zinhooo, Parabens meu amigo!!!

E muito obrigado mesmooo, você não tem ideia de como me vai ser útil isso!!

Mas e aquilo lá na Plan2, tbem faz parte da macro ou posso excluír???

E mais uma vez abrigado a tdos q tbem tentaram ajudar. Vlwwww!!!

[Patropi]

A Plan2 você pode excluir sem problema.

Att.

[Patropi]

Conforme solicitado, estamos reabrindo este tópico!

[jcgmcs]

Zinho boa noite!! é nóis de novo!

Infelizmente a macro tá dando erro.

Ela funciona apenas até a linha 99, daee pra frente, dá erro!!

Lembrando meu Excel é 2003, será q é tem haver??

No aguardo dos amigos...

[zinhovba]

Bom dia!!

Descreva a mensagem de erro!

Att

[jcgmcs]

Apos fazer um teste preenchendo a coluna até na linha K500, a msg de erro é essa abaixo, e com outros testes descobri q o erro se dá após a linha K99.

Erro em tempo de execução '1004':

Erro de definição de aplicativo ou de definição de objeto

e ao clicar em Depurar, ele entra lá no VBA e cai em cima dessa linha abaixo, com uma faixa amarela:

Set rData = Sheets("Plan1").Range("K5:K500" & Sheets("Plan1").Range("K" & Rows.Count).End(xlUp).Row)

[zinhovba]

Bom dia!!

Dê um duplo click em K1, depois digite a palavra Teste

http://www.sendspace.com/file/ewggbn

Att

[jcgmcs]

Zinho boa tde!!

Até gostei dessa nova opção de Condicional, muito interessante! Mas para a planilha (No trabalho) a qual estou adaptando a dita macro, prefiro a anterior. Ela é exatamente como eu havia imaginado. Até a linha 99 ela é perfeita. Rsss

Queria lhe pedir essa gentileza, se houver uma solução de correção, eu fico muito grato a você. Que aliás, qual a resposta você teria pra este problema, o porque deste erro após a linha 99 ???

T+++

Muito grato !

Att, Carlos

[jcgmcs]

Zinho boa tde!!

Até gostei dessa nova opção de Condicional, muito interessante! Mas para a planilha (No trabalho) a qual estou adaptando a dita macro, prefiro a anterior. Ela é exatamente como eu havia imaginado. Até a linha 99 ela é perfeita. Rsss

Queria lhe pedir essa gentileza, se houver uma solução de correção, eu fico muito grato a você. Que aliás, qual a resposta você teria pra este problema, o porque deste erro após a linha 99 ???

T+++

Muito grato !

Att, Carlos

ixiiiii!!

[jcgmcs]

ixiiiii!!

Pooooxaaa!!! Ainda Naaada!!

Ajuda pessoal!!

[jcgmcs]

Eaee Zinho...???

[jcgmcs]

Eaee Zinho...???

???