Macro para alteraçõ...
 
Notifications
Clear all

Macro para alterações muito grandes

18 Posts
2 Usuários
0 Reactions
1,684 Visualizações
(@caeh-a)
Posts: 11
Active Member
Topic starter
 

Bom dia gente!
Primeiramente, me considero um completo leigo no assunto e ainda estou com um probleminha aqui em uma planilha da empresa! Vou tentar explicar da melhor forma possível!

Eu preciso controlar a produção aqui da empresa, tanto individual como geral, assim como a produção das máquinas e a entrada e saída de material do estoque de produto acabado. Para tanto, eu me utilizo de 2 arquivos (planilhas):

- Produção Individual: Onde eu tenho 15 abas, representando cada colaborador mais algum que possa entrar. Nessa planilha eu tenho para cada dia do mês 5 setores (costura, vira, forma, estamparia e embalagem) ou seja, 5 "linhas" desde o dia 1 até o 31, como ilustrado na figura abaixo

figura 01: cada cor, um setor


figura 02: legenda

Isso é assim porque nenhum colaborador faz sempre a mesma coisa, então todas as abas são assim, para que eu possa controlar toda a produção individualmente. Na produção individual eu não tenho nenhuma fórmula, lá eu coloco apenas os dados.

- Produção Diária: Na produção diária é onde rola meu principal problema. É nessa aba onde eu puxo todos os dados do arquivo de produção individual e os somo, para criar um valor total atualizado. Ou seja, aqui eu tenho 5 abas representando cada um dos setores da empresa: Malharia, Costura, Vira, Forma, Estamparia e Embalagem. Em cada uma das abas eu fiz uma fórmula simples de soma: na aba da costura, por exemplo, ele puxa todos os valores referente ao dia em questão de todas as 15 abas dos colaboradores!! Por exemplo:

Para a produção diária do setor de embalagem, no dia 01 do mês fica assim a fórmula:

='[Malharia - PI.xlsx]01'!$B$10+'[Malharia - PI.xlsx]02'!$B$10+'[Malharia - PI.xlsx]03'!$B$10+'[Malharia - PI.xlsx]04'!$B$10+'[Malharia - PI.xlsx]05'!$B$10+'[Malharia - PI.xlsx]06'!$B$10+'[Malharia - PI.xlsx]07'!$B$10+'[Malharia - PI.xlsx]08'!$B$10+'[Malharia - PI.xlsx]09'!$B$10+'[Malharia - PI.xlsx]10'!$B$10+'[Malharia - PI.xlsx]11'!$B$10+'[Malharia - PI.xlsx]12'!$B$10+'[Malharia - PI.xlsx]13'!$B$10+'[Malharia - PI.xlsx]14'!$B$10+'[Malharia - PI.xlsx]15'!$B$10

- é muita coisa...

Agora imagina fazer tudo isso manualmente... do dia 01 ao dia 31, 5 linhas para cada dia...Coluna por coluna! Loucura! Ainda, eu percebi que quando eu uso um outro arquivo do Excel ele não "atualiza" as abas no CTRL+C e V, sabe? Eu tive um problemão para "dar um jeito" de não ficar meses fazendo isso manualmente, foi quando pesquisei e descobri sobre os macros. Eu me utilizei dos macros para atualizar os valores de cada coluna, mas para a próxima coluna eu também atualizava manualmente (não sei como posso explicar isso)

Portanto, meu macro é assim:

Sub Embalagem_b()
'
' Embalagem_b Macro
'

