Contar celdas diferentes en rangos en excel

[3rIcK]

Hola a todos . . .

Tengo tiempo batallando con esto, quiero contar las celdas diferentes entre rangos en excel, se que exsiste esta formula para contar los diferentes:
=SUMPRODUCT((A1:A100<>"")/COUNTIF(A1:A100,A1:A100&""))

Ahora lo que quiero hacer es contar entre rangos, les explico, tengo los siguientes datos:

A B C
A001 03/15/2011 3
B001 03/20/2011 3
C001 03/22/2011 3
A001 04/15/2011 4
A001 04/18/2011 4
B001 04/23/2011 4
A001 05/30/2011 5

Donde A = Identificador, B = Fecha, C = Mes

Lo que quiero hacer es contar los diferentes por mes, por ejemplo en este caso serian Marzo = 3, Abril = 2, Mayo = 1.
Use la misma formula para contar los diferentes solo que con una modificacion, en la parte de (A1:A100<>"") lo cambie por (C1:C100=3) para Marzo, (C1:C100=4) para Abril . . .
Me llega a mostrar los datos correctos del primer mes, pero en caso de los siguientes meses me muestra datos erroneos.
No se si me puedan ayudar a salir de este problema, si ay alguna funcion para esto o formula o alguna otra opcion para poder resolver mi problema, gracias anticipadas.


Saludos . . .

[mrocf]

Lo más inmediato sería crear una columna auxiliar con la fórmula:

= IF(C1 = 3, A1, "")
(el "3" es por el mes de Marzo)

y luego aplicar la fórmula que conoces a esta columna.

Saludos, Cacho.

[3rIcK]

Iniciado por mrocf

Lo más inmediato sería crear una columna auxiliar con la fórmula:

= IF(C1 = 3, A1, "")
(el "3" es por el mes de Marzo)

y luego aplicar la fórmula que conoces a esta columna.

Saludos, Cacho.

Gracias por responder . . .

mmmmmm creo que esto no serviria porque quiero que esto se haga automatico, estos datos los saco de una base de datos, los pego en una hoja y en otra saco el concentrado por meses, como sumatorias, todos los diferentes, etc., segun yo tendria que ir cambiando el mes pasa sacar los diferentes, bueno eso es lo que entendi con tu respuesta.

saludos . . .

[mrocf]

En tal caso, quizás te convenga utilizar una función personalizada como por ejemplo:

Código PHP:

  Function ContarConFiltro(r_Cuenta As Range, r_Filtro As Range, ByVal Filtro As Double)
Dim i As Long, Aux As String
 
If r_Cuenta.Rows.Count <> r_Filtro.Rows.Count Then
  ContarConFiltro = "Las filas no son iguales"
  Exit Function
End If
If r_Cuenta.Columns.Count <> 1 Or r_Filtro.Columns.Count <> 1 Then
  ContarConFiltro = "Rango con más de una columna"
  Exit Function
End If
 
For i = 1 To r_Cuenta.Rows.Count
  If r_Filtro(i) = Filtro And InStr(Aux, r_Cuenta(i) & "@") = 0 Then _
    Aux = Aux & r_Cuenta(i) & "@"
Next i
 
ContarConFiltro = Len(Aux) - Len(WorksheetFunction.Substitute(Aux, "@", ""))
End Function 
   

Se utiliza así:

ContarConFiltro(A1:A7; C1:C7; 4)

siendo:
A1:A7 : el rango de información distinta a contar
C1:C7 : el rango de selección
4 : el dato que selecciona (mes "4" en este caso)

¿Te puede servir?
Saludos, Cacho.

[3rIcK]

Iniciado por mrocf

En tal caso, quizás te convenga utilizar una función personalizada como por ejemplo:

Código PHP:

  Function ContarConFiltro(r_Cuenta As Range, r_Filtro As Range, ByVal Filtro As Double)
Dim i As Long, Aux As String
 
If r_Cuenta.Rows.Count <> r_Filtro.Rows.Count Then
  ContarConFiltro = "Las filas no son iguales"
  Exit Function
End If
If r_Cuenta.Columns.Count <> 1 Or r_Filtro.Columns.Count <> 1 Then
  ContarConFiltro = "Rango con más de una columna"
  Exit Function
End If
 
For i = 1 To r_Cuenta.Rows.Count
  If r_Filtro(i) = Filtro And InStr(Aux, r_Cuenta(i) & "@") = 0 Then _
    Aux = Aux & r_Cuenta(i) & "@"
Next i
 
ContarConFiltro = Len(Aux) - Len(WorksheetFunction.Substitute(Aux, "@", ""))
End Function 
   

Se utiliza así:

ContarConFiltro(A1:A7; C1:C7; 4)

siendo:
A1:A7 : el rango de información distinta a contar
C1:C7 : el rango de selección
4 : el dato que selecciona (mes "4" en este caso)

¿Te puede servir?
Saludos, Cacho.

mrocf ni mas ni menos , eso exactamente es lo que estaba buscando, gracias por responder y sobre todo por resolver mi duda.

saludos . . .