Notifications
Clear all

copiar/transferir informações de um código

6 Posts
3 Usuários
0 Reactions
1,579 Visualizações
(@joaoex)
Posts: 7
Active Member
Topic starter
 

Boa tarde pessoal, estou com uma planilha que está associada à um leitor de código de barras, a pessoa fará a leitura do código, e através de formulas na frente do código aparecerá as informações que preciso.
toda vez que o leitor faz a leitura do código de barras, aparece o código na planilha e automaticamente dá um enter, pulando para a linha seguinte... o que estou precisando é de uma macro que copie a linha onde aparece as informações, para outra aba, numa linha que estará vazia, sempre uma embaixo da outra, voltar para a aba anterior onde é feito a armazenagem do código, apagar o código e permanecer na mesma linha e célula da ultima leitura, para que na próxima leitura, o código novo apareça na mesma linha e célula.
Até ai tudo bem, é uma macro simples, mas o que eu realmente preciso saber é se eu consigo fazer essa macro ser acionada no momento em que é dado o enter pelo leitor de código de barras, sem que seja preciso fazer um botão para ser clicado.

 
Postado : 27/02/2018 9:59 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Já tentou fazer um teste da macro no evento change?

Click em se a resposta foi util!

 
Postado : 27/02/2018 10:14 am
(@joaoex)
Posts: 7
Active Member
Topic starter
 

Boa tarde, fiz uma pesquisa e encontrei isso

Private Sub Worksheet_Change(ByVal Target As Range)

Dim linha As Integer
Dim Coluna As Integer

Coluna = Target.Column
linha = Target.Row

If (linha = 2 And Coluna = 2) Then
Call Macro3
End If

End Sub

com isso, consegui fazer a macro ser ativada modificando a celula
meu problema agora é fazer ela colar oque copiei na linha vazia abaixo da ultima preenchida...

 
Postado : 27/02/2018 12:39 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

joaoex,

Anexe seu modelo aqui para entender melhor que está tentando fazer.

Click em se a resposta foi util!

 
Postado : 27/02/2018 1:16 pm
(@joaoex)
Posts: 7
Active Member
Topic starter
 

Segue o modelo

 
Postado : 02/03/2018 4:50 am
(@mprudencio)
Posts: 2749
Famed Member
 

Tente adaptar esse exemplo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 02/03/2018 7:48 am