Función de recuento en una columna en Excel vba
Requiero una función de recuento en una columna vba.
Aquí un ejemplo
1 Respuesta
Respuesta de Dante Amor
1
Muchas gracias Dante, conozco la función pero busco hacerlo mucho más fácil.
Haber si apoyas en ajustar esta macro que encontré en la red o pasarme un nueva versión estaré agradecido
Function PROMEDIAR(Numero As Range) As Long
Dim Desde As Long, x As Long
Dim Veces As Long, Total As Long
'--
Total = 0
Desde = 0
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & x) = Numero Then
If Desde > 0 Then
Veces = Veces + 1
Total = Total + x - Desde
End If
Desde = x
End If
Next
If Veces > 0 Then PROMEDIAR = Int(Total / Veces)
End Function
Function PROMEDIAR(Numero As Range) As Long
Dim Desde As Long, x As Long
Dim Veces As Long, Total As Long
'--
Total = 0
Desde = 0
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & x) = Numero Then
If Desde > 0 Then
Veces = Veces + 1
Total = Total + x - Desde
End If
Desde = x
End If
Next
If Veces > 0 Then PROMEDIAR = Int(Total / Veces) - 1
End Function
Pero busco hacerlo mucho más fácil.
Eso que haces es hacerlo más difícil.
Si me explicas qué necesitas. Al inicio querías contar, pero ahora veo que quieres una especie de promedio.
Ya sabes. Explica con ejemplos qué tienes y qué resultado quieres.
