根据单元格的输入值对行进行颜色格式化

Question

There is some data in the worksheet, which includes a column for time. Time Range is provided as an Input to format the color of the time cells within that time range. Color formatting of the rows containing those cells is also desired but is not observed in the output. It is to mention that the start time or end time provided as input is sometimes not matching value of any time cell.

Attached is the code and is not giving desired output.

Any kind of help will be appreciated.

    Dim ws As Worksheet
    Dim timeRange As Range

 Set ws = Sheets("Worksheet") 'Name of my worksheet goes here. 
 Set timeRange = ws.Range("D:D")

'input the lower limit and the upper limit of the search range
Dim Start_Time As Variant
Dim End_Time As Variant

Start_Time = InputBox(prompt:="Enter the Start_Time(hh:mm:ss.000)")
End_Time = InputBox(prompt:="Enter the End_Time(hh:mm:ss.000)")


    timeRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
    Formula1:=Start_Time, Formula2:=End_Time

    timeRange.FormatConditions(timeRange.FormatConditions.Count).SetFirstPriority

 With timeRange.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With timeRange.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
timeRange.FormatConditions(1).StopIfTrue = False


 'Loop to format the rows that contains those time values
 Dim Range_Search As String
For Each c In Range("D:D")
If c.Interior.Color = 13551615 Then
    Range_Search = "A" & c.Row & ":" & "H" & c.Row
    ws.Range(Range_Search).Interior.Color = 13551615
End If
Next c

Answer 1

The final loop in your code won't work. You need to change it to:

For Each c In Range("D:D")
    If c.Interior.Color = 13551615 Then
        Range_Search = "A" & c.Row & ":" & "H" & c.Row
        Range(Range_Search).Select
        Selection.Interior.Color = 13551615
    End If
Next c

I'm not sure what the "Let" is supposed to do in your statement, but it's not necessary. Also, you need to get the Row from cell c, not just c.

To make this even better, I would reference the cells by the worksheet as this will prevent possible problems from selecting different worksheets:

Dim ws As worksheet
Dim timeRange As Range

Set ws = Sheets("mySheet") 'Obviously change this to your sheet name
Set timeRange = ws.Range("D:D")

Then replace "Selection." with "timeRange." in your code, so

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:=Start_Time, Formula2:=End_Time

becomes:

timeRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:=Start_Time, Formula2:=End_Time

Then change your final loop to do something similar:

For Each c In timeRange
    If c.Interior.Color = 13551615 Then
        ws.Range("A" & c.Row & ":" & "H" & c.Row).Interior.Color = 13551615            
    End If
Next c

Selecting cells is not efficient and can cause problems if something else inadvertently gets selected while you are trying to run the code.

Answer 2

I figured it out. Thanks to OpiesDad for help.

Basically the format condition color is not recognize by the vba until you add DisplayFormat. before the interior.color command. so something like.

For Each c In timeRange
If c.**DisplayFormat**.Interior.Color = 13551615 Then
    ws.Range("A" & c.Row & ":" & "H" & c.Row).Interior.Color = 13551615            
End If
Next c