Count cells in row based on cell value, highlight row if wrong number or cells.

Thank you so much for coding this for me. I hope others and I can learn from your experience.

Thank you for your hard work helping me with this code.

Nate beat me to it, and with a nice code too I might add, but since I had worked this up I thought I would reply anyway. It highlights the same two rows that you highlighted in the 'sample' spreadsheet, so I hope it will work on your entire set of data.

Dim rw As Long

Sub sample()
For rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Select Case UCase(Cells(rw, 5).Value)
        Case "BLD", "EOW", "INLSW"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 7 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "ED", "ER"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 6 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "CP", "TBKR", "CLW", "NG"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 5 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "XCLW"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 9 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
    End Select
Next rw
End Sub

Christ's Peace and Best of Luck

Originally Posted by JeteMc

Nate beat me to it, and with a nice code too I might add, but since I had worked this up I thought I would reply anyway. It highlights the same two rows that you highlighted in the 'sample' spreadsheet, so I hope it will work on your entire set of data.

Dim rw As Long

Sub sample()
For rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Select Case UCase(Cells(rw, 5).Value)
        Case "BLD", "EOW", "INLSW"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 7 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "ED", "ER"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 6 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "CP", "TBKR", "CLW", "NG"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 5 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
        Case "XCLW"
            If Cells(rw, Columns.Count).End(xlToLeft).Column <> 9 Then
                Range(Cells(rw, 1), Cells(rw, 20)).Interior.ColorIndex = 3
            End If
    End Select
Next rw
End Sub

Christ's Peace and Best of Luck

Great work!

Can only the highlighted fields be placed onto a second work sheet? Can I add this function to this code?

Gutterball, Thanks for the compliment, I am sorry that I do not have a ready answer for the question about placing the incomplete rows in a second work sheet, I can look into that, but it may take some time. I note that Nate has already added that functionality to his code, so perhaps that would be your better option.

I added the functionality for copying and pasting the first 20 cells from each 'incomplete' row to a separate sheet.
I have also added some comments to the code that may be useful in updating it should the need arise.

Sub sample()
Dim Rw As Long, markCopy As Boolean
Sheets("SampleRESULT").Select        'this will start the code on the correct sheet
markCopy = False
For Rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Select Case UCase(Cells(Rw, 5).Value)
        Case "BLD", "EOW", "INLSW"  'if you need to add another section of code, copy from here
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 7 Then
            markCopy = True
            End If                  'to here and of course change the number after <>
        Case "ED", "ER" 'you can append any Case
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 6 Then
                markCopy = True
            End If
        Case "CP", "TBKR", "CLW", "NG"
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 5 Then
                markCopy = True
            End If
        Case "XCLW"
            If Cells(Rw, Columns.Count).End(xlToLeft).Column <> 9 Then
                markCopy = True
            End If
            'if you add another section of code paste what you copied from above here
    End Select
    If markCopy = True Then
            Range(Cells(Rw, 1), Cells(Rw, 20)).Interior.ColorIndex = 3
            Range(Cells(Rw, 1), Cells(Rw, 20)).Select
             Selection.Copy
             Sheets("Sheet1").Select
             Range("A" & Rows.Count).End(xlUp).Offset(1).Select 'starts pasting on row 2
             Selection.PasteSpecial Paste:=xlPasteValues
             Application.CutCopyMode = False
             Sheets("SampleRESULT").Select
             Range("A" & Rw).Select
            markCopy = False
    End If
Next Rw
End Sub

Hope that this will be of some help.
Christ's Peace and Best of Luck