Notifications
Clear all

Botão de hora atual

23 Posts
2 Usuários
0 Reactions
4,731 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia ! Amigos

Estou fazendo uma planilha de produtividade de serviço de concessionaria.
Preciso de uma ajudinha aos sabios mestres do excel.

Preciso que um botão atualize a hora somente de uma celula de serviço.
No caso, o que ocorre é que quando eu coloca a função no macro =agora() em uma celula, ele atualiza certinho.
Mas tenho em uma ordem serviço 5 ou 6 celulas com horarios distintos de inicio e hora final.

como eu poderia fazer isso.

 
Postado : 19/10/2011 7:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

 
Postado : 19/10/2011 10:22 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

ok, irei fazer o post...

obrigado pelo retorno

 
Postado : 19/10/2011 12:14 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

Como que eu faço para mandar a planilha ou imagem para sua observação.

 
Postado : 19/10/2011 12:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

Como que eu faço para mandar a planilha ou imagem para sua observação.

Veja se entendi ai
Abraços

 
Postado : 19/10/2011 1:33 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

Como que eu faço para mandar a planilha ou imagem para sua observação.

Veja se entendi ai
Abraços

Tem O9, Uma celula, no campo preto ao lado terá um botão.
então kd celular terá um botão
isso que eu preciso tentar fazer, agradeço a ajuda

 
Postado : 19/10/2011 1:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Posta um exemplo da sua planilha.

Como que eu faço para mandar a planilha ou imagem para sua observação.

Veja se entendi ai
Abraços

Tem O9, Uma celula, no campo preto ao lado terá um botão.
então kd celular terá um botão
isso que eu preciso tentar fazer, agradeço a ajuda

 
Postado : 19/10/2011 1:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, ficaria mais facil implementar com um exemplo da planilha ja que disse que seriam umas 5 ou 6 celulas não haveria necessidade de Botões, poderiamos usar o Evento Change da planilha, mas acredito que com a rotina abaixo consiga adaptar para as demais celulas :
Associe ao Botão

Sub horas()

    Range("O9").Value = Format(Now, "hh:mm:ss")
    
End Sub

[]s

 
Postado : 25/10/2011 5:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, ficaria mais facil implementar com um exemplo da planilha ja que disse que seriam umas 5 ou 6 celulas não haveria necessidade de Botões, poderiamos usar o Evento Change da planilha, mas acredito que com a rotina abaixo consiga adaptar para as demais celulas :
Associe ao Botão

Sub horas()

    Range("O9").Value = Format(Now, "hh:mm:ss")
    
End Sub

[]s

Desculpa a minha falta de compreenssão, mas é apenas eu colocar este dado no botão e ele só irá acionar para aquela celula, no caso eu fazer outro botão, ele não vai ficar atualizando todas, pois preciso que atualize somente 1 celula por vez, e quando atualizar este dado fique estatico

 
Postado : 25/10/2011 12:42 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, da forma que eu interpretei sua questão, você disse que o campo ao lado celula em preto terão botões, um para cada célula, a rotina que postei é para atualizar somente a celula "O9", ou seja tem de ser associada ao botão respectivo, se por exemplo for atualizar a Celula "O10" é só alterar o rtange na rotina colocar no Botão que irá estar ao lado desta celula.

A rotina ao ser executada, capta a hora do sistema e coloca na célula "O9", e a mesma só será alterada se executar a rotina novamente, se executar outras o valor desta não será alterado, como eu disse só quando executar novamente a rotina para alterar esta celula.
[]s

 
Postado : 25/10/2011 12:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, da forma que eu interpretei sua questão, você disse que o campo ao lado celula em preto terão botões, um para cada célula, a rotina que postei é para atualizar somente a celula "O9", ou seja tem de ser associada ao botão respectivo, se por exemplo for atualizar a Celula "O10" é só alterar o rtange na rotina colocar no Botão que irá estar ao lado desta celula.

