VBA is row the same put X

[Stephen_IV]

Hi, I am looking for a VBA solution to check to see if every value in the row is the same. I am trying to learn. If the row has a blank cell then the row is not the same. When it finds it please put an x at the end if the row.
<style type="text/css">
table.tableizer-table {
font-size: 12px;
border: 1px solid #CCC ;
font-family: Arial, Helvetica, sans-serif;
}
.tableizer-table td {
padding: 4px;
margin: 3px;
border: 1px solid #CCC ;
}
.tableizer-table th {
background-color: #104E8B ;
color: #FFF ;
font-weight: bold;
}
</style>
<table class="tableizer-table">
<thead><tr class="tableizer-firstrow"><th>ID</th><th>2010</th><th>2011</th><th>2012</th><th>2013</th><th> </th></tr></thead><tbody>
<tr><td>111</td><td>190111</td><td>190111</td><td>190111</td><td>190111</td><td>x</td></tr>
<tr><td>222</td><td>190111</td><td> </td><td> </td><td>190111</td><td> </td></tr>
<tr><td>333</td><td>190411</td><td>190411</td><td>190411</td><td>150311</td><td> </td></tr>
<tr><td>444</td><td>190111</td><td> </td><td>190111</td><td>190111</td><td> </td></tr>
<tr><td>555</td><td>191011</td><td>191011</td><td>191011</td><td>191011</td><td>x</td></tr>
</tbody></table>

 

[MARK858]

Do you really need VBA for this as you can achieve it easy enough with formula? Drag/copy the formula in F2 down.

Excel Workbook
	A	B	C	D	E	F
1	ID	2010	2011	2012	2013
2	111	190111	190111	190111	190111	x
3	222	190111			190111
4	333	190411	190411	190411	150311
5	444	190111		190111	190111
6	555	191011	191011	191011	191011	x
Sheet1

 

[planetpj]

If you would like VBA here is one way.

=remains(B2:E2)
then copy down

Function remains(r As Range) As String
remains = ""
    For Each xcell In r
        If WorksheetFunction.CountIf(r, xcell) = 4 Then
            remains = "x"
        End If
    Next
End Function

 

[MARK858]

Why would you use a VBA function to replace a normal formula?
I can understand to a certain degree using a VBA procedure if you already have some code you want to slot the code into but I can see no reason to create a function to do what a basic formula already does

 

[Fluff]

Further to what MARK858 has said, what is the point of looping through the range & using countif
The Countif will return the same result for each iteration of the loop.