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

  • Thread starter Thread starter ytayta555
  • Start date Start date
Y

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
 
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
 
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
 
Just change the counter to count columns instead of rows.
Click to expand...

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