A rotina ao ser executada, capta a hora do sistema e coloca na célula "O9", e a mesma só será alterada se executar a rotina novamente, se executar outras o valor desta não será alterado, como eu disse só quando executar novamente a rotina para alterar esta celula.
[]s

Mauro, Obrigadão, irei testar e ja posto aqui se der certo.
Muito obrigado pela atenção desde já

 
Postado : 25/10/2011 5:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, da forma que eu interpretei sua questão, você disse que o campo ao lado celula em preto terão botões, um para cada célula, a rotina que postei é para atualizar somente a celula "O9", ou seja tem de ser associada ao botão respectivo, se por exemplo for atualizar a Celula "O10" é só alterar o rtange na rotina colocar no Botão que irá estar ao lado desta celula.

A rotina ao ser executada, capta a hora do sistema e coloca na célula "O9", e a mesma só será alterada se executar a rotina novamente, se executar outras o valor desta não será alterado, como eu disse só quando executar novamente a rotina para alterar esta celula.
[]s

Mauro, Obrigadão, irei testar e ja posto aqui se der certo.
Muito obrigado pela atenção desde já

Mauro, como que eu faço para kd celula, eu estou tentando e não estou conseguindo, desde já agradeço ajuda.

Ferreira BFB

 
Postado : 25/10/2011 5:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ferreira, é um pouco dificil dar uma resposta positiva sem ter seu exemplo, eu me basiei só pela sua imagem e pelo que postou, mas vamos tentar :

Disse que tem Botões nas celulas ao lado, necessitaria saber que tipo de Botão é (Controle).

Para alterar Hora em "O9" :
Supondo que seu Botão esteja em "N9", no Evento Click coloque a rotina:
Range("O9").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "Q9" :
Supondo que seu Botão esteja em "P9", no Evento Click coloque a rotina:
Range("Q9").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "O10" :
Supondo que seu Botão esteja em "N10", no Evento Click coloque a rotina:
Range("O10").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "Q10" :
Supondo que seu Botão esteja em "P10", no Evento Click coloque a rotina:
Range("Q10").Value = Format(Now, "hh:mm:ss")

e assim por diante.

 
Postado : 25/10/2011 6:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ferreira, é um pouco dificil dar uma resposta positiva sem ter seu exemplo, eu me basiei só pela sua imagem e pelo que postou, mas vamos tentar :

Disse que tem Botões nas celulas ao lado, necessitaria saber que tipo de Botão é (Controle).

Para alterar Hora em "O9" :
Supondo que seu Botão esteja em "N9", no Evento Click coloque a rotina:
Range("O9").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "Q9" :
Supondo que seu Botão esteja em "P9", no Evento Click coloque a rotina:
Range("Q9").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "O10" :
Supondo que seu Botão esteja em "N10", no Evento Click coloque a rotina:
Range("O10").Value = Format(Now, "hh:mm:ss")

Para alterar Hora em "Q10" :
Supondo que seu Botão esteja em "P10", no Evento Click coloque a rotina:
Range("Q10").Value = Format(Now, "hh:mm:ss")

e assim por diante.

Amigo, como que eu faço para mandar a planilha para vc direto
ela esta vinculada com outra planilha irei mandar as duas OK.

Abraços

 
Postado : 26/10/2011 5:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ferreira, sempre costumo dizer que o ideal é ou anexar os modelos aqui no Forum na opção abaixo "Adicionar um Anexo" ou colocar em algum drive virtual tipo o 4Shared, Sendspace, e depois postar o link aqui, assim outros colaboradores poderão contribuir tambem, alem de dependermos de tempo disponivel, e nem sempre poder dar uma resposta em tempo real ou de imediato.
Se for questão de dados que não possam serem postados, preencha com dados ficticios, mas se preferir me enviar, pode usar o email que aparece abaixo em minha descrição, só não posso prometer uma resposta de imediato.

[]s

 
Postado : 26/10/2011 6:15 pm
Página 1 / 2