Formatação condicio...
 
Notifications
Clear all

Formatação condicional em campo tipo horas

5 Posts
2 Usuários
0 Reactions
951 Visualizações
(@brunsftw)
Posts: 93
Trusted Member
Topic starter
 

Boa tarde!
Tô tentando criar uma macro que faça uma formatação condicional em uma coluna do tipo horas ([h]:mm:ss).
Eu preciso pintar de vermelho os valores que estão na minha coluna "M" que sejam maiores que 24hs e menores que 48hs e que essa formatação siga até a coluna "E".
Alguém sabe?

 
Postado : 22/10/2015 11:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você usar essa formula dentro do VBA.

=SE(E(A2>TEMPO(23;59;59)+TEMPO(0;0;1);A2>TEMPO(39;59;59)+TEMPO(0;0;1));1;0)

Veja também:
http://cse.google.com.br/cse?cx=partner ... ndre%20vba

Att

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

 
Postado : 22/10/2015 12:09 pm
(@brunsftw)
Posts: 93
Trusted Member
Topic starter
 

O que eu havia pensado inicialmente seria algo parecido com isso:

Sub formatacao_condicinal()
Dim vDesejados As Range
Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
For Each c In vDesejados
    If c < 48:00:00 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3

Next
End Sub

Mas não tô conseguindo chegar no resultado esperado.
Como eu adaptaria a sua formula aqui?

 
Postado : 22/10/2015 12:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O VBA "não entende" horas maiores do que 23:59:59.
O valores nas celulas do excel são armazenados como numeros então experimente algo assim:

...
For Each c In vDesejados
    If c.value2 >1 and c.value2 < 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3

Onde 1 é o valore armazenado para 24 horas e 2 para 48 hs

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

 
Postado : 22/10/2015 3:20 pm
(@brunsftw)
Posts: 93
Trusted Member
Topic starter
 

Valeeeeeu! Deu certo. :)

 
Postado : 23/10/2015 5:19 am