Notifications
Clear all

Marcar hora atual na planilha com botão!

23 Posts
3 Usuários
0 Reactions
3,598 Visualizações
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Olá pessoal, quero saber como deve ser um VBA que possa marcar a hora atual diversas vezes em 2 colunas em uma mesma planilha,
dessa forma aqui...

Onde a pessoa clica em um botão de "►" (play) e marca a hora ao lado da célula, clica em um botão de "▀" (stop) e marca ao lado a hora atual de novo.

E ao lado uma célula que dá automaticamente o tempo estimado que demorou entre a hora de início e de termino da atividade. Assim como mostra abaixo:

Ou se tem como o botão de "Play" e "Stop" serem o mesmo botão, que altera de imagem quando é clicado?
Por favor me ajudem...

 
Postado : 21/03/2016 9:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Todos os passos e as rotinas para fazer desta forma você já tem em seu tópico anterior viewtopic.php?f=10&t=19498, é só ajustar para os resultados serem na celula.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/03/2016 9:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se ajuda, é só adaptar a sua necessidade.

Hora Inicio / Fim e Tempo decorrido

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/03/2016 6:19 pm
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Oi, é isso mesmo que eu quero, só não quero marcar a data como a macro faz...

Olha só... Por favor, me ajude nisso... pois eu tentei alterar aqui as colunas (letras) e até que deu, mas as linhas é que não foram...

Preciso marcar assim:

O INÍCIO: D2 até D7, D9 até D13, D15 até D19

O FIM: E2 até E7, E9 até E13, E15 até E19

TEMPO ESTIMADO: F2 até F7, F9 até F13, F15 até F19

O código está assim no original dessa macro:

Sub Botão1_Clique()

    If Plan1.Buttons(1).Text = "Parar" Then
        If Range("j4").Value = "" Then
           Range("j4").Value = Time
           Range("k4").Formula = "=j4-i4"
        Else
           Range("j3").End(xlDown).Offset(1, 0).Value = Time
           
           Range("k3").End(xlDown).Select
           Selection.Copy
           Selection.Offset(1, 0).Select
           ActiveSheet.Paste
           
        End If
        Plan1.Buttons(1).Text = "Iniciar"
    Else
        If Range("H4").Value = "" Then
           Range("H4").Value = Date
           Range("i4").Value = Time
        
        Else
           Range("H3").End(xlDown).Offset(1, 0).Value = Date
           Range("i3").End(xlDown).Offset(1, 0).Value = Time
        End If
        Plan1.Buttons(1).Text = "Parar"
    End If
    
    Application.CutCopyMode = False
    
End Sub

Sub Botão2_Clique()
    ' resetar o relógio
    Range("H4", Range("H4").End(xlDown).End(xlToRight)).ClearContents
    Range("H3").Activate
End Sub

 
Postado : 22/03/2016 2:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Só para entender melhor, você quer que marque pulando 5 linhas ou ir marcando e quando preencher as 5 linhas pular uma e continuar perfazendo novamente 5 linhas ?

Detalhe melhor, mas se for isto é necessário colocar um contador de linhas e ajustar para ranges dinamicos na rotina.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/03/2016 9:23 am
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Oi!

Eu preciso que pule (sem marcar) as linhas 8 e 14.

preciso como esse aqui de exemplo na imagem:

Podendo ser assim, com uma imagenzinha de "Play" apenas nas células que deverão ser marcado os tempos:

Ou podendo ser assim, onde tem um botão de "Play" e de "Stop" ao mesmo tempo nas células:

Não sei o que fica mais simples de fazer... E não tenho ideia de como fazer isso...
Peço de verdade ajuda nessa missão...
:oops:

 
Postado : 23/03/2016 10:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei ao certo como irá utilizar, mas minha opinião é ser igual ao modelo e ter somente um botão em vez de um por linha, assim evitaria de se clicarem por exemplo no botão da linha 7 ou em outra alternadamente sem ter utilizado as linhas acima, pense como ficaria melhor que implemento para você.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/03/2016 10:35 am
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Oi!

