Notifications
Clear all

Filtrar Linhas e copiar em outra planilha

9 Posts
2 Usuários
0 Reactions
1,817 Visualizações
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Amigos,
Mais uma vez solicito ajuda de vocês.
Preciso de uma fórmula ou macro para filtrar em diversas planilhas e copiar o resultado em nova planilha. Encontrei alguns posts parecidos mas não consegui adaptar.

No arquivo anexo tenho 3 planilhas (Loja1, Loja2 e Tarefas). Provavelmente serão acrescentadas novas planilhas Lojax.
Preciso filtrar nas planilhas Lojax (Loja1, Loja2, Loja...) as linhas onde os dados da coluna J sejam 1 ou 2. As linhas que contenham esta condição devem ser copiadas para a planilha "Tarefas", lembrando que estes dados constantes na coluna J oscilam com o tempo, ou seja, o filtro precisa ser atualizado automaticamente.

Desde já agradeço.
Abraço

Segue arquivo anexo

 
Postado : 12/12/2013 7:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bossan,

Preencher somente os nomes das abas de sua planilha em CONTROLE.

O modelo faz o resto.

Não testei. Pressione F9 e teste vc mesmo.

Me avise;

Abs,

 
Postado : 13/12/2013 12:34 am
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

MANDRIX,
Espetáculo! Funcionou perfeitamente.
Valeu pelo apoio.
Abraço.

 
Postado : 13/12/2013 8:34 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez uma outra forma

Sub AleVBA_9911()
Dim ws As Worksheet, wsMaster As Worksheet, LR As Long, NR&
Application.ScreenUpdating = 0
Set wsMaster = Sheets("Tarefas")
wsMaster.UsedRange.Offset(0).ClearContents
For Each ws In Worksheets
    If ws.Name <> wsMaster.Name Then
        With ws
            .AutoFilterMode = False
            .Rows(10).AutoFilter 10, "=1", xlOr, "=2"
            LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
              If LR > 1 Then
                .Range("A11:K" & LR).Copy
                 NR = wsMaster.Cells(.Rows.Count, 1).End(xlUp).Row + 1
                 wsMaster.Range("A" & NR).PasteSpecial xlValues
               End If
            .Rows(10).AutoFilter
        End With
    End If
Next ws

Application.ScreenUpdating = True
End Sub

Obs: a guia Tarefas, não pode conter células mescladas!

Att ;)

 
Postado : 13/12/2013 1:28 pm
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Amigos,
A solução dada por vocês funcionou perfeitamente, mas alterando a planillha me deparei com alguns problemas.
Tentei alterar os códigos/fórmulas, mas não consegui.

Precisaria que na aba "Tarefas" (col.A) , que é resultado do filtro da aba "Controle", sugerido pelo Mandrix, mostrasse a célula B3 das respectivas planilhas "Loja1", "Loja2" , etc.

Precisaria também que na aba "Menu" (listbox), mostrasse também a a célula B3 das respectivas planilhas "Loja1", "Loja2", etc.

Desde já agradeço o apoio de vocês.
Abraço.

 
Postado : 26/12/2013 2:49 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Antes de eu olhar sua próxima pergunta desse post, você experimentou meu exemplo? :roll:

Att

 
Postado : 26/12/2013 3:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Preencher somente os nomes das abas de sua planilha em CONTROLE.

Basta mudar o nome da aba. Olha o anexo.

Abs,

 
Postado : 26/12/2013 10:42 pm
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Mandrix,
Valeu mais uma vez! Funcionou legal.
abraço.

Alexandrevba,
Valeu pela ajuda.Tentei a opção com o código, mas acho que minha limitação com macros/vba está atrapalhando.
Está dando erro de execução "1004": Não foi possivel concluir o comando usando o intervalo especificado
Abraço.

 
Postado : 27/12/2013 8:12 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 27/12/2013 10:29 am