funcion personalizada

Emilio escribió el 14/06/2015 06:09 :

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!

sin saber que y como hace esa función, cualquier respuesta acertada
será
mera casualidad, Mi apuesta, tienes una variable dimensionada como integer y
por ello no le caben números mayores, si así fuera
cámbiala a long.


Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"frankye" escribió en el mensaje de
noticias:

¡ Hola !
Intento sumar celdas que tengan un valor comprendido entre A y B
(concretamente
códigos postales ej: 39000 y 39999) pero la función que
encontré resulta que me lo hace hasta unos valores concretos no
sé
porque a partir del 35000 me da #¡NUM!

Acertaste la apuesta cambiando INTEGER por LONG Problema solucionado
la función original era:
Function Ocurrencesbetween(myrange As Range, lowestnumber As Integer, highestnumber As Integer) As Integer
Dim counter As Integer
counter = 0
For Each Cell In myrange
If Cell.Value >= lowestnumber And Cell.Value < highestnumber Then
counter = counter + 1
End If
Next Cell
Ocurrencesbetween = counter
End Function
GRACIAS!