Check if duplicate row below + highlight

[g0d0rz]

Hi guys,

I need your help, I need to achieve the following:

Time	1 or 0
50	0
60	1
70	1
80	0

<tbody>
</tbody>

I have two columns, first one displays a date with time, second one displays 1 or 0. I need to check if there are two 1s below each other.

As in the example, they would have to color red.

Two 0s under each other is not a problem, only the 1s.

Second question would be, what would be a good way to show this in a graph? Only highlighting the wrong ones?

Thanks guys!!

 

[JLGWhiz]

This will find and color the 1s. Assuming columns A and B

Sub dupOnes()
Dim sh As Worksheet, lr As Long, c As Range
Set sh = Sheets(1) 'Edit sheet name
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row
    For Each c In Range("B2:B" & lr - 1)
        If c = 1 And c.Offset(1, 0) = 1 Then
            c.Resize(2, 1).Font.Color = vbRed
        End If
    Next
End Sub

As for the charting, you need to define what it is you are charting. ie. Frequency, percentage, etc. Once you know what you are charting, the rest is just a matter of taking the data from the results and put it in a range somewhere.

 

[g0d0rz]

Hi thanks for your help! I am unable to get the code working.

Attached is the excel file, column E is the grand total and should not be used?
The red circles are the bad ones and should be measured. Any idea on how to show this in a graph?

Only the first and last 1 is good, all the rest should be red.

Thanks!

 

[JLGWhiz]

This screen shot does not coincide with the OP description of what you want to do. There are four columns of data in the screen shot and the two of interest are not specified.

 

[g0d0rz]

My apologies, I thought it would be easier to post it like that so I could modify the macro myself, unfortunately I was wrong.