Contar celdas después de un filtro en Excel

Re
Ah pues no, hay 11:
1 MEDIA
2 NB
3 NBVAL
4 MAX
5 MIN
6 PRODUCTO
7 ECARTYPE
8 ECARTYPEP
9 SUMA
10 VAR
11 VAR.P

A+

Una solución consiste en crear una columna que te indique si la fila está oculta o no:

Una columna con la fórmula =SUBTOTAL(3;D3), con D3 siendo una celda siempre llena (por ejemplo, el número/contador de fila)

Y luego la función CONTAR.SI.CONJUNTO, filtra sobre esta columna y sobre la columna con tu criterio a contar.

Así, cuando apliques los filtros, los subtotales estarán ocultos y mostrarán '0', y solo se contarán tus criterios en las filas visibles.

Hola,

puedes crear una función personalizada (en un módulo, no en el código de la hoja) que te devuelva 1 si la fila de la celda es visible o 0 si está oculta.

Function visible(celda As Range) As Integer visible = (Not celda.EntireRow.Hidden) * -1 End Function

- Quita todos los filtros.
- Agrega en C2: =visible(C2) y cópialo hacia abajo (esta columna podrá ocultarse si es necesario)

- Con los "médicos" en la columna B
=SUMARPROD((B2:B10="médico")*C2:C10) te devuelve el número de "médicos" visibles.

Aplica los filtros y prueba

eric

tuve el mismo problema y la propuesta con =SUBTOTAL funciona de maravilla

hay que elegir no_función=3, que corresponde a CONTARVAL

entonces, si selecciono toda mi columna, obtengo 618 elementos
si solo selecciono 'médico', obtengo 213 elementos
y así sucesivamente

=SUBTOTAL(3;A2:A619)

Hola, Igabriel.
Y simplemente, sin hacer una macro, ¿por qué no aplicas la función SUMAPRODUCTO mencionada por eriiic a las columnas "Fecha" y "Denominación"? Es rápido y fiable, y responde exactamente a tu solicitud.
--
¡Está bien, la jubilación! Sobre todo en las Antillas... :-)
Raymond

Hola,

Si haces tu filtro por macro cuenta directamente en la macro sin hacer una función entonces... ¿no?

Hola Gabriel,
Quisiera saber si encontraste una solución a tu problema porque tengo el mismo problema.
Gracias.

Crear una columna con la fórmula =SI(A1="médico";1;0)
(A1 siendo la celda de la columna que debería eventualmente recibir la palabra médico)
luego crear un subtotal encima de la etiqueta de la columna que contiene esta fórmula
el subtotal será, por lo tanto, igual al número de celdas que contienen la palabra médico.

Hola,

Para tu problema tienes que pasar por VBA /

SUB MacroNbMedecin ()

dim nbligneas long
dim columna as long
dim nbMedecin as long
dim nbcolonne as long
dim rg as range

columna = Pon el número de la columna que deseas filtrar

'Busca la primera línea no vacía
lignedebut= cells(1,columna).end(xldown).row

'Cuenta el número de líneas y columnas del rango
nbligne= cells(rows.count,columna).end(xlup).row
nbcolonne = cells(lignedebut,columns.count).end(xltoleft).column

'recupera el rango
Set rg = Cells(lignedebut, 1).Resize(nbligne, nbcolonne)

'Se filtra
rg(1, 1).Offset(-1, 0).AutoFilter Field:=columna, Criteria1:="=MEDECIN"

'Verifica que existe
On Error Resume Next
If IsError(rg.SpecialCells(xlCellTypeVisible)) Then
On Error GoTo finProcRecupGP3Bis:
MsgBox "No hay datos que contengan la palabra MEDECIN", vbInformation, "Datos"
End '==> salimos de la función
End If

'para contar haces
nbMedecin = rg.SpecialCells(xlCellTypeVisible).Count / nbcolonne

cells(1,1) = nbMedecin '==> coloca el número de médicos en la celda A1

end SUB