Notifications
Clear all

Transferir linha condicionada para outra planilha

9 Posts
3 Usuários
0 Reactions
1,667 Visualizações
(@pedro_augusto)
Posts: 5
Active Member
Topic starter
 

Pessoal, sou novo por aqui, então desde já peço desculpas por eventuais falhas.

Sou um tanto quanto leigo no excel e tem algo que eu gostaria de fazer e não estou conseguindo. Fiz busca por aqui e também não logrei êxito em solucionar meu problema.

Fiz uma planilha que tem 10 colunas que vai do B ao K e um número indefinido de linhas.

na coluna K (sessão) eu fiz uma formatação condicional que se a data for "<hoje()", a linha toda da tabela fica cinza. Ocorre que o número de dados é muito grande e eu precisarei modificar essa "condicional". Ao invés da linha ficar cinza, eu gostaria que ela toda fosse jogada para uma tabela igual em outra planilha (plan2) e fosse deletada da planilha de origem (plan1).

Resumindo, se K (sessão) for "<hoje()", então a linha passa para a outra planilha. Ficando a linha com todos os dados certinhos (inclusive a data) apenas na plan2.

Essa é a dúvida principal. Agora tem outra variável que se for possível também gostaria de implementar juntamente com essa de cima. Eu gostaria que se "E" (tipo conclusão) for igual a "despacho" ou "liminar" e J for "<hoje()", também a linha vá para a plan2.

É possível?

Em anexo, o arquivo xlsx da tabela.

Grato desde já.

 
Postado : 14/09/2012 3:40 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!
Olá seja bem vindo, Pedro_Augusto!!! Os arquivos devem ser compactados, é regra do fórum!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att ;)

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

 
Postado : 14/09/2012 3:47 pm
(@pedro_augusto)
Posts: 5
Active Member
Topic starter
 

opa, desculpe.

Segue o arquivo compactado. Tentei editar o tópico, mas acho que não tem como, certo?

Abraços.

 
Postado : 14/09/2012 3:59 pm
(@pexis)
Posts: 112
Estimable Member
 

feito, veja se é isso

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 14/09/2012 8:00 pm
(@pedro_augusto)
Posts: 5
Active Member
Topic starter
 

Oloco! Que demais!

A única coisa é que na segunda "variável" parece que tá considerando a data da coluna K e não da J (se E = liminar ou despacho e J < data). Dei uma olhadinha no código (apesar de não entender muito bem) e parece que tá certo. O que pode ser?

De qualquer forma, show de bola!

 
Postado : 14/09/2012 8:48 pm
(@pexis)
Posts: 112
Estimable Member
 

aqui ta certo, acabei de testar novamente, com data em J menor e K maior com conclusao liminar e foi enviado pra plan2
modifiquei pra nao enviar qdo J estiver vazio, mas o programa só testa qdo K <> ""
talvez seja isso

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 15/09/2012 10:18 am
(@pedro_augusto)
Posts: 5
Active Member
Topic starter
 

Entendi!

É que no segundo caso o K ficaria em branco, mas assim está ótimo!

Muito obrigado!

 
Postado : 15/09/2012 12:35 pm
(@pexis)
Posts: 112
Estimable Member
 

agora acho q deu
modifiquei o loop pra coluna 2 ( B ), ele para qdo encontra celula vazia se preferir outra é só mudar no codigo nessa parte

Do Until ThisWorkbook.Sheets("Plan1").Cells(cont1, 2).Value = ""

é só trocar o 2 pela coluna onde sempre vai ter dado ( A=1, B=2 e assim por diante)

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 15/09/2012 7:14 pm
(@pedro_augusto)
Posts: 5
Active Member
Topic starter
 

Perfeito!!

Obrigado!

 
Postado : 16/09/2012 8:34 am