Como posso inserir cronometro regressivo de horas em celulas respectivas por ex: quando houver modificção na celula A2 o cronometro inicie , e quando houver modificação na celula B2 o mesmo pare e registre o tempo decorrido na celula D2 e assim respectivamente por todas as tres colunas? Obrigado pela atenção.
Boa noite Ned,
Acho que daria para fazer usando o evento Worksheet_Change, mas para que tipo de trabalho você necessita dessas cronometragem?
att,
Olá brunoxro,
Fico muito agradecido pela atenção!
Na verdade estou tentando controlar o tempo que é gasto para executar um procedimento dentro da planilha Ex:Imprimir,copiar e gravar alguns códigos em um determinado tempo,e esse tempo de atendimento é de 3 horas,então eu vou usar como gestão visual,não só para mim e sim para todos os outros usuários,se possível deixar com cores graduais para melhor visualização.Por isso agradeço mais uma vez a atenção de vocês para conosco.Tentei acrescentar a planilha aqui , mas to apanhando um pouco!
Enquanto aguardamos deu exemplo, de uma olhada no link abaixo, é só fazer o ajuste para rodar a macro quando alterar a celula utilizando o Evento Change.
Como inserir um cronômetro de contagem regressiva em uma planilha do Excel
http://ptcomputador.com/Software/micros ... 35372.html
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Olá Mauro,
Visualizei o link,pra mim é um bicho de sete cabeças , joguei o código aqui na planilha e é por ai , porém não sei como adaptar para minha necessidade , me desculpe! Muito obrigado!
Ola
Segue minha planilha , preciso trabalhar com as colunas da aba "relatorio" e que estão com cores diferentes.
Fico grato pela atenção.
Boa noite
Amigos encontrei o código abaixo que já me atenderia,porem me da um erro."A variável do objeto ou a variável do bloco 'With' não foi definida."
Sub MrE()
Dim rng As Range, cell As Range
DoEvents
For Each cel In Range("L2:L" & Range("L" & Rows.Count).End(xlUp).Row)
If cell.Value >= "03:00:01" And cell.Offset(, 2).Value = 1 Then
If Not rng Is Nothing Then
Set rng = Union(rng, cel)
Else
Set rng = cell
End If
End If
Next cel
rng.EntireRow.Interior.Color = vbBlack
rng.EntireRow.Font.Color = vbWhite
rng.EntireRow.Interior.Color = vbWhite
rng.EntireRow.Font.Color = vbBlack
Set rng = Nothing
Set cell = Nothing
Call MrE
End Sub
Outra necessidade é que seja acionada ao clicar na planilha.Esqueci de mencionar que o excel que vou utilizar é o 2003.
Fico grato pela atenção