Página 1 de 1
Formatar data com um clique
Enviado: 05 Fev 2016 às 12:45
por Edy71
Boa tarde , como posso fazer uma célula apresentar a data de hoje apenas selecionando a mesma (sem digitar nada dentro dela) ? Meu conhecimento é limitado e apesar de já ter lido algumas apostilas e visto alguns vídeos , não encontrei resposta para esta e outras questões. Agradeço a ajuda.
Formatar data com um clique
Enviado: 05 Fev 2016 às 12:49
por Parkeless
Boa tarde!
Acho que não entendi... A data apareceria a cada clique na célula? Se sim, qual a finalidade disso?
Re: Formatar data com um clique
Enviado: 05 Fev 2016 às 13:26
por Edy71
Uma sequencia de três células na mesma linha receberiam uma formatação tal que quando eu der um clique pra selecioná-la ela é automaticamente preenchida com a data atual , como exemplo pode ser as células G3:I3 , cada uma representando a data em que houve uma ocorrencia com um aparelho na oficina , ou seja , G3 pode ser ENTRADA , H3 seria FINALIZADO e I3 seria ENTREGUE.
Formatar data com um clique
Enviado: 05 Fev 2016 às 13:34
por Parkeless
Usei o seguinte código (não em um módulo, mas na worksheet):
Código: Selecionar todosPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intervalo_Horas As Range
Dim Verificador As String
Set Intervalo_Horas = Range("G3:I3") 'coloque aqui o intervalo que você quer
'Só rodar em células vazias (não sobrescrever)
If Target <> "" Then: Exit Sub
On Error Resume Next
Intersect(Target, Intervalo_Horas) = Now
End Sub
Anexo exemplo de aplicação.
Re: Formatar data com um clique
Enviado: 05 Fev 2016 às 13:49
por Edy71
Obrigado pela atenção Parkeless. Eu não consegui ver a data nas células em azul , acho que eu não soube fazer. Parece-me que este é um comando em VBA e se for eu não tenho conhecimento para executar. Mesmo assim agradeço pela sua atenção.
Re: Formatar data com um clique
Enviado: 05 Fev 2016 às 13:59
por Parkeless
Edy,
Basta clicar em uma célula em azul para a data aparecer; se não estiver funcionando, verifique se as macros estão habilitadas.
O próprio "clique" do mouse, ou a alteração de seleção de célula, é que ativa o código VBA.
Re: Formatar data com um clique
Enviado: 05 Fev 2016 às 14:20
por Edy71
Tem razão. Faltou eu habilitar edição e habilitar conteúdo. Funcionou como vc descreveu. Muito obrigado !