Notifications

Clear all

Auto-filtro.Esconder uma linha inteira ao detectar palavras

Página 1 / 2 Próximo

2024 - Excel - O básico

Post Recente por TheZein 13 anos atrás

24 Posts

2 Usuários

0 Reactions

4,659 Visualizações

RSS

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Pessoal,
O pessoal aqui do fórum me deu uma baita ajuda para ordenar a tabela de dados da web automaticamente, agora peço a ajuda de voces para outro 'improvement'.

A minha planilha é atualizada constantemente via Dados da Web e gostaria de poder esconder Linhas inteiras da planilha. Penso em setar uma série de palavras (de acordo com a minha necessidade) e a cada atualizada da planilha o macro (ou programação) identificar estas palavras e esconder as linhas.

EXEMPLO: Segue uma ilustração do que pretendo fazer:

Seto as palavras "Aphyosemion" e "Josecarlosmatosgarcia" (quero setar as palavras de acordo com a minha necessidade)

O filtro ESCONDERÁ (ou removerá) TODAS as colunas que contém estas palavras a cada atualizada na planilha.

Arquivo anexo.
http://www.sendspace.com/file/9rtpmt

Obrigado mais uma vez.

Postado : 01/04/2012 12:49 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Não sei se entendi.

Mas teste e veja se vai dar certo, não foi testado.

Sub Teste()
    Dim r As Long, LastRow As Long
    LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    For r = LastRow To 2 Step -1
        If Cells(r, 1) <> "Aphyosemion" And _
        Cells(r, 2) <> "Josecarlosmatosgarcia" Then
            Rows(r).EntireRow.Hidden = True
        End If
    Next r
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 2:32 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Aonde eu coloco o codigo ?

Postado : 01/04/2012 4:03 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Coloque em um módulo e use a Call, para chamar essa rotina.

Só lembrando que você recebe dados automticamente.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 4:10 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Desculpe ai, mas não entendi Alexandre.

Postado : 01/04/2012 4:45 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

boa noite!!

Com a sua planilha berta. digite Alt + F11, depois Alt + I + M, e cole a rotina.

Depois de tudo use o comando Call e o nome da rotina dentro do Evento Private sub.
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 4:50 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Sim. Fiz isso digite "Alt + F11, depois Alt + I + M, e cole a rotina.". Mas a segunda parte "use o comando Call e o nome da rotina dentro do Evento Private sub. ". Não estou sabendo.

Postado : 01/04/2012 5:09 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Veja a imagem.

Em baixo de Call Alt_Class

Coloque Call teste esse é o nome da rotina tem que está escrito corretamente, por favor confira.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 5:12 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Opa, estamos quase lá !
Na verdade é para esconder/apagar todas as linhas que tem "Aphyosemion" e "Josecarlosmatosgarcia"

Postado : 01/04/2012 5:21 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Não entendi, é esconder ou é deletar?

Mude a linha de:

Rows(r).EntireRow.Hidden = True

Para:

Rows(r).EntireRow.Delete

faça os teste.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 5:26 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Tanto faz, o que quis dizer é que está acontecendo justamente o contrário. As linhas que tem "Aphyosemion" e "Josecarlosgarcia" não devem aparecer.

Postado : 01/04/2012 5:27 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Tente minha sugestão e veja se vai dar certo!!

Depois retorne.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 5:31 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Não funcionou e travou a planilha toda. Não consegui voltar a como estava antes.
Por favor veja. http://www.sendspace.com/file/c3uhty

Postado : 01/04/2012 5:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

TheZin, comigo não deu problema!

Mas se alguém não tiver um resposta que resolva seu problema, vou tentar de outra forma.

Tente mudar o comando Call Teste, tire ele de onde mandei colocar, vá até o final da rotina chamada "Alt_Class" e cole !

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 01/04/2012 6:17 pm

TheZein

(@thezein)

Posts: 30

Eminent Member

Topic starter

Ai funcionou ? Retirou todas as linhas onde encontram-se aquelas palavaras ? Aqui não descobri o que fiz de errado.

Voce mandou fazer assim ?

Private Sub Worksheet_Change(ByVal Target As Range)
'Classificação automatica
'Dim lrow As Long
'lrow = Range("A" & Rows.Count).End(xlUp).Row
'If Range("F" & lrow).Value <> "" Then 'Se os dados for preenchidos de A até D
'    [A2:F1000].Sort Key1:=[E1], Order1:=xlAscending 'será feito a classificação
'End If
Call Alt_Class
End Sub
Call Teste

Deu "Erro de compilação"

Postado : 01/04/2012 6:39 pm

Página 1 / 2 Próximo