Botão contador de acordo com horário

Question

Prezados Senhores,

Estou tentando criar um formulário de horário de acordo com cliques registrados em um botão como exemplo as figuras abaixo.



Gostaria que quando clicasse neste botão, fosse inserido o valor + 1 na tabela abaixo:

Clique aqui para ver no tamanho original.

Porém, gostaria que cada clique coincidir com o intervalo de horário mostrado na 2ª figura (2ª planilha) adicionando mais 1 a célula. Exemplo: Cliquei 2 vezes entre 00:00 as 00:15, teria de registrar 2. E sempre que for clicado os valores fossem inseridos de acordo com o horário dos intervalos.

Cheguei a fazer a parte simples, da planilha que é a parte de soma.

Sub somaum()

Sheets("PLANILHA").Select
Range("CELULA").Value = Range("CELULA").Value + 1
Sheets("PLANILHA").Select


End Sub

Clicar em um botão que vai somando mais um em uma célula, porém criei vários botões de horas. Ao invés disto gostaria que somente 1 botão inserisse o valor no horário que foi clicado.

Gostaria de ajuda de vocês!
Fico no aguardo..

Answer 1

Pessoal, aguardo uma luz!

Answer 2

Sub Botão1_Clique()

  Dim i As Long
  
  With Sheets("Plan4")
    Do
      i = i + 1
    Loop Until TimeSerial(Hour(Time), Minute(Time) - 15, 0) < .Cells(i, "A")
    .Cells(i, "B") = .Cells(i, "B") + 1
  End With
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br