Notifications
Clear all

COPIAR OS 20 MAIORES VALORES NEGATIVOS DE SETOR

5 Posts
2 Usuários
0 Reactions
1,040 Visualizações
(@nilpeoli)
Posts: 16
Active Member
Topic starter
 

BOM DIA.

Me ajudem nesta planilha: Preciso de código VBA que copie de uma sheets para outra Sheets, os 20 itens de cada setor (coluna C), com maiores valores negativos (coluna AN), automaticamente ao executar a macro.

 
Postado : 02/02/2016 7:22 am
(@robo8268)
Posts: 73
Trusted Member
 

Olá NILPEOLI

Eu consegui resolver esse problema sem usar macro.

Eu fiz o seguinte:

1) na coluna CF, adicionei a seguinte fórmula: =AN2 + (lin()*0,000001) e arrastei até a última linha
2) criei uma nova planilha, e adicionei na célula B1 a seguinte fórmula: =MENOR('DA2801'!CF:CF;1)
3) a partir da linha B2, fui mudando a fómula menor trocando o 1 pelo 2 e assim por diante até o 20
4) na coluna A1 fiz a seguinte fórmula: =ÍNDICE('DA2801'!$A$1:$CF$100;CORRESP(B1;'DA2801'!CF:CF;0);3)
5) arrastei a fórmula acima até o final

Obs: eu usei o lin()*0,00001, para não trazer valores repetidos, e como se trata de um valor irrisório, não faz diferença no cálculo.

 
Postado : 02/02/2016 8:26 am
(@nilpeoli)
Posts: 16
Active Member
Topic starter
 

ROBO8268, BOA TARDE.

Fiz na mesma forma. Aparece apenas os 20 itens com valor menor, porém, eu preciso os 20 itens de cada setor.

 
Postado : 04/02/2016 11:41 am
(@robo8268)
Posts: 73
Trusted Member
 

Acredito que a forma mais fácil de fazer isso é com uma tabela dinamica...

Você cria a dinamica, vai em filtros de valores / 10 primeiros...

ai voce altera o item mostrar para ultimos, e o valor 10 para 20

 
Postado : 11/02/2016 7:28 am
(@nilpeoli)
Posts: 16
Active Member
Topic starter
 

ROBO8268, Boa noite.

Mas não consigo filtrar a soma, tb gostaria de automatizar (VBA)

 
Postado : 11/02/2016 2:49 pm