Demarcar célula se atingir uma condição

2024 - VBA & Macros

Post Recente por MonoHell 10 anos atrás

3 Posts

2 Usuários

0 Reactions

799 Visualizações

RSS

MonoHell

(@monohell)

Posts: 12

Active 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

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

Postado : 19/06/2015 10:38 am