Notifications
Clear all

Botão de hora atual

23 Posts
2 Usuários
0 Reactions
4,768 Visualizações
Fernando Fernandes
(@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.

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

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

Posta um exemplo da sua planilha.

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

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

Posta um exemplo da sua planilha.

ok, irei fazer o post...

obrigado pelo retorno

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

 
Postado : 19/10/2011 12:14 pm
Fernando Fernandes
(@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.

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

 
Postado : 19/10/2011 12:20 pm
Fernando Fernandes
(@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

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

 
Postado : 19/10/2011 1:33 pm
Fernando Fernandes
(@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

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

 
Postado : 19/10/2011 1:35 pm
Fernando Fernandes
(@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

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

 
Postado : 19/10/2011 1:36 pm
Fernando Fernandes
(@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

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

 
Postado : 25/10/2011 5:54 am
Fernando Fernandes
(@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

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

 
Postado : 25/10/2011 12:42 pm
Fernando Fernandes
(@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

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

 
Postado : 25/10/2011 12:55 pm
Fernando Fernandes
(@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á

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

 
Postado : 25/10/2011 5:20 pm
Fernando Fernandes
(@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

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

 
Postado : 25/10/2011 5:32 pm
Fernando Fernandes
(@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.

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

 
Postado : 25/10/2011 6:06 pm
Fernando Fernandes
(@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

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

 
Postado : 26/10/2011 5:50 pm
Fernando Fernandes
(@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

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

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