Contar celdas utilizando la función contar.si
Estoy contando celdas con la función contar. Si. Cuento las celdas que tienen un valor mayor que cero. En este cuadro, cada celda equivale a una fecha, por lo que ese contar lo utilizo para ver los días en que hay datos. Lo utilizo para saber de cuantos dias hay dispersión de pedidos, el problema me surge cuando se queda un día atrás y el siguiente hay cero y el otro hay pedidos. En el ejemplo, en la segunda fila, no encuentro la forma de ver que el día 5/2 , a pesar de haber 0 pedidos, en la celda K6 debe haber un cuatro, pues hay pedidos con 4 días de antiguedad.
2 Respuestas
Quizás requieras usar una macro para ello, en el link tienes un ejemplo
http://www.programarexcel.com/2014/12/como-contar-valores-con-macro-funcion.html
Acá te dejo un código que cuenta valores
Sub CuentaCeldas()
Application.ScreenUpdating = False
On Error Resume Next
DisplayAlerts = False
Dim uf As String
Dim fila As Integer
fila = 2
uf = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
Cells(25, "E") = Application.WorksheetFunction.Count(Range("A2" & ":B" & uf))
Range("B25").NumberFormat = "#,##0.00"
MsgBox ("Hay " & Cells(25, "E") & " valores en el rango"), vbInformation, "AVISO"
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Hola, en la primera fila tengo pedidos de dos días, eso es correcto, pero en la segunda tengo del 4 al 7, aunque el día 5 no hay pedidos, la dispersión sería de 4 días.
Las condiciones es saber la dispersión. La suma de pedidos pendientes es muy fácil y falta saber la dispersión (4 días en el segundo ejemplo).
Gracias por tu pronta respuesta.
Se me ha olvidado decirte que tengo una tabla en realidad con todo el mes, en el caso del ejemplo, el día 8 sería el actual que nunca hay del día en curso.
Estaba buscando la solución a tu pregunta, pero me dí cuenta de lo siguiente.
En tu primer ejemplo:
Tienes pedidos el 5feb y el 6feb. No tienes pedidos el 7feb, ¿la dispersión en este caso es de 3 días?, es decir 5feb + 6feb + 7feb?
En el segundo ejemplo:
Tienes pedidos el 4feb, 6feb y 7feb. dices que la dispersión es de 4 días: 4feb + 5feb + 6feb + 7feb?
En los 2 casos entre la fecha del primer pedido y el 8 de feb, falta un día con pedido, en el primer caso el día que no tiene pedido es el 7feb, en el segundo caso la fecha que no tiene pedido es el 5 de feb.
Si lo que te comento, no es el procedimiento para calcular la dispersión, entonces tienes explicarme cómo se hace el cálculo. Si puedes poner más ejemplos de dispersión y cómo cuentas los días para que me quede más claro, y entonces buscar una solución.
Si crees mejor enviarme un archivo con los ejemplos:
Mi correo
En el asunto del correo escribe tu nombre de usuario “juanjosear” y el título de esta pregunta.
Hola Dante, el fichero es mensual, por lo que las columnas a la derecha no cuentan ya que aún no tienen ni pueden tener datos hasta que llegue el día. Los pedidos son como máximo del día anterior.
La dispersión la mido teniendo en cuenta el número de días que tienen pedidos, en esta foto están todas filas bien excepto la 8 y la 10
http://gyazo.com/f3d8f2fb1b52219136bd555117a4f0f0
La dispersión por cada día sería contar las celdas con datos.
En la fila 9 hay datos los días 4,5 y 6 de Febrero por lo que mi dispersión son tres días y sale perfectamente con la función contar.si (cuanto los mayores que cero)
En la fila 10 hay datos los días 4, 6 y 7 , pero aunque no exista ningún pedido del día 5, mi dispersión aquí es de cuatro días.
Las celdas que me están molestando aquí son la D8 y la F10.
Lo que necesitaría es poder contar esos ceros que están entre dos celdas con un dato mayor que cero
Te cambio la fórmula por una macro.
Function Dispersion(rango As Range) 'Por.Dante Amor una = True For Each c In rango If c.Value <> 0 Then If una Then ini = c.Column una = False fin = c.Column End If Next Dispersion = fin + 1 - ini End Function
Sigue las Instrucciones para una Función 1. Abre tu libro de excel 2. Para abrir VBa y poder pegar la función, Presiona Alt + F11 3. En el menú elige Insertar / Módulo 4. En el panel del lado derecho copia la función 5. En cualquier celda utiliza la función, como cualquier otra función de excel
Cómo funciona: en la celda que quieras el resultado del conteo escribe la siguiente fórmula:
=Dispersion(B7:AC7)
La escribes como una fórmula de excel
=Dispersion(rango de celdas)
En el ejemplo, mis fechas están desde la columna B hasta la AC. Revisa, cómo en la fila 7 de mi ejemplo estoy poniendo la fórmula de Dispersion, abarcando el rango desde el 1Feb hasta el 28Feb.
Saludos. Dante Amor
Perfecto!. Funciona! . Me gustaría comprender la macro. Me pierdo en el condicional.
If una Then ini = c.Column una = False fin = c.Column
Va recorriendo el rango de celdas y cuando encuentra un valor distinto de cero salta a este condicional y pone el valor de la columna en una variable "ini". Entonces pasas "una" a false y a buscar el último valor distinto de cero que lo pasamos a fin.
Dispersion = fin + 1 - ini
Al final restamos el inicio (ini) a la celda final más 1 .
¿Es así?
UN MILLÓN DE GRACIAS
Lo que hago es poner en la variable "ini", el número de columna que tiene el primer valor diferente a 0. En ese momento "una" se convierte en falso, entonces cuando pregunta en el ciclo
if una then
Como una es falso ya no asigna otra columna a "ini"
Después reviso todas las celdas, la última columna con valor quedará en la variable "fin".
Luego resto fin - ini y me da el número de columnas (Dispersión), le sumo uno para que considere la última celda.