Excel - ayuda......CONTAR.SI con 3 criterios

Tengo en una fila 5 celdas con valores 0-8-8-8-6
me interesa agrupar en otra celda un contador con los siguientes criterios:
1º nº de valores =0
2º nº de valores =8
3º nº de valores >0 y <8

y no me sale, alguna alma caritativa que me ilumine, POR FAVOR. Gracias anticipadas

Hola !!! Jopapa

Te recomiendo usar el siguiente codigo: (esto está diseñado tomando como supuesto que los valores comienzan en la celda A1)

El resultado de los contadores se entrega mediante un Mensage.

Public Sub Contarores()
Dim Contador1 As Variant, Contador2 As Variant, Contador3 As Variant, Matriz As Range
Set Matriz = Range("A1").CurrentRegion
Contador1 = 0
Contador2 = 0
Contador3 = 0

For Each cell In Matriz
If cell.Value = 0 Then
Contador1 = Contador1 + 1

ElseIf cell.Value = 8 Then
Contador2 = Contador2 + 1

ElseIf cell.Value > 0 And cell.Value < 8 Then
Contador3 = Contador3 + 1
End If
Next cell
MsgBox "Hay: " & Chr(13) & Contador1 & " valores 0" & Chr(13) & Contador2 & " valores 8" & Chr(13) & Contador3 & " valores entre 0 y 8."
End Sub


Saludos,
Fernando.

Muchas gracias Fernando. Muy agradecido. Saludos
Jose

Tengo problemas, he hecho :
Public Sub Contadores()
Dim Contador1 As Variant, Contador2 As Variant, Contador3 As Variant, Matriz As Range
Set Matriz = Range("A1").CurrentRegion
Contador1 = 0
Contador2 = 0
Contador3 = 0

For Each cell In Matriz
If cell.Value = 0 Then
Contador1 = Contador1 + 1

Elself cell.Value=8 Then
Contador2 = Contador2 + 1

Elself cell.Value>0 And cell.Value<8 Then
Contador2 = Contador3 + 1
End If
Next cell
MsgBox "Hay" & Chr(13) & Contador1 & "valores 0" & Chr(13) & Contador2 & "valores 8" & Chr(13) & Contador3 & "valores entre 0 y 8"

End Sub

....Me indica error en copilación error de sintaxis en : Elself cell.Value = 8 Then

....Me interesaría que los contadores los pusiera en 3 celdas diferentes
=0
=8
>0<8
Saludos

Cómo os complicáis la vida.!!! con lo sencillo que es usar el Contar.SI
Suponiendo que los valores están en la fila A1... A5

1º nº de valores =0 =CONTAR.SI($A$1:$A$5;"0")
2º nº de valores =8 =CONTAR.SI($A$1:$A$5;"8")
3º nº de valores >0 y <8

=CONTAR.SI($A$1:$A$5;">0")-CONTAR.SI(A$1:A$5;">=8")

un poco de álgrebra.

Saludos

Aquí está el problema:

Elself cell.Value>0 And cell.Value<8 Then
Contador2 = Contador3 + 1
End If

debe ser:

Contdor3 = Contador3 + 1

Saludos,

Fernando.

Gracias Jose Luis y Fernando, lo probaré el sábado, ya que me voy de viaje.
Saludos
José