Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Demarcar célula se ...
 
Notifications
Clear all

Demarcar célula se atingir uma condição

 
2024 - VBA & Macros
Post Recente por MonoHell 9 anos atrás
3 Posts
2 Usuários
0 Reactions
789 Visualizações
RSS
 MonoHell
(@monohell)
Posts: 0
New Member
Topic starter
 

Boa noite, sou novo aqui no Fórum! hahaha

Bem, minha dúvida é a seguinte:

Tenho uma planilha e através dela tenho controle de alguns e-mails que são submetidos diariamente, sendo que estes tem um prazo de 10 minutos para serem respondidos.
Atualmente eu consigo calcular a diferença de horários aplicando a seguinte fórmula "A2-B2" (Usando estas células como exemplo) e ele me retorna a diferença entre o recebimento e a hora que foi remetido uma resposta. Eu gostaria de dinamizar este processo, sendo que atualmente eu tenho que imputar manualmente essa fórmula. Ou seja: um código que faça essa comparação 

(por EX: B2-A2, B3-A3, B4-A4, B5-A5)

e também que o campo que atingir um valor maior que " 00:10:00 " seja demarcado em vermelho (ou mesmo dar um destaque a esse campo).

Creio não ter explanado minha dúvida da melhor forma possível, reiterando: Coluna "C" é resultado da coluna "B" - "A" (Ou seja, =b1-a1). Para não ter que inserir isso linha a linha, há algum código que eu possa utilizar para atribuir automaticamente essa formula a coluna "C" ?

EX:

C1 = B1 - A1
C2 = B2 - A2
C3 = B3 - A3

Talvez tenha falado muito e não explicado nada, portanto segue uma planilha para maior entendimento:

 
Postado : 18/06/2015 5:33 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Veja se ajuda...

Option Explicit

Sub AleVBA_16278()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
        Range("C2").Formula = "=B2-A2"
        Range("C2").AutoFill Destination:=Range("C2:C" & lastrow)
        Range("$C$1").AutoFilter field:=3, Criteria1:=">" & "00:09:59"
        Range("C2:C" & lastrow).SpecialCells(xlCellTypeVisible).Select
        Selection.Interior.ColorIndex = 6
    Application.ScreenUpdating = True
End Sub

Att

 
Postado : 19/06/2015 10:38 am
 MonoHell
(@monohell)
Posts: 0
New Member
Topic starter
 

alexandrevba

MUITO obrigado pelo auxílio prestado, meu problema já não é mais um problema. ;)

 
Postado : 19/06/2015 5:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico