Parceria RicardoHorta.Net + SUBMARINO

Dúvida

• Ricardo, Boa Noite !
  
  Montei uma planilha e nela preciso que aconteça o seguinte.
  Toda vez que eu digitar um valor na coluna C, quero que apareça, na coluna B, a hora em que foi digitada.
  A minha planilha tem em média 3000 linhas.
  Eu usava a formula AGORA( ).
  Porém, toda vez que eu digitava algo na coluna C, toda a coluna B era alterada.
  Se puder me dar uma luz, ficaria agradecido.
  Não entendo muito de VBA.
  Os dados ficam assim:
  
  Coluna A - Num
  Coluna B - Hora (hoje utilizo AGORA())
  Coluna C - Cód. Barras
  Coluna D - Cód Material
  
  Eu quero digitar o Cód Barras e registrar a hora da digitação na coluna B, na linha correspondente à coluna C.
  Muito Obrigado.
  
  Lucas

O Evento Change.

• Microsoftiano Lucas, vamos trabalhar com o evento Change, que ocorre quando há uma alteração na planilha.
• Abra a pasta de trabalho.

• Utilize as teclas [ ALT ] + [ F11 ] para abrir o Editor VBA.
• Na janela Projeto, clique 2 vezes na planilha utilizada para digitação.

• Na janela Objeto, selecione Worksheet ( o objeto que representa a planilha ).
• Em Procedimento, selecione Change.

• Defina, então, as ações.
• Target representa a célula que foi digitada.
• Se a coluna da célula, que está sendo digitada, for diferente de C ( Target.Column <> 3 ), as ações serão ignoradas ( Exit Sub ).
  Ou seja, se você digitar nas colunas A, B, D, E, por exemplo, o código, criado no evento Change, não será executado.
• Se a linha for 1 ( Target.Row = 1 ), significa que você está alterando os títulos ( Número, Cod. Barra,... ). Óbvio, ululante, as ações também serão ignoradas.
• Linha = Target.Row armazena na variável a linha ( 1, 3, 100,... ) da célula alterada.
• With ActiveSheet significa "Com a planilha ativa..."
• .Cells(Linha,2).Value = Now( ) atualiza na coluna B a data e a hora da alteração.

• Salve as alterações e retorne para a tela da planilha.

• Preencha a primeira coluna e pule para a coluna C.

• Digite o código de barra e a coluna B será atualizada, corretamente.

Parceria RicardoHorta.Net + SUBMARINO

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

2008 - www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta