Notifications
Clear all

Macro para ratear custos

3 Posts
3 Usuários
0 Reactions
1,198 Visualizações
(@karacs)
Posts: 1
New Member
Topic starter
 

Olá Pessoal, tudo bem?

Recebo uma planilha e preciso ratear custos por loja, mas meu conhecimento limitado esta atrapalhando, portanto, preciso da ajuda de vocês!
O caso é o seguinte:
- Cada linha se refere a um custo de um funcionário (as vezes as pessoas se repetem) e nestas linhas existem diversas colunas com informações descrevendo o custo, uma destas colunas se chama LOJA esta sera a coluna que eu devo utilizar para fazer o rateio;
- Existe uma outra coluna chamada VALOR, esta coluna tem o valor total daquele custo;
- Dentro de uma célula da coluna LOJA existem o nome de várias lojas separadas por espaços, exemplo: LOJA311231 LOJA123212 LOJA341443 LOJA432111;
- Eu preciso que a macro crie uma numero de linhas determinado com base na quantidade de lojas que tem nesta célula deste custo;
- Com exceção das colunas LOJA e VALOR todos os outros dados devem se repetir;
- A célula que esta na coluna LOJA deve ser alterada da seguinte maneira seguindo o exemplo:
LINHA 1 - LOJA311231;
LINHA 2 - LOJA123212;
- A célula que esta na coluna VALOR deve ser alterada da seguinte maneira:Valor total que estava na linha original dividido pelo numero de lojas, exemplo: VALOR TOTAL R$800,00,
LOJAS: LOJA311231 LOJA123212 LOJA341443 LOJA432111;

LINHA 1 - LOJA311231 - VALOR R$200,00
LINHA 2 - LOJA123212 - VALOR R$200,00
LINHA 3 - LOJA341443 - VALOR R$200,00
LINHA 4 - LOJA432111 - VALOR R$200,00

- Esta tarefa será uma rotina e fazer isso manualmente da um trabalho gigantesco, por isto gostaria de ajuda para desenvolver esta macro.

Será que alguém pode me ajudar? Sou um jovem em VBA ainda.

(Vou anexar um exemplo da planilha que utilizo)

Valeu!!!

 
Postado : 23/01/2017 10:30 am
(@tarcelles)
Posts: 61
Trusted Member
 

Boa tarde.

da uma olhada pra ve se isso mesmo.

 
Postado : 23/01/2017 11:35 am
DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Usando Nova Consulta / Power Query.

A vantagem seria não enfrentar as restrições de execução de uma macro e ter o retorno mais rápido.

P/ implantar a solução com Nova Consulta / Power Query seu Excel deve ser 2010 ou superior, sendo q nas versões 2010 e 2013 vc deve instalar o suplemento gratuito da Microsoft no endereço abaixo:

https://www.microsoft.com/pt-br/download/details.aspx?id=39379

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 24/01/2017 6:53 am