Puxar dados de uma planilha para outra pasta de trabalho

[Malcher]

Salve!!!Salve!!! Galera do Bem, Eu novamente.

 

Seguinte como posso fazer para que determinados dados de uma linha de uma planilha
Possa ser inseridos automaticamente em outra planilha ( mais não é na mesma aba é em outra pasta de trabalho)

Segue uma planilha de exemplo

Exemplo Março.xlsx

[Basole]

Malcher,

Para importar os dados de outra planilha tem varias opções, mas nao gosto de usar a opcao open, que quando. acontece algum error a pasta de trabalho (BD),, acaba ficando aberta na memoria. então prefiro usar a opcao adodb.

Segue o anexo e para importar de outra aba em outra pasta_de_trabalho, é necessario voce fazer as alterações que indiquei. Veja se consegue entender quais procedimentos.

 

abx.

Exemplo Março-v1.zip

[Malcher]

Malcher,

Para importar os dados de outra planilha tem varias opções, mas nao gosto de usar a opcao open, que quando. acontece algum error a pasta de trabalho (BD),, acaba ficando aberta na memoria. então prefiro usar a opcao adodb.

Segue o anexo e para importar de outra aba em outra pasta_de_trabalho, é necessario voce fazer as alterações que indiquei. Veja se consegue entender quais procedimentos.

 

abx.

 

Só para melhorar meu entendimento, qual a diferença de open para adodb

Desculpe a curiosidade sou iniciante no assunto rssss...

Grato pela atenção.

[Basole]

Deu certo ai, conseguiu adaptar a sua planilha original? 

 

 

 

Só para melhorar meu entendimento, qual a diferença de open para adodb
Desculpe a curiosidade sou iniciante no assunto rssss...
Grato pela atenção.

 

Seria as diferenças entre os métodos ou funções. veja um ex. c/ a função 'Open' :

Sub teste()    Application.ScreenUpdating = False    Workbooks.Open Filename:="C:\Users\Admin\Desktop\Sua_Pasta_de_Trabalho.xlsx"    ActiveWindow.WindowState = xlMinimized    ThisWorkbook.Activate    '  Seu codigo copy e paste aqui .....bla bla bla...    Application.ScreenUpdating = True    ThisWorkbook.CloseEnd Sub

abx

[Malcher]

Deu certo ai, conseguiu adaptar a sua planilha original? 

 

 

Seria as diferenças entre os métodos ou funções. veja um ex. c/ a função 'Open' :

Sub teste()    Application.ScreenUpdating = False    Workbooks.Open Filename:="C:\Users\Admin\Desktop\Sua_Pasta_de_Trabalho.xlsx"    ActiveWindow.WindowState = xlMinimized    ThisWorkbook.Activate    '  Seu codigo copy e paste aqui .....bla bla bla...    Application.ScreenUpdating = True    ThisWorkbook.CloseEnd Sub

abx

 

 

 

Estamos no caminho certo,

Aquele botão que você colocou ( Importar de outra Pasta de Trabalho) resolve a questão 

Não preciso do Deletar, porque preciso do registro.

E no caso aquela linha amarela foi para ilustrar o exemplo.

Porque no caso funciona assim, cliquei no botão ( Importar de outra Pasta de Trabalho)

beleza, ele preenche a linha 6 (por exemplo)

Inserir novos dados na outra pasta de trabalho, uso o botao

e ele preenche a linha 7

 

e assim sucessivamente

[Malcher]

Agradeço ao Basole que começou a solução 
E ao Osvaldomp por me ajudar na conclusão

 

Muito grato pela atenção