É verdade, eu preciso que siga a ordem certinha de atividades, sem pular e clicar no Play da 7 por exemplo, sem ter preenchido as linhas de cima, do jeito que você falou.
Então, será que tem como ser assim?

Quando a atividade de uma linha tiver sido cumprida acima, automaticamente o botão "Play/Stop" desce para próxima linha?

Assim:

 
Postado : 23/03/2016 12:15 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Pq nao coloca em apenas um botao e simplesmente executa na celula ativa.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 23/03/2016 4:32 pm
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

É eu quero colocar só um botão, mas se possível que o botão sempre fique na célula ativa.

 
Postado : 23/03/2016 5:44 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Acho que nao vai rolar...

Uma macro que funcione em toda a planilha com dois botoes um pra começar e outro para parar é simples de fazer

E so pra controlar o tempo de execução???

Se for pra controlar o tempo de execução da macro é mais facil colocar isso na propria macro.

Tenho a impressão (posso estar enganado) que vc ta complicando o simples.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 24/03/2016 6:21 am
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Então, se não dá pra fazer isso, não tem problema... Então acho que um botão mesmo de "Play/Stop" já resolve pra finalidade da planilha que estou precisando...

Mas, se possível que o botão seja uma imagem de "Play" e depois de "Stop" ao invés do botão, será que dá?

E as células tem que ser D, E, F naquele mesmo posicionamento de 5 em 5...

O botão de Play e Pause podem estar nas mesmas células que estão nessa imagem? D1 e E1?

:?

 
Postado : 24/03/2016 12:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Quanto a questão de como irá utilizar não questiono, as sugestões já havia dado anteriormente, até mesmo de se utilizar sómente dois botões, se tivesse dito antes que poderia ser, não precisaria ter refeito as rotinas, mas cada um sabe o que quer e como deverá ser sua aplicação, e foi mais um desafio a cumprir.

No exemplo anexo utilizei checkbox em cada linha, a planilha está protegida sem Senha.

OS dados que estão na coluna A podem ser apagados, só deixei para se for adicionar mais algum Checkbox os mesmos tem de estar na sequência numérica, e se adicionar, é só rodar a macro Sub LinkCheckBoxesSub() que a mesma redefinirá automaticamente os Vinculos das celulas e atribuirá a macro.

A Coluna C NÃO PODE SER DELETADA, mas pode ficar oculta, é a única coluna que fica desprotegida, mas se quiser deletar, tem de redefinir outra celula para o vinculo e ajustar nas rotinas os ranges.

Fiz a amarração que não se consegue acionar outros tempos sem ser na sequência do checkbox, quando iniciar no primeiro, ao finalizar é travado o checkbox e habilitado o próximo.

Cronometro_Checkbox

Espero que ajude.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/03/2016 3:37 pm
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Oi Mauro, quero lhe agradecer mesmo por estar me ajudando!

Esse aqui é o esqueleto da planilha que eu estou adaptando para ter esse contador de tempo de atividades.

Como eu faço para transferir essa macro e os botões checkbox para lá para minha pasta de trabalho?

Os botões checkbox podem ficar na coluna "A"
Na coluna "B" é necessário ficar esse detalhe de cor roxa, essa firula de cor é importante lá.
o nome das atividades são textos que eu vou escrever do dia a dia de tarefas, tem que ficar na coluna "C"
As colunas D, E, F estão super perfeitas.
Gostei muito da sua ideia de checkbox, muito bom mesmo! ;)

O esqueleto de locais onde deverão estar os valores é esse:

 
Postado : 24/03/2016 7:50 pm
(@nikaway)
Posts: 27
Eminent Member
Topic starter
 

Oi!! Eu estou usando a planilha do jeito que está, e vem me ajudando bastante!!! Só uma coisa final... Teria como eu transferir os checkbox da coluna B, para a coluna A? Deixando exatamente assim? Com essa inversão? De A-B, onde trocar os códigos para ser B-A?

 
Postado : 07/04/2016 10:27 pm
Página 1 / 2