Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#62517
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
Você não está autorizado a ver ou baixar esse anexo.
#62518
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.
#62526
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.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord