Excel [VBA] Botão contador de acordo com horário..

[B.Monteiro 0]

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:

 

 

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..

[Durbano 1]

Vou tentar fazer e já te falo, acho que consigo.

 

Public Sub horario()

Dim Click As Double

Cells(15, 1) = Format(Time, "hhmmss")

Click = Cells(15, 1)

 

 

'CONTADOR DE LINHAS (ESTÁ COM ERRO MAS ALGUNS AJUSTES E FUNCIONA, ISTO ERA PARA COLOCAR UMA VARIÁVEL NO LUGAR DO SETE LÁ EM BAIXO NO WHILE)

'Dim cont As Integer

'Dim i As Integer

'cont = 0

'i = 2

'While Cells(i, 1) <> "" And Cells(i + 1, 1) <> ""

'cont = cont + 2

'i = i + 1

'Wend

 

Dim Ha As String

Dim Hb As String

Dim linha As Integer

Dim somador As Integer

linha = 2

Ha = 2

Hb = 3

somador = 0

 

While somador < 7

If Click < Cells(Hb, 1) And Click > Cells(Ha, 1) Then

Cells(linha, 2) = Cells(linha, 2) + 1

Hb = Hb + 3

Ha = Ha + 3

Else

Hb = Hb + 3

Ha = Ha + 3

End If

somador = somador + 1

linha = linha + 3

Wend

 

End Sub

 

 

Os horários na planilha do EXCEL devem ficar sem : (Dois pontos da divisão de horas, minutos e segundo) para poder compara-las como campos numéricos DOUBLE, o que pode ser feito para este caso é você dar um HIDE nesta coluna e adicionar uma coluna com os : dentro do horário e utilizar a coluna escondida para verificar. Bom as coisas que voc~e nao entender você me avisa mas está funcionando perfeitamente

 

 

abraço