Try to built an UDF to Count until .....

[ytayta555]

HI , and a good week , programmers !

I need a UDF to count until it find
the same value in a range of cells :

eg: in A1 is value TRUE , in A2 the same value ,
in A3 the same value ( TRUE ) , in A4 the same value ,
but in cell A5 the value is FALSE ; in cell A6 the value is
again TRUE , etc .
the good result of this UDF is 4 , because I need this
UDF to count only untill it find the same value ;

Please very much to help me , and thousand
of thanks in advance

 

[Don Guillett]

How about
=cur(a2:a8)

Function cuR(mc)'for a range
Application.Volatile
counter = 1
For Each c In mc
If Cells(c.Row + 1, c.Column) = Cells(c.Row, c.Column) Then
counter = counter + 1
Else
Exit For
End If
Next
cuR = counter
End Function
========
=cu("a") for column A

Function cu(mc)'
Application.Volatile
counter = 1
For i = 1 To Cells(Rows.Count, mc).End(xlUp).Row
If Cells(i + 1, mc) = Cells(i, mc) Then
counter = counter + 1
Else
Exit For
End If
Next i
cu = counter
End Function

 

[ytayta555]

How about
=cur(a2:a8)

It work perfect , it's really great ;
Thank you so much great programmer , you
helped me many few of times

 

[ytayta555]

How about

But , if I need to use it for count in a ROW , not in a
COLUMN ? I tried , but I cann't resolved it ...

 

[Don Guillett]

Just change the counter to count columns instead of rows.
=cuc(a5:x5)

function cuc(mc)
Application.Volatile
counter = 1
For Each c In mc
If Cells(c.Row, c.Column + 1) = Cells(c.Row, c.Column) Then
counter = counter + 1
Else
Exit For
End If
Next
'MsgBox counter
cuc = counter
End Function

 

[ytayta555]

Just change the counter to count columns instead of rows.

IT work !!
Thank you again and again for useing and shareing your
knowledge in interest of my benefit and help