'
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R10C2+'[Malharia - PI.xlsx]02'!R10C2+'[Malharia - PI.xlsx]03'!R10C2+'[Malharia - PI.xlsx]04'!R10C2+'[Malharia - PI.xlsx]05'!R10C2+'[Malharia - PI.xlsx]06'!R10C2+'[Malharia - PI.xlsx]07'!R10C2+'[Malharia - PI.xlsx]08'!R10C2+'[Malharia - PI.xlsx]09'!R10C2+'[Malharia - PI.xlsx]10'!R10C2+'[Malharia - PI.xlsx]11'!R10C2+'[Malharia - PI.xlsx]12'!R10C2+'[Malharia - PI.xlsx]13'!R10C2+'[Malharia - PI.xlsx]14'!R10C2+'[Malharia - PI.xlsx]15'!R10C2"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R15C2+'[Malharia - PI.xlsx]02'!R15C2+'[Malharia - PI.xlsx]03'!R15C2+'[Malharia - PI.xlsx]04'!R15C2+'[Malharia - PI.xlsx]05'!R15C2+'[Malharia - PI.xlsx]06'!R15C2+'[Malharia - PI.xlsx]07'!R15C2+'[Malharia - PI.xlsx]08'!R15C2+'[Malharia - PI.xlsx]09'!R15C2+'[Malharia - PI.xlsx]10'!R15C2+'[Malharia - PI.xlsx]11'!R15C2+'[Malharia - PI.xlsx]12'!R15C2+'[Malharia - PI.xlsx]13'!R15C2+'[Malharia - PI.xlsx]14'!R15C2+'[Malharia - PI.xlsx]15'!R15C2"
    Range("B11").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R20C2+'[Malharia - PI.xlsx]02'!R20C2+'[Malharia - PI.xlsx]03'!R20C2+'[Malharia - PI.xlsx]04'!R20C2+'[Malharia - PI.xlsx]05'!R20C2+'[Malharia - PI.xlsx]06'!R20C2+'[Malharia - PI.xlsx]07'!R20C2+'[Malharia - PI.xlsx]08'!R20C2+'[Malharia - PI.xlsx]09'!R20C2+'[Malharia - PI.xlsx]10'!R20C2+'[Malharia - PI.xlsx]11'!R20C2+'[Malharia - PI.xlsx]12'!R20C2+'[Malharia - PI.xlsx]13'!R20C2+'[Malharia - PI.xlsx]14'!R20C2+'[Malharia - PI.xlsx]15'!R20C2"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R25C2+'[Malharia - PI.xlsx]02'!R25C2+'[Malharia - PI.xlsx]03'!R25C2+'[Malharia - PI.xlsx]04'!R25C2+'[Malharia - PI.xlsx]05'!R25C2+'[Malharia - PI.xlsx]06'!R25C2+'[Malharia - PI.xlsx]07'!R25C2+'[Malharia - PI.xlsx]08'!R25C2+'[Malharia - PI.xlsx]09'!R25C2+'[Malharia - PI.xlsx]10'!R25C2+'[Malharia - PI.xlsx]11'!R25C2+'[Malharia - PI.xlsx]12'!R25C2+'[Malharia - PI.xlsx]13'!R25C2+'[Malharia - PI.xlsx]14'!R25C2+'[Malharia - PI.xlsx]15'!R25C2"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R30C2+'[Malharia - PI.xlsx]02'!R30C2+'[Malharia - PI.xlsx]03'!R30C2+'[Malharia - PI.xlsx]04'!R30C2+'[Malharia - PI.xlsx]05'!R30C2+'[Malharia - PI.xlsx]06'!R30C2+'[Malharia - PI.xlsx]07'!R30C2+'[Malharia - PI.xlsx]08'!R30C2+'[Malharia - PI.xlsx]09'!R30C2+'[Malharia - PI.xlsx]10'!R30C2+'[Malharia - PI.xlsx]11'!R30C2+'[Malharia - PI.xlsx]12'!R30C2+'[Malharia - PI.xlsx]13'!R30C2+'[Malharia - PI.xlsx]14'!R30C2+'[Malharia - PI.xlsx]15'!R30C2"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R35C2+'[Malharia - PI.xlsx]02'!R35C2+'[Malharia - PI.xlsx]03'!R35C2+'[Malharia - PI.xlsx]04'!R35C2+'[Malharia - PI.xlsx]05'!R35C2+'[Malharia - PI.xlsx]06'!R35C2+'[Malharia - PI.xlsx]07'!R35C2+'[Malharia - PI.xlsx]08'!R35C2+'[Malharia - PI.xlsx]09'!R35C2+'[Malharia - PI.xlsx]10'!R35C2+'[Malharia - PI.xlsx]11'!R35C2+'[Malharia - PI.xlsx]12'!R35C2+'[Malharia - PI.xlsx]13'!R35C2+'[Malharia - PI.xlsx]14'!R35C2+'[Malharia - PI.xlsx]15'!R35C2"
    Range("B19").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R40C2+'[Malharia - PI.xlsx]02'!R40C2+'[Malharia - PI.xlsx]03'!R40C2+'[Malharia - PI.xlsx]04'!R40C2+'[Malharia - PI.xlsx]05'!R40C2+'[Malharia - PI.xlsx]06'!R40C2+'[Malharia - PI.xlsx]07'!R40C2+'[Malharia - PI.xlsx]08'!R40C2+'[Malharia - PI.xlsx]09'!R40C2+'[Malharia - PI.xlsx]10'!R40C2+'[Malharia - PI.xlsx]11'!R40C2+'[Malharia - PI.xlsx]12'!R40C2+'[Malharia - PI.xlsx]13'!R40C2+'[Malharia - PI.xlsx]14'!R40C2+'[Malharia - PI.xlsx]15'!R40C2"
    Range("B21").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R45C2+'[Malharia - PI.xlsx]02'!R45C2+'[Malharia - PI.xlsx]03'!R45C2+'[Malharia - PI.xlsx]04'!R45C2+'[Malharia - PI.xlsx]05'!R45C2+'[Malharia - PI.xlsx]06'!R45C2+'[Malharia - PI.xlsx]07'!R45C2+'[Malharia - PI.xlsx]08'!R45C2+'[Malharia - PI.xlsx]09'!R45C2+'[Malharia - PI.xlsx]10'!R45C2+'[Malharia - PI.xlsx]11'!R45C2+'[Malharia - PI.xlsx]12'!R45C2+'[Malharia - PI.xlsx]13'!R45C2+'[Malharia - PI.xlsx]14'!R45C2+'[Malharia - PI.xlsx]15'!R45C2"
    Range("B23").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R50C2+'[Malharia - PI.xlsx]02'!R50C2+'[Malharia - PI.xlsx]03'!R50C2+'[Malharia - PI.xlsx]04'!R50C2+'[Malharia - PI.xlsx]05'!R50C2+'[Malharia - PI.xlsx]06'!R50C2+'[Malharia - PI.xlsx]07'!R50C2+'[Malharia - PI.xlsx]08'!R50C2+'[Malharia - PI.xlsx]09'!R50C2+'[Malharia - PI.xlsx]10'!R50C2+'[Malharia - PI.xlsx]11'!R50C2+'[Malharia - PI.xlsx]12'!R50C2+'[Malharia - PI.xlsx]13'!R50C2+'[Malharia - PI.xlsx]14'!R50C2+'[Malharia - PI.xlsx]15'!R50C2"
    Range("B25").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R55C2+'[Malharia - PI.xlsx]02'!R55C2+'[Malharia - PI.xlsx]03'!R55C2+'[Malharia - PI.xlsx]04'!R55C2+'[Malharia - PI.xlsx]05'!R55C2+'[Malharia - PI.xlsx]06'!R55C2+'[Malharia - PI.xlsx]07'!R55C2+'[Malharia - PI.xlsx]08'!R55C2+'[Malharia - PI.xlsx]09'!R55C2+'[Malharia - PI.xlsx]10'!R55C2+'[Malharia - PI.xlsx]11'!R55C2+'[Malharia - PI.xlsx]12'!R55C2+'[Malharia - PI.xlsx]13'!R55C2+'[Malharia - PI.xlsx]14'!R55C2+'[Malharia - PI.xlsx]14'!R55C2"
    Range("B27").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R60C2+'[Malharia - PI.xlsx]02'!R60C2+'[Malharia - PI.xlsx]03'!R60C2+'[Malharia - PI.xlsx]04'!R60C2+'[Malharia - PI.xlsx]05'!R60C2+'[Malharia - PI.xlsx]06'!R60C2+'[Malharia - PI.xlsx]07'!R60C2+'[Malharia - PI.xlsx]08'!R60C2+'[Malharia - PI.xlsx]09'!R60C2+'[Malharia - PI.xlsx]10'!R60C2+'[Malharia - PI.xlsx]11'!R60C2+'[Malharia - PI.xlsx]12'!R60C2+'[Malharia - PI.xlsx]13'!R60C2+'[Malharia - PI.xlsx]14'!R60C2+'[Malharia - PI.xlsx]15'!R60C2"
    Range("B29").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R65C2+'[Malharia - PI.xlsx]02'!R65C2+'[Malharia - PI.xlsx]03'!R65C2+'[Malharia - PI.xlsx]04'!R65C2+'[Malharia - PI.xlsx]05'!R65C2+'[Malharia - PI.xlsx]06'!R65C2+'[Malharia - PI.xlsx]07'!R65C2+'[Malharia - PI.xlsx]08'!R65C2+'[Malharia - PI.xlsx]09'!R65C2+'[Malharia - PI.xlsx]10'!R65C2+'[Malharia - PI.xlsx]11'!R65C2+'[Malharia - PI.xlsx]12'!R65C2+'[Malharia - PI.xlsx]13'!R65C2+'[Malharia - PI.xlsx]14'!R65C2+'[Malharia - PI.xlsx]15'!R65C2"
    Range("B31").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R70C2+'[Malharia - PI.xlsx]02'!R70C2+'[Malharia - PI.xlsx]03'!R70C2+'[Malharia - PI.xlsx]04'!R70C2+'[Malharia - PI.xlsx]05'!R70C2+'[Malharia - PI.xlsx]06'!R70C2+'[Malharia - PI.xlsx]07'!R70C2+'[Malharia - PI.xlsx]08'!R70C2+'[Malharia - PI.xlsx]09'!R70C2+'[Malharia - PI.xlsx]10'!R70C2+'[Malharia - PI.xlsx]11'!R70C2+'[Malharia - PI.xlsx]12'!R70C2+'[Malharia - PI.xlsx]13'!R70C2+'[Malharia - PI.xlsx]14'!R70C2+'[Malharia - PI.xlsx]15'!R70C2"
    Range("B33").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R75C2+'[Malharia - PI.xlsx]02'!R75C2+'[Malharia - PI.xlsx]03'!R75C2+'[Malharia - PI.xlsx]04'!R75C2+'[Malharia - PI.xlsx]05'!R75C2+'[Malharia - PI.xlsx]06'!R75C2+'[Malharia - PI.xlsx]07'!R75C2+'[Malharia - PI.xlsx]08'!R75C2+'[Malharia - PI.xlsx]09'!R75C2+'[Malharia - PI.xlsx]10'!R75C2+'[Malharia - PI.xlsx]11'!R75C2+'[Malharia - PI.xlsx]12'!R75C2+'[Malharia - PI.xlsx]13'!R75C2+'[Malharia - PI.xlsx]14'!R75C2+'[Malharia - PI.xlsx]15'!R75C2"
    Range("B35").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R80C2+'[Malharia - PI.xlsx]02'!R80C2+'[Malharia - PI.xlsx]03'!R80C2+'[Malharia - PI.xlsx]04'!R80C2+'[Malharia - PI.xlsx]05'!R80C2+'[Malharia - PI.xlsx]06'!R80C2+'[Malharia - PI.xlsx]07'!R80C2+'[Malharia - PI.xlsx]08'!R80C2+'[Malharia - PI.xlsx]09'!R80C2+'[Malharia - PI.xlsx]10'!R80C2+'[Malharia - PI.xlsx]11'!R80C2+'[Malharia - PI.xlsx]12'!R80C2+'[Malharia - PI.xlsx]13'!R80C2+'[Malharia - PI.xlsx]14'!R80C2+'[Malharia - PI.xlsx]15'!R80C2"
    Range("B37").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R85C2+'[Malharia - PI.xlsx]02'!R85C2+'[Malharia - PI.xlsx]03'!R85C2+'[Malharia - PI.xlsx]04'!R85C2+'[Malharia - PI.xlsx]05'!R85C2+'[Malharia - PI.xlsx]06'!R85C2+'[Malharia - PI.xlsx]07'!R85C2+'[Malharia - PI.xlsx]08'!R85C2+'[Malharia - PI.xlsx]09'!R85C2+'[Malharia - PI.xlsx]10'!R85C2+'[Malharia - PI.xlsx]11'!R85C2+'[Malharia - PI.xlsx]12'!R85C2+'[Malharia - PI.xlsx]13'!R85C2+'[Malharia - PI.xlsx]14'!R85C2+'[Malharia - PI.xlsx]15'!R85C2"
    Range("B39").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R90C2+'[Malharia - PI.xlsx]02'!R90C2+'[Malharia - PI.xlsx]03'!R90C2+'[Malharia - PI.xlsx]04'!R90C2+'[Malharia - PI.xlsx]05'!R90C2+'[Malharia - PI.xlsx]06'!R90C2+'[Malharia - PI.xlsx]07'!R90C2+'[Malharia - PI.xlsx]08'!R90C2+'[Malharia - PI.xlsx]09'!R90C2+'[Malharia - PI.xlsx]10'!R90C2+'[Malharia - PI.xlsx]11'!R90C2+'[Malharia - PI.xlsx]12'!R90C2+'[Malharia - PI.xlsx]13'!R90C2+'[Malharia - PI.xlsx]14'!R90C2+'[Malharia - PI.xlsx]15'!R90C2"
    Range("B41").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R95C2+'[Malharia - PI.xlsx]02'!R95C2+'[Malharia - PI.xlsx]03'!R95C2+'[Malharia - PI.xlsx]04'!R95C2+'[Malharia - PI.xlsx]05'!R95C2+'[Malharia - PI.xlsx]06'!R95C2+'[Malharia - PI.xlsx]07'!R95C2+'[Malharia - PI.xlsx]08'!R95C2+'[Malharia - PI.xlsx]09'!R95C2+'[Malharia - PI.xlsx]10'!R95C2+'[Malharia - PI.xlsx]11'!R95C2+'[Malharia - PI.xlsx]12'!R95C2+'[Malharia - PI.xlsx]13'!R95C2+'[Malharia - PI.xlsx]14'!R95C2+'[Malharia - PI.xlsx]15'!R95C2"
    Range("B43").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R100C2+'[Malharia - PI.xlsx]02'!R100C2+'[Malharia - PI.xlsx]03'!R100C2+'[Malharia - PI.xlsx]04'!R100C2+'[Malharia - PI.xlsx]05'!R100C2+'[Malharia - PI.xlsx]06'!R100C2+'[Malharia - PI.xlsx]07'!R100C2+'[Malharia - PI.xlsx]08'!R100C2+'[Malharia - PI.xlsx]09'!R100C2+'[Malharia - PI.xlsx]10'!R100C2+'[Malharia - PI.xlsx]11'!R100C2+'[Malharia - PI.xlsx]12'!R100C2+'[Malharia - PI.xlsx]13'!R100C2+'[Malharia - PI.xlsx]14'!R100C2+'[Malharia - PI.xlsx]15'!R100C2"
    Range("B45").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R105C2+'[Malharia - PI.xlsx]02'!R105C2+'[Malharia - PI.xlsx]03'!R105C2+'[Malharia - PI.xlsx]04'!R105C2+'[Malharia - PI.xlsx]05'!R105C2+'[Malharia - PI.xlsx]06'!R105C2+'[Malharia - PI.xlsx]07'!R105C2+'[Malharia - PI.xlsx]08'!R105C2+'[Malharia - PI.xlsx]09'!R105C2+'[Malharia - PI.xlsx]10'!R105C2+'[Malharia - PI.xlsx]11'!R105C2+'[Malharia - PI.xlsx]12'!R105C2+'[Malharia - PI.xlsx]13'!R105C2+'[Malharia - PI.xlsx]14'!R105C2+'[Malharia - PI.xlsx]15'!R105C2"
    Range("B47").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R110C2+'[Malharia - PI.xlsx]02'!R110C2+'[Malharia - PI.xlsx]03'!R110C2+'[Malharia - PI.xlsx]04'!R110C2+'[Malharia - PI.xlsx]05'!R110C2+'[Malharia - PI.xlsx]06'!R110C2+'[Malharia - PI.xlsx]07'!R110C2+'[Malharia - PI.xlsx]08'!R110C2+'[Malharia - PI.xlsx]09'!R110C2+'[Malharia - PI.xlsx]10'!R110C2+'[Malharia - PI.xlsx]11'!R110C2+'[Malharia - PI.xlsx]12'!R110C2+'[Malharia - PI.xlsx]13'!R110C2+'[Malharia - PI.xlsx]14'!R110C2+'[Malharia - PI.xlsx]15'!R110C2"
    Range("B49").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R115C2+'[Malharia - PI.xlsx]02'!R115C2+'[Malharia - PI.xlsx]03'!R115C2+'[Malharia - PI.xlsx]04'!R115C2+'[Malharia - PI.xlsx]05'!R115C2+'[Malharia - PI.xlsx]06'!R115C2+'[Malharia - PI.xlsx]07'!R115C2+'[Malharia - PI.xlsx]08'!R115C2+'[Malharia - PI.xlsx]09'!R115C2+'[Malharia - PI.xlsx]10'!R115C2+'[Malharia - PI.xlsx]11'!R115C2+'[Malharia - PI.xlsx]12'!R115C2+'[Malharia - PI.xlsx]13'!R115C2+'[Malharia - PI.xlsx]14'!R115C2+'[Malharia - PI.xlsx]15'!R115C2"
    Range("B51").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R120C2+'[Malharia - PI.xlsx]02'!R120C2+'[Malharia - PI.xlsx]03'!R120C2+'[Malharia - PI.xlsx]04'!R120C2+'[Malharia - PI.xlsx]05'!R120C2+'[Malharia - PI.xlsx]06'!R120C2+'[Malharia - PI.xlsx]07'!R120C2+'[Malharia - PI.xlsx]08'!R120C2+'[Malharia - PI.xlsx]09'!R120C2+'[Malharia - PI.xlsx]10'!R120C2+'[Malharia - PI.xlsx]11'!R120C2+'[Malharia - PI.xlsx]12'!R120C2+'[Malharia - PI.xlsx]13'!R120C2+'[Malharia - PI.xlsx]14'!R120C2+'[Malharia - PI.xlsx]15'!R120C2"
    Range("B53").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R125C2+'[Malharia - PI.xlsx]02'!R125C2+'[Malharia - PI.xlsx]03'!R125C2+'[Malharia - PI.xlsx]04'!R125C2+'[Malharia - PI.xlsx]05'!R125C2+'[Malharia - PI.xlsx]06'!R125C2+'[Malharia - PI.xlsx]07'!R125C2+'[Malharia - PI.xlsx]08'!R125C2+'[Malharia - PI.xlsx]09'!R125C2+'[Malharia - PI.xlsx]10'!R125C2+'[Malharia - PI.xlsx]11'!R125C2+'[Malharia - PI.xlsx]12'!R125C2+'[Malharia - PI.xlsx]13'!R125C2+'[Malharia - PI.xlsx]14'!R125C2+'[Malharia - PI.xlsx]15'!R125C2"
    Range("B55").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R130C2+'[Malharia - PI.xlsx]02'!R130C2+'[Malharia - PI.xlsx]03'!R130C2+'[Malharia - PI.xlsx]04'!R130C2+'[Malharia - PI.xlsx]05'!R130C2+'[Malharia - PI.xlsx]06'!R130C2+'[Malharia - PI.xlsx]07'!R130C2+'[Malharia - PI.xlsx]08'!R130C2+'[Malharia - PI.xlsx]09'!R130C2+'[Malharia - PI.xlsx]10'!R130C2+'[Malharia - PI.xlsx]11'!R130C2+'[Malharia - PI.xlsx]12'!R130C2+'[Malharia - PI.xlsx]13'!R130C2+'[Malharia - PI.xlsx]14'!R130C2+'[Malharia - PI.xlsx]15'!R130C2"
    Range("B57").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R135C2+'[Malharia - PI.xlsx]02'!R135C2+'[Malharia - PI.xlsx]03'!R135C2+'[Malharia - PI.xlsx]04'!R135C2+'[Malharia - PI.xlsx]05'!R135C2+'[Malharia - PI.xlsx]06'!R135C2+'[Malharia - PI.xlsx]07'!R135C2+'[Malharia - PI.xlsx]08'!R135C2+'[Malharia - PI.xlsx]09'!R135C2+'[Malharia - PI.xlsx]10'!R135C2+'[Malharia - PI.xlsx]11'!R135C2+'[Malharia - PI.xlsx]12'!R135C2+'[Malharia - PI.xlsx]13'!R135C2+'[Malharia - PI.xlsx]14'!R135C2+'[Malharia - PI.xlsx]15'!R135C2"
    Range("B59").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R140C2+'[Malharia - PI.xlsx]02'!R140C2+'[Malharia - PI.xlsx]03'!R140C2+'[Malharia - PI.xlsx]04'!R140C2+'[Malharia - PI.xlsx]05'!R140C2+'[Malharia - PI.xlsx]06'!R140C2+'[Malharia - PI.xlsx]07'!R140C2+'[Malharia - PI.xlsx]08'!R140C2+'[Malharia - PI.xlsx]09'!R140C2+'[Malharia - PI.xlsx]10'!R140C2+'[Malharia - PI.xlsx]11'!R140C2+'[Malharia - PI.xlsx]12'!R140C2+'[Malharia - PI.xlsx]13'!R140C2+'[Malharia - PI.xlsx]14'!R140C2+'[Malharia - PI.xlsx]15'!R140C2"
    Range("B61").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R145C2+'[Malharia - PI.xlsx]02'!R145C2+'[Malharia - PI.xlsx]03'!R145C2+'[Malharia - PI.xlsx]04'!R145C2+'[Malharia - PI.xlsx]05'!R145C2+'[Malharia - PI.xlsx]06'!R145C2+'[Malharia - PI.xlsx]07'!R145C2+'[Malharia - PI.xlsx]08'!R145C2+'[Malharia - PI.xlsx]09'!R145C2+'[Malharia - PI.xlsx]10'!R145C2+'[Malharia - PI.xlsx]11'!R145C2+'[Malharia - PI.xlsx]12'!R145C2+'[Malharia - PI.xlsx]13'!R145C2+'[Malharia - PI.xlsx]14'!R145C2+'[Malharia - PI.xlsx]15'!R145C2"
    Range("B63").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R150C2+'[Malharia - PI.xlsx]02'!R150C2+'[Malharia - PI.xlsx]03'!R150C2+'[Malharia - PI.xlsx]04'!R150C2+'[Malharia - PI.xlsx]05'!R150C2+'[Malharia - PI.xlsx]06'!R150C2+'[Malharia - PI.xlsx]07'!R150C2+'[Malharia - PI.xlsx]08'!R150C2+'[Malharia - PI.xlsx]09'!R150C2+'[Malharia - PI.xlsx]10'!R150C2+'[Malharia - PI.xlsx]11'!R150C2+'[Malharia - PI.xlsx]12'!R150C2+'[Malharia - PI.xlsx]13'!R150C2+'[Malharia - PI.xlsx]14'!R150C2+'[Malharia - PI.xlsx]15'!R150C2"
    Range("B65").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R155C2+'[Malharia - PI.xlsx]02'!R155C2+'[Malharia - PI.xlsx]03'!R155C2+'[Malharia - PI.xlsx]04'!R155C2+'[Malharia - PI.xlsx]05'!R155C2+'[Malharia - PI.xlsx]06'!R155C2+'[Malharia - PI.xlsx]07'!R155C2+'[Malharia - PI.xlsx]08'!R155C2+'[Malharia - PI.xlsx]09'!R155C2+'[Malharia - PI.xlsx]10'!R155C2+'[Malharia - PI.xlsx]11'!R155C2+'[Malharia - PI.xlsx]12'!R155C2+'[Malharia - PI.xlsx]13'!R155C2+'[Malharia - PI.xlsx]14'!R155C2+'[Malharia - PI.xlsx]15'!R155C2"
    Range("B67").Select
    ActiveCell.FormulaR1C1 = _
        "='[Malharia - PI.xlsx]01'!R160C2+'[Malharia - PI.xlsx]02'!R160C2+'[Malharia - PI.xlsx]03'!R160C2+'[Malharia - PI.xlsx]04'!R160C2+'[Malharia - PI.xlsx]05'!R160C2+'[Malharia - PI.xlsx]06'!R160C2+'[Malharia - PI.xlsx]07'!R160C2+'[Malharia - PI.xlsx]08'!R160C2+'[Malharia - PI.xlsx]09'!R160C2+'[Malharia - PI.xlsx]10'!R160C2+'[Malharia - PI.xlsx]11'!R160C2+'[Malharia - PI.xlsx]12'!R160C2+'[Malharia - PI.xlsx]13'!R160C2+'[Malharia - PI.xlsx]14'!R160C2+'[Malharia - PI.xlsx]15'!R160C2"
    Range("B68").Select
    ActiveWindow.SmallScroll Down:=3
End Sub

Então, se eu quisesse pular para a próxima coluna (o próximo produto) eu copiava o macro acima e só alterava a letra do Range (de B para C, e assim por diante) e o número referente à coluna (de R10C2 para R10C3, e assim por diante). Esse é exatamente onde paira minha dúvida. Mesmo me utilizando dessa alteração no VBA, me consome muito tempo para atualizar a formula dessa tabela, e quando a empresa adiciona um novo produto ao portifólio, eu tenho que adicionar uma nova coluna e fazer tudo isso nela (que é o motivo de eu estar refazendo tudo)

Por fim, o que gostaria de saber é se há uma forma alternativa de preencher esses campos, alguma ferramenta que não pude encontrar ou se meu destino é preencher isso dessa forma, mesmo!
Peço desculpas se este não é o lugar apropriado, ou se não tenho tempo de fórum o suficiente para buscar o auxilio dos senhores!

Obrigado desde já!

Ansiosamente para encontrar uma solução,
Caeh Augusto

 
Postado : 16/05/2014 5:10 am
(@caeh-a)
Posts: 11
Active Member
Topic starter
 

Oi Bernardo
Estou mexendo aqui! O negócio de usar as variáveis é que quando eu só altero elas, o valor somado pelo macro é uma coisa sem noção! Não é o que corresponde mesmo aos setores!

Att,
Caeh

 
Postado : 23/05/2014 1:24 pm
(@caeh-a)
Posts: 11
Active Member
Topic starter
 

Oi Bernardo
Estou mexendo aqui! O negócio de usar as variáveis é que quando eu só altero elas, o valor somado pelo macro é uma coisa sem noção! Não é o que corresponde mesmo aos setores!

Att,
Caeh

Ainda sem sucesso. :(

 
Postado : 27/05/2014 5:29 am
(@caeh-a)
Posts: 11
Active Member
Topic starter
 

Poxa, alguém pode me ajudar? Não estou conseguindo resolver essa situação por minha conta. :(

 
Postado : 02/06/2014 6:21 am
Página 2 / 2