Guru do Excel e Power BI

Olá pessoal, bom dia.
Espero que todos estejam bem.

Estou criando um sistema de Controle de Ponto utilizando Excel junto com o VBA, porém a empresa solicitou que precisa ter as batidas de Entrada, Saída Almoço, Retorno Almoço, Pausa 1, Retorno 1, Pausa 2, Retorno 2 e Saída.

Os botões de registro de pontos são feitos no excel e por traz os comandos é feito no vba para que posso utilizar as macros e assim que efetuar as batidas registrem na coluna do excel.

Fiz uma busca na internet e não encontrei comandos no qual posso inserir.

Vocês podem fazer um esboço de como tem que ser feito esse formula no vba para atribuir a macro e assim gravar os registros na coluna do excel.

Estou deixando anexo para ter uma ideia.

Obrigado

Jonatan

Segue uma ideia. Veja se aproveita.

Instale uma cópia do 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

Código: Selecionar todos

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 'Target.Value = Now 'este comando insere data e hora atuais, remova o apóstrofo do início da linha para ativar o comando
 'Target.Value = Time 'este comando insere a hora atual, remova o apóstrofo do início da linha para ativar o comando
 Cancel = True
End Sub

#
funcionamento - aplique duplo clique na célula em que deseja inserir ou data e hora ou somente hora; para ativar uma dessas duas ações remova o apóstrofo localizado à esquerda do respectivo comando.

Opa @osvaldomp Osvaldo, funcionou perfeitamente na planilha do Excel.

Existe alguma forma de Ativar a Macro num botão e utilizar essa formula que você acabou de passar?

Se sim, tem como passar um exemplo.

Obrigado.

Olá @souzajon
Existe sim, porém o novo código deve ser instalado em um módulo comum, e não no módulo da planilha. Após a instalação é possível manter o código anterior e assim o ponto poderá ser marcado via botão e também via duplo clique, se for do seu interesse.

Instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).
Essas três opções para rodar o código podem ser implantadas isoladamente ou em conjunto.

Código: Selecionar todos

Sub MarcaPonto()
 'ActiveCell.Value = Now 'este comando insere data e hora atuais, remova o apóstrofo do início da linha para ativar o comando
 'ActiveCell.Value = Time 'este comando insere a hora atual, remova o apóstrofo do início da linha para ativar o comando
End Sub

#
funcionamento - selecione a célula na qual deseja inserir ou a data e hora ou somente a hora e rode o código.

Guru do Excel e Power BI

Sistema de Controle de Ponto como configurar

Sistema de Controle de Ponto como configurar

Re: Sistema de Controle de Ponto como configurar

Re: Sistema de Controle de Ponto como configurar

Re: Sistema de Controle de Ponto como configurar