Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
como fazer
 
Notifications
Clear all

como fazer

 
2024 - VBA & Macros
Post Recente por Osvaldomp 4 semanas atrás
2 Posts
2 Usuários
0 Reactions
153 Visualizações
RSS
 JOAOCOSTA
(@joaocosta)
Posts: 1
New Member
Topic starter
 

sou entusiasta em excel e estou montando uma planilha de ponto de funcionários

adqui umcodigo vba no chatgpt mas não entendi como inserir no excel... 

o código é esse:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim linha As Long

If Target.Column <> 7 Then Exit Sub 'Coluna de Observações
If LCase(Target.Value) <> "marca" Then Exit Sub

linha = Target.Row

If Cells(linha, 2).Value = "" Then
Cells(linha, 2).Value = Time 'Entrada
ElseIf Cells(linha, 3).Value = "" Then
Cells(linha, 3).Value = Time 'Saída Almoço
ElseIf Cells(linha, 4).Value = "" Then
Cells(linha, 4).Value = Time 'Retorno Almoço
ElseIf Cells(linha, 5).Value = "" Then
Cells(linha, 5).Value = Time 'Saída
Else
MsgBox "Todos os horários deste dia já foram marcados."
End If

Cells(linha, 2).NumberFormat = "hh:mm"
Cells(linha, 3).NumberFormat = "hh:mm"
Cells(linha, 4).NumberFormat = "hh:mm"
Cells(linha, 5).NumberFormat = "hh:mm"
End Sub

mas não estou sabendo inseri-lo na planilha...

alguem para explicar?

 
Postado : 17/11/2025 9:46 pm
 Osvaldomp
(@osvaldomp)
Posts: 927
Prominent Member
 

Postado por: @joaocosta
↑
mas não estou sabendo inseri-lo na planilha...

Cole uma cópia do código no módulo da planilha de interesse, conforme descrito abaixo.

1. copie o código (Ctrl+C)

2. clique com o direito na guia da planilha de interesse (é a planilha em que você quer inserir os horários)

3. no menu que irá aparecer clique em "Exibir Código"

4. cole o código (Ctrl+V) na janela em branco que irá se abrir, em seguida feche o editor de VBA.

 

Funcionamento:

Após inserir o texto marca em qualquer linha da coluna G, o código irá inserir a hora atual nas colunas B até E, sequencialmente, naquela linha.

 

dica: existem outros dois eventos de planilha que você pode utilizar para esse fim sem a necessidade de inserir nada na planilha. No primeiro caso basta selecionar a célula na qual se deseja inserir a hora e no segundo basta aplicar duplo clique na célula.

Sugestão, peça para o amigo IA elaborar um código com o evento Worksheet_SelectionChange e outro código com o evento Worksheet_BeforeDoubleClick e, claro, explique pra ela o seu objetivo.

Ambos devem ser instalados no módulo da planilha, conforme comentei acima.

 

 

 

Osvaldo

 
Postado : 18/11/2025 1:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico