locked
Clicar com rato e inserir hora numa celula RRS feed

  • Pergunta

  • será que existe uma forma de clicando com o rato sobre uma célula do excel, inserir a hora de determinado instante e clicando em utra celula inserir a data de outro instante mantendo a primeira inalterada?
    Se alguém poder me ajudar fico agradecido
    quinta-feira, 16 de julho de 2009 19:14

Respostas

  • Não tem de quê.
    Poderia marcar a resposta que te atendeu como definitiva para que o tópico possa ser concluído.
    [ ]s

    Adilson Soledade - MOS
    • Marcado como Resposta amadosgest domingo, 19 de julho de 2009 21:31
    domingo, 19 de julho de 2009 20:52

Todas as Respostas

  • Poderias explicar melhor a questão das datas?
    Como pretendes definí-las?

    Adilson Soledade - MOS
    sexta-feira, 17 de julho de 2009 18:41
  • Bem, deixa er se eu consigo explicar.
    O que eu pretendia era tentar encontrar uma forma de inserir as horas de inicio e de fim de determinadas tarefas.
    Sei que com uma combinaçao de teclas isso se consegue, mas pensei procurar uma forma mais pratica de fazer essa operaçao.
    Pensei que poderia existir uma formataçao especial das células, ou uma formula, ou uma função, ou uma macro que permitisse, com um clique do rato essa operaçao podesse ser feita.

    A intenção é criar uma planilha, para cada operadora, com os registos de inicio e termino das varias tarefas desenvolvidas no dia

     
                                    Recolha / Lançamentos          Arquivo / Conferencias / Outras
    Dia Cliente Inicio Fim   Lançmto Inicial Diário Lançamto Final Dia Cliente Inicio Fim  
                           
    01/07/09 139 12:09:00 12:10:00
        
    100 1/01 110 01/07/09 139 10:02:00 10:19:00
    ##
    01/07/09 139 10:48:00 11:45:00 ## 1 1/06 34 01/07/09 139 11:57:00 12:02:00 ##
    01/07/09 139 11:45:00 11:57:00 ## 1 1/07 7 01/07/09 139 12:11:00 12:35:00 ##
    01/07/09 139 14:49:00 14:54:00 ## 26 2/01 33 01/07/09 139 14:03:00 14:33:00 ##

    Normalmente faço inserir as horas com a combinaçao Ctrl+Shift+:.
    Clicando o rato nas celulas das horas, ficaria muito mais facil.
    Será que me fiz entender? Meus conhecimentos técnicos sao muito basicos nao sei utilizar aqueles termos técnicos.
    Meus agraecimentos.
    sexta-feira, 17 de julho de 2009 22:56
  • Podes fazer assim:
    1. Clicar com o botão direito do mouse, na aba da folha (Worksheet tab)
    2. Copiar este código para a folha de macros que se abre:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Determinar o intervalo no qual serão inseridas as horas
    Set TargetRange = [A1:A100]
    '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
    3. Fechar o ambiente de edição de macros (VBE) primindo ALT+F4
    4. O código será executado ao selecionares uma das células da folha.

    PS: Observe que defini o intervalo A1:A100 para a entrada de dados. Deves ajustá-lo de acordo com a tua necessidade.

    [ ]s


    Adilson Soledade - MOS
    domingo, 19 de julho de 2009 01:15
  • Adilson
    Mas rapaz ..... funcionou na perfeição.
    Fico muito grato pra vc.
    Um abraço e muito, muito obrigado.
    domingo, 19 de julho de 2009 15:00
  • Amigo Adilson, ainda voltando a macro que me indicou.
    Funciona bem de eu escolher duas colunas seguidas.
    Mas como faço para escolher colunas separadas???
    Ex.:  [c1:d1000] e de seguida [h1:i1000] ou ainda [z1:aa1000]

    porque ja entei de varias formas e as primeiras colunas deixam de funcionar.

    Fico agradecido uma vez mais pela ajuda.
    domingo, 19 de julho de 2009 17:08
  • Experimente esta versão:
    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
    [ ]s

    Adilson Soledade - MOS
    domingo, 19 de julho de 2009 18:45
  • Funcionou na perfeição
    Mais uma vez muito obrigado

    []s

    Alexandre Amado
    domingo, 19 de julho de 2009 19:26
  • Não tem de quê.
    Poderia marcar a resposta que te atendeu como definitiva para que o tópico possa ser concluído.
    [ ]s

    Adilson Soledade - MOS
    • Marcado como Resposta amadosgest domingo, 19 de julho de 2009 21:31
    domingo, 19 de julho de 2009 20:52