none
Clicar com o Mouse e inserir hora numa celula RRS feed

  • Pergunta

  • Senhores criei uma macro conforme abaixo, para colocar data e hora em uma celular do excel apertando um botão ou dando um click com o botão do mouse, porem estou com 2 problemas:

    1 - Ao utilizar o teclado e passar o cursor por cima das celulas as mesmas está colocando automaticamente a informação;

    2 - Como faço para um vez preenchido a data, eu não consigo altera-la mesmo clicando novamente em cima? 

    Segue a Macro utilizada.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Determinar o intervalo no qual serão inseridas as horas
    Set TargetRange = Application.Union([C1:D1000], [H1:I1000], [Z1:AA1000])
    'Determinar a intersecção da célula selecionada com o intervalo TargetRange
    Set Interseccao = Application.Intersect(Target, TargetRange)
        'Executar caso haja intersecção
    If Not Interseccao Is Nothing Then
        'Desativar outros eventos do Excel
        Application.EnableEvents = False
        'Inserir na célula selecionada o valor de data e hora atuais
        Target = Now
        'Reativar a execução de eventos
        Application.EnableEvents = True
    End If
    End Sub

    quinta-feira, 21 de fevereiro de 2013 18:07

Respostas

  • Acho que você vai criar problemas demais num código como este. Não é bom utilizar os eventos SelectionChange nem Change do objeto Worksheet dessa forma.

    Eu sugeriria que você colocasse um código como esse, no máximo, no evento BeforeDoubleClick.

    Melhor mesmo seria se você criasse um botão na planilha, que ao clicar, inserisse a data e hora na célula selecionada.

    De qualquer forma, segue uma dica de atalho de teclado.

    Pressione Ctrl+; para inserir a data atual numa célula. Em seguida, pressione barra de espaços e então Ctrl+Shift+; para inserir a hora. Simples e sem macro.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 25 de fevereiro de 2013 23:35
    Moderador