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

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
Wellington Lemos

Excel

Mensagem Recomendada

Boa noite. Podem me ajudar? Tenho uma planilha que criei e em cada linha são inseridas novas informações. Gostaria de saber se é possível o Excel preencher automaticamente em uma coluna criada, as datas em que as informações das linhas foram alimentadas. Eu precisaria gerenciar a data da digitação na planilha. Obrigado. Abraços!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 1 Then Exit Sub
 Cells(Target.Row, "B") = IIf(Target.Value = "", "", Date)
End Sub

funcionamento - após o usuário inserir manualmente algum conteúdo em qualquer célula da coluna A o código irá inserir a data do dia na coluna B mesma linha.

Se quiser alterar as refeências das colunas:

Target.Column <> 1 ~~~> o número 1 representa a coluna A, em que o usuário insere qualquer conteúdo

Cells(Target.Row, "B") ~~~> coluna B, em que o código insere a data

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...