Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Leandro Martins

Macro para gravar código de leitor de barras na célula d2

Mensagem Recomendada

Bom dia pessoal!

Estou fazendo uma planilha e estou precisando de ajuda. Não tenho muita experiência em macro. Na planilha estou usando leitor de código de barra para gravar um valor na célula “D2” Plan1. O próprio leitor de código de barra está configurado para dar “enter”. Assim este valor será copiado para o Plan2 na coluna “A” na próxima linha em branco e retorna a célula “D2” do plan1 e limpando a celular “D2”. Tudo automático.

Editado por Patropi

É obrigatório um resumo da dúvida no Título

Compartilhar este post


Link para o post
Compartilhar em outros sites
2 horas atrás, Leandro Martins disse:

... Assim este valor será copiado para o Plan2 na coluna “A” na próxima linha em branco e retorna a célula “D2” do plan1 e limpando a celular “D2”. Tudo automático.

Olá, Leandro.

O que você descreveu acima é o que você quer que a macro execute, é isso?

Se sim, faça um teste inicial, cole o código abaixo no módulo da "Plan1" e informe se após a inserção da leitura em 'D2' a caixa de mensagem é exibida.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$2" And Target.Value <> "" Then MsgBox "valor inserido em D2"
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Beleza, cole este no lugar do anterior.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$2" And Target.Value <> "" Then Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2) = [D2]
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...