Formula, conteo max de repeticiones consecutivas.

Hola cenwin-cba:
Es muy fácil con una columna auxiliar...
Supongamos que tus datos están en la columna A (desde A2 hasta A200)
Supongamos que el valor del cual quieres buscar el MAX de Repeticiones
consecutivas está en C1
Vamos a utilizar desde C2 a C200 como columna auxiliar...
En C2 pones

=SI(A2=C$1;1;0)

y en C3 pones

=SI(A3=C$1;1+C2;0)
y arrastras hacia abajo hasta la C200

En la celda donde quieras obtener tu resultado

=MAX(C2:C200)
_____________________________________

Pero si sabes crear un módulo entonces...
Es mucho más fácil y más chulo que crees uno, y añadas el código que he
creado para ti.
(Está al final del mensaje)
Crea una función personalizada llamada MaxRepCon.
(Máximas Repeticiones Consecutivas)

Devuelve un número entero que corresponde al máximo de repeticiones
consecutivas del valor dentro del rango.

La Sintaxis sería:
MaxRepCon(rango;valor))

Rango es un rango de cualquier hoja, de cualquier libro abierto o cerrado.
Valor es cualquier valor numérico o texto. Teniendo en cuenta que si es
texto debe ir entre comillas. ( v.g. "loquesea")

Function MaxRepCon(ByVal Rango_M As Range, VaBuscar As String) As Integer
Dim m, n As Integer
For n = 1 To Rango_M.Count
If Rango_M.Cells(n).Value = VaBuscar Then
MaxRepCon = MaxRepCon + 1
Else
If MaxRepCon > m Then m = MaxRepCon
MaxRepCon = 0
End If
Next
MaxRepCon = m
End Function

Saludos.-


"cerwin-cba" escribió en el
mensaje de noticias news:

¡ Hola ! amigos, soy nuevo por acá, ando necesitando ayuda, para
encontrar una formula que me calcule la cantidad de veces max que se
repite un
valor de manera consecutiva en un rango. por ej, supongamos que los
valores son
SI y NO y en la columna A

SI
NO
SI
SI
NO
SI
SI
SI
SI
NO

En este caso, "SI" se repitió 4 veces como max y eso es lo que
necesito calcular.
Los datos que voy cargando se van dando de manera aleatoria.

desde ya muchas gracias!!!

Juan Español escribió el 17/09/2012 12:23 :

Hola cenwin-cba:
Es muy fácil con una columna auxiliar...
Supongamos que tus datos están en la columna A (desde A2 hasta A200)
Supongamos que el valor del cual quieres buscar el MAX de Repeticiones
consecutivas está en C1
Vamos a utilizar desde C2 a C200 como columna auxiliar...
En C2 pones

=SI(A2=C$1;1;0)

y en C3 pones

=SI(A3=C$1;1+C2;0)
y arrastras hacia abajo hasta la C200

En la celda donde quieras obtener tu resultado

=MAX(C2:C200)
_____________________________________

Pero si sabes crear un módulo entonces...
Es mucho más fácil y más chulo que crees uno, y
añadas el código que he
creado para ti.
(Está al final del mensaje)
Crea una función personalizada llamada MaxRepCon.
(Máximas Repeticiones Consecutivas)

Devuelve un número entero que corresponde al máximo de
repeticiones
consecutivas del valor dentro del rango.

La Sintaxis sería:
MaxRepCon(rango;valor))

Rango es un rango de cualquier hoja, de cualquier libro abierto o cerrado.
Valor es cualquier valor numérico o texto. Teniendo en cuenta que si es
texto debe ir entre comillas. ( v.g. "loquesea")

Function MaxRepCon(ByVal Rango_M As Range, VaBuscar As String) As Integer
Dim m, n As Integer
For n = 1 To Rango_M.Count
If Rango_M.Cells(n).Value = VaBuscar Then
MaxRepCon = MaxRepCon + 1
Else
If MaxRepCon > m Then m = MaxRepCon
MaxRepCon = 0
End If
Next
MaxRepCon = m
End Function

Saludos.-


"cerwin-cba"
escribió en el
mensaje de noticias news:

¡ Hola ! amigos, soy nuevo por acá, ando necesitando ayuda, para
encontrar una formula que me calcule la cantidad de veces max que se
repite un
valor de manera consecutiva en un rango. por ej, supongamos que los
valores son
SI y NO y en la columna A

SI
NO
SI
SI
NO
SI
SI
SI
SI
NO

En este caso, "SI" se repitió 4 veces como max y eso es lo
que
necesito calcular.
Los datos que voy cargando se van dando de manera aleatoria.

desde ya muchas gracias!!!

Hola Juan mil gracias anduvo muy bien la formula, tengo q hacer la columna auxiliar como dijiste, pero me interesa mas el resultado que me da, lo de los módulos todavía ni se como se usan, pero bueno, nuevamente gracias x darme una mano.

salu2