copy contents from cell if condional format is true into another cell

[Kerry M]

here goes ...

I am working on a Carpark problem we have at work

I go around all the parking spots and enter the Car Registration plates every hour,
If the same car is there 3Hours I use conditional formatting to highlight cell as BLUE eg. A to D = 3 Hours
If the car is STAFF colour RED

1	A	B	C	D	E	F	G	H	I
2	6:00	7:00	8:00	9:00	10:00
3	STAFF	<-- RED					=D3
4	REGO1	REGO1	REGO1	REGO1	<-- BLUE		=D4

<tbody>
</tbody>

what i need to do is, when any cell on the row from B to I = colour RED or BLUE then copy contents to Column J with that colour
as it occurs
then the same for next row etc.etc

Any help would be Appreciated

P.S. Hope you get what i mean

 

[NotoriousPopol]

With VBA :

Const ColRED As Integer = 3
Const ColBLUE As Integer = 42

Sub lol()

Dim Valid As Boolean
Dim L As Integer, C As Integer
Dim i As Integer

Valid = False 'Valid=True if we have an empty row -> we end
L = 2 'Starting row

While Valid = False
    i = 0
    For C = 2 To 9 'from column B to I
        If Cells(L, C).Interior.ColorIndex = ColRED Then 'if it's red
            Cells(L, 10) = Cells(L, C) 'we copy the value
            Cells(L, 10).Interior.ColorIndex = ColRED 'we set the red color
            
        ElseIf Cells(L, C).Interior.ColorIndex = ColBLUE Then 'if it's blue
            If i = 3 Then '3Hours
                Cells(L, 10) = Cells(L, C) 'we copy the value
                Cells(L, 10).Interior.ColorIndex = ColBLUE 'we set the blue color
            End If
            
        Else
            i = i + 1 'if i=8 then we have an empty row so we leave
        End If
        
        If i = 8 Then 'empty row
            Valid = True
        End If
        
    Next C
    
    L = L + 1 'next row
Wend

End Sub

You have to make sure the 2 constants are good so it works fine.

 

[Kerry M]

Thank you for helping
Appreciated