Excel Extrair para outro planilha

[Bruno Araujo de Moraes]

Bom dia, Pessoal!

Gostaria de uma ajuda. Eu preciso criar uma macro ou formula não sei ao certo, para criar um botão que pudesse usar para copiar uma informação de outro arquivo e colar no meu.
Vou explicar melhor. No meu arquivo tem a coluna BV (matricula) eu preciso automatizar para toda vez que eu inserir uma informação na célula A2 ele ir no arquivo “matriculas” copiar uma matricula e colar no na celular BV2. Se eu inserir 2 informações nas células A2 e A3 ele copiar 02 matriculas e colar nas células BV2 e BV3. Nesse arquivo matricula eu tenho duas colunas matriculas disponiveis e matriculas usadas. Quando ele copiasse uma matricula para o arquivo que estou trabalhando eu precisava que essa mesma matricula fosse movida(recortada) para a coluna matriculas usadas. Ficando a coluna matriculas disponíveis sempre atualizada.
Estou disponibilizando os dois arquivos se puderem ajudar. Estou colocando em amarelo as colunas BV da aba vinculo trabalhando ( matric) e a coluna matricula onde tem as matriculas que devem ser copiadas e recortadas.

 

https://drive.google.com/file/d/1nUtWLogVg-1oFKgLz60BLFtizcbwi4bB/view?usp=drive_open (arquivo grande, estou enviando o link)

Preciso saber quais são os nomes q devo mudar depois, pois vou precisar fazer isso com 10 arquivos diferentes. MATRICULAS_TESTES_FORUMLUZ.xlsx

 

 

Desde já agradeço muito quem puder ajudar. 

[Visitante]

Em 27/08/2019 às 15:37, Bruno Araujo de Moraes disse:

 ... copiar uma matricula e colar no na celular BV2.

 

No arquivo MATRICULAS, Planilha1, coluna B, há mais de 98 mil matrículas. Qual delas você quer copiar e colar no seu celular ?

[Bruno Araujo de Moraes]

@osvaldomp Bom dia amigo!

 

Obrigado pelo retorno. Vou tentar explicar melhor. Exemplo: quando eu inserir 04 NUMFUNC nas células A2:A5 ele deve ir no arquivo matriculas e recortar 04 matriculas da coluna disponíveis e mover para a coluna usada e copiar essas mesmas 04 matriculas para as células BV2:BV5. Resumindo a quantidade de NUMFUNC´s inseridos na coluna A deve ser a mesma quantidade de matriculas que ele deve buscar no arquivo matriculas e recortar a quantidade da coluna disponível para a coluna usada e copiar no meu arquivo na coluna BV. 

Expliquei ou compliquei. kkkk

Fico no aguardo e obrigado de novo. 

 

[Visitante]

Olá, Bruno.

 

Sim, entendi. A quantidade de matrículas a ser copiada/colada é igual à quantidade de células preenchidas a partir de A2, desde que BV esteja vazia, é isso? Ou BV sempre estará vazia?

 

Com base no seu exemplo acima o código irá copiar/colar 4 matrículas e conforme comentei antes existem mais de 98 mil matrículas. Renovo a pergunta: quais 4 matrículas você deseja escolher dentre as mais de 98 mil ?

 

 

[Bruno Araujo de Moraes]

4 horas atrás, osvaldomp disse:

Olá, Bruno.

 

Sim, entendi. A quantidade de matrículas a ser copiada/colada é igual à quantidade de células preenchidas a partir de A2, desde que BV esteja vazia, é isso? Ou BV sempre estará vazia?

 

Com base no seu exemplo acima o código irá copiar/colar 4 matrículas e conforme comentei antes existem mais de 98 mil matrículas. Renovo a pergunta: quais 4 matrículas você deseja escolher dentre as mais de 98 mil ?

 

 

@osvaldomp

 

Sim, a quantidade é de acordo com as células a partir de A2.

BV sempre estará vazio. Quando eu for usar o arquivo eu salvo como de modo que o original BV sempre estará vazio.

A matricula a ser copiada e movida deverá ser as primeiras disponíveis, a partir de B3. Se eu colocar 10 numfunc nas células A2:A11 então ele deve ir no arquivo matriculas e recortar as 10 matriculas disponíveis B3:B12 para a coluna matriculas usadas e copiar as mesmas matriculas para a coluna BV2:BV11.

Sempre ele pegará as matriculas a partir de B3 pois sempre estará la as disponíveis, uma vez que q quando ele usa a matricula ele recortar para matriculas usadas. 

 

Posso tentar explicar de novo se precisar. 

 

[Visitante]

1. instale uma cópia do código abaixo em um módulo comum do arquivo CEJAM_PADRÃO (pode ser instalado em substituição ao código existente no Módulo1)

2. ao rodar o código a planilha ativa deverá ser a VINCULO_TRABALHANDO

3. ao rodar o código o arquivo MATRICULAS_TESTES_FORUMLUZ deverá estar aberto (se necessário corrija no código o nome desse arquivo pois eu coloquei o nome que aparece aqui ao ser baixado)

4. quanto ao seu comentário no post # 1 ~~~> "Preciso saber quais são os nomes q devo mudar depois, pois vou precisar fazer isso com 10 arquivos diferentes." ~~~> ou você instala uma cópia do código em cada arquivo ou instala no arquivo PERSONAL.XLSB (sugiro que você pesquise, caso não conheça)

 

Sub ReplicaMatrículas()
 Dim k As Long
  k = Range("A:A").Find("*", , xlValues, , xlRows, xlPrevious).Row - 1
  With Workbooks("MATRICULAS_TESTES_FORUMLUZ(3).xlsx").Sheets("Planilha1")
   .Range("B3:B" & k + 2).Copy [BV2]
   .Range("B3:B" & k + 2).Copy .Cells(Rows.Count, 1).End(3)(2)
   .Range("B3:B" & k + 2).Delete xlShiftUp
  End With
End Sub

 

[Bruno Araujo de Moraes]

@osvaldomp

Bom dia meu amigo. Assim que chegar ao trabalho vou testar. Já te agredeço imensamente. Ajudou muito. 

Daqui a pouco te confirmo se funcionou. 

[Bruno Araujo de Moraes]

@osvaldomp Cara muito obrigado. Funcionou perfeitamente. 

 

Abraços.