Notifications
Clear all

Copiar uma plan e inserir em outra pasta.

16 Posts
3 Usuários
0 Reactions
1,948 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia,
gostaria de saber como posso copiar uma plan e enviar para outra pasta de trabalho.

Eu tenho uma pasta de trabalho que contém meus projetos e outra que contém minha proposta de orçamento.

quero poder inserir os projetos na pasta de orçamento, para poder inserir na proposta e administrar, o orçamento.

Grato

 
Postado : 14/02/2014 7:06 am
(@weslley)
Posts: 90
Trusted Member
 

-Abra as duas pasta de trabalho
-Selecione a pasta de trabalho que você deseja copiar a planilha
-Clique com o botão direito sobre a aba(Planilha) que deseja copiar
-Clique na opção [Mover ou copiar...]
-Marque a opção [Criar cópia]
-No rótulo "Para a pasta", selecione a paste de trabalho que esta planilha será copiada.
-Clique em [OK]
-Proto!

Obs.: Se você for apenas mover a planilha, não masque a opção [Criar cópia].

 
Postado : 14/02/2014 7:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia,
dessa forma eu já sei, mas gostaria de fazer automatico, que tenha uma botão que quando eu click, isso aconteça automaticamente.
Grato

 
Postado : 14/02/2014 7:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Quero que isso seja feita na pastaeplan ativa.

 
Postado : 14/02/2014 7:20 am
(@weslley)
Posts: 90
Trusted Member
 

Anexa a planilha simulando um exemplo.

 
Postado : 14/02/2014 7:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

São 2 pastas.

é exatamente que você descreveu anteriormente. Mas queria que isso fosse automatico. Lembrando que a pasta de destino poderá mudar.
Grato

 
Postado : 14/02/2014 8:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

-Abra as duas pasta de trabalho
-Selecione a pasta de trabalho que você deseja copiar a planilha
-Clique com o botão direito sobre a aba(Planilha) que deseja copiar
-Clique na opção [Mover ou copiar...]
-Marque a opção [Criar cópia]
-No rótulo "Para a pasta", selecione a paste de trabalho que esta planilha será copiada.
-Clique em [OK]
-Proto!

Obs.: Se você for apenas mover a planilha, não masque a opção [Criar cópia].

por eduardovidros » 14 Fev 2014, 09:17
Bom dia,
dessa forma eu já sei, mas gostaria de fazer automatico, que tenha uma botão que quando eu click, isso aconteça automaticamente.
Grato

Se ja tem conhecimento dos passos citado pelo Weslley, é só utilizaro GRAVADOR DE MACROS e terá sua automatização na Macro criada.

[]s

 
Postado : 14/02/2014 8:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ok, mas quando a pasta de destino mudar, o que eu faço?

 
Postado : 14/02/2014 8:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ok, mas quando a pasta de destino mudar, o que eu faço?

Vamos tratar de uma coisa de cada vez, de fato com o gravador você terá todas ações efetuadas o caminho das pastas, arquivos, formatação, nomes de arquivos, abas, etc.. ou seja tudo que fizer.

Como não temos nenhuma informação para podermos criar algo, apos gravar sua rotina coloque a mesma aqui e diga o que pretende corrigir.

Utilize tambem a Pesquisa do Forum com os termos : "copiar planilha para outra" e encontrara uma infinidade de tópicos referentes a cópias de diversas formas.

[]s

 
Postado : 14/02/2014 8:20 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vamos supor que a Pasta teste1 seja um dos meus diversos projetos e a pasta teste2 seja a pasta que eu quero que o projeto seja copiado.

Lembrando que essa pasta de destino pode se modificar.
Grato

Eduardo, conforme as Regras do Forum os arquivos devem estar compactados, por isso foram excluidos, favor compactar e postar novamente.

 
Postado : 14/02/2014 9:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Acho que é isso aqui, mas não entendo onde colocar o caminho.

Sub Mover2()
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
End Sub

Grato

 
Postado : 14/02/2014 3:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Acho que é isso aqui, mas não entendo onde colocar o caminho.

Sub Mover2()
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
End Sub

Nas instruções acima não temos caminho, transcrevendo as ações, estamos instruindo para realizar as seguintes ações:

1°) Temos duas Pastas (2 arquivos)
O primeiro vamos chamar de Origem.xls, e o segundo, já temos o nome na rotina "Test.xls".
workbook refere-se a um outro arquivo (ou Pasta)

Para a execução da rotina temos de estar com os dois arquivos abertos :
Estas instruções referem-se ao primeiro arquivo : Origem.xls
ActiveSheet refere-se a aba que está ativa, do arquivo Origem.xls
move estamos instruindo para MOVER
Before = Antes

Refere-se ao segundo arquivo : "Test.xls"
Workbooks("Test.xls") - Arquivo (ou Pasta) de nome Test.xls
.Sheets(1): Refere-se a aba deste arquivo e o numero é o indice .

Resumindo, estamos instruindo para :
Mover a Aba(Guia)Ativa do arquivo "Origem" para o arquivo "Test" antes da primeira aba(guia) que temos no arquivo "Test".

espero que tenha conseguido explicar.

 
Postado : 14/02/2014 6:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mas então isso ta errado?

Poque pensei assim,
estou na minha plan que quero copiar para a outra pasta de trabalho.

o Código para o procedimento seria assim:
Localizar a pasta de destino, caso ela não esteja aberta, abrir (de acordo com o caminho dela. Ex. C:). Copiar a plan origem e mover para o final da pasta de destino.

O que acha?

 
Postado : 15/02/2014 5:32 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde, Alguem pode me ajudar?

 
Postado : 17/02/2014 2:34 pm
(@roberto25)
Posts: 2
New Member
 

Olá Eduardo.
Veja este meu exemplo e o adapte conforme as sua necessidades.
1 Abç.

 
Postado : 02/03/2014 7:23 pm
Página 1 / 2