Excel - Macro para copiar linhas de uma pasta de trabalho e colar em outra

Question

Boa tarde.

Sou muito novo nessa &aacute;rea de VBA e preciso demais de ajuda para resolver alguns problemas no meu trabalho. Vou tentar ser o mais claro e breve poss&iacute;vel.

Tenho duas pastas de trabalho:

Pasta de trabalho A com Planilha A&ccedil;&atilde;o

Pasta de trabalho B com Planilha Finalizadas

Preciso de uma Macro para que ao abrir a Pasta de trabalho B pesquise dentro da Planilha A&ccedil;&atilde;o da Pasta de trabalho A as linhas que possuem a palavra Finalizada na coluna H e copie os conte&uacute;dos dessas linhas e cole na primeira linha dispon&iacute;vel da Planilha Finalizadas da Pasta de trabalho B. De maneira que, s&oacute; sobreponha (copie em cima) uma linha na Planilha Finalizadas da Pasta de trabalho B se o conte&uacute;do de ambas da coluna A seja o mesmo.

Exemplo: coluna H &eacute; o status do pedido na Planilha A&ccedil;&atilde;o da Pasta de trabalho A e quando for Finalizada vai para a Planilha Finalizadas da Pasta de trabalho B. No entanto, mesmo finalizado, algum item pode ser trocado futuramente na linha em quest&atilde;o na Planilha A&ccedil;&atilde;o da Pasta de trabalho A e &eacute; a coluna A que cont&eacute;m o n&uacute;mero do pedido. Ou seja, se o n&uacute;mero do pedido na coluna A na Planilha A&ccedil;&atilde;o da Pasta de trabalho A for o mesmo essa linha deve ser colada sobre a linha que possui o mesmo n&uacute;mero na coluna A na Planilha Finalizadas da Pasta de trabalho B.

O ideal seria que este Macro da Pasta de trabalho B pudesse fazer a rotina acima mesmo com a Pasta de trabalho A fechada.

Utilizando os anexos como exemplo:

No caso, o que se deseja &eacute; que, por  exemplo, os pedidos 5 e 6 (e suas linhas completas respectivas) da planilha A&ccedil;&atilde;o da Pasta de trabalho A sejam automaticamente copiadas e coladas na primeira linha dispon&iacute;vel na planilha Finalizadas da Pasta de trabalho B quando a Pasta de trabalho B for aberta. Lembrando que os pedidos 5 e 6 devem ser copiados e colados na planilha Finalizadas da Pasta de trabalho B porque na coluna H de ambos os pedidos o status est&aacute; como Finalizada e a macro da Pasta de trabalho B deve verificar isso.

Muito obrigado desde j&aacute; para quem puder ajudar.

Answer

Uma quest&atilde;o id&ecirc;ntica a esta foi postada no f&oacute;rum abaixo.
https://forum.baboo.com.br/index.php?/topic/785367-excel-macro-para-copiar-linhas-de-uma-pasta-de-trabalho-e-colar-em-outra/

Answer

Caro Osvaldo

Eu mesmo postei nos dois f&oacute;runs para buscar o m&aacute;ximo de ajuda poss&iacute;vel.

Na sequ&ecirc;ncia, assim que poss&iacute;vel, vou fazer a sequ&ecirc;ncia que vc sugeriu no outro f&oacute;rum.

Muito obrigado pelo aux&iacute;lio.

Answer

osvaldomp disse: Uma quest&atilde;o id&ecirc;ntica a esta foi postada no f&oacute;rum abaixo.
https://forum.baboo.com.br/index.php?/topic/785367-excel-macro-para-copiar-linhas-de-uma-pasta-de-trabalho-e-colar-em-outra/

Bom dia Osvaldo.

Primeiramente, muito obrigado pela disponibilidade e aux&iacute;lio.

Fiz o procedimento que voc&ecirc; sugeriu e o c&oacute;digo resultante foi:
[code=vb]Sub Macro1()

Application.WindowState = xlMinimized
    Windows(A.xlsm).Activate
    Range(A5:L6).Select
    Selection.Copy
   Windows(B.xlsx).Activate
    Range(A2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range($A$1:$L$3).RemoveDuplicates Columns:=1, Header:=xlYes
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub[/code]
O resultado ao rodar o macro foi erro na linha em amarelo acima e a seguinte mensagem: Erro em tempo de execu&ccedil;&atilde;o '9': Subscrito fora do intervalo.

Outra observa&ccedil;&atilde;o &eacute; que, ao abrir o arquivo A o mesmo deveria selecionar automaticamente as linhas que possuem a palavra Finalizada na colunaH....e n&atilde;o eu marcar quais linhas devem ser copiadas.

Uma &uacute;ltima d&uacute;vida....n&atilde;o seria mais f&aacute;cil fazer o macro no arquivo B? De modo que quando o arquivo B fosse aberto o mesmo copiaria os dados mais recentes de A.

Muito obrigado.

Ferramentas

Mover Tópico