Numeros que faltan

¿En que tienes esa lista?
Sí es en Excel, puedes hacer un bucle que te recorra la lista, y usar un
contador que incrementes de uno en uno. Sí el número no coincide con el
contador, ese número falta y guardas una referencia de él.

Espero te sirva.
Salu2.
José Mª Fueyo
MS MVP Access.

Ok gracias
pero te agradeceria mucho mas si por favor me indicas paso a paso o con el
ejemplo que lo expongo lograrias hacer lo que me dices NO SE MUCHO EXCEL

la lista la tengo en excel

gracias nuevamente

"José Mª Fueyo (Desde el curro)" escribió en el
mensaje news:

¿En que tienes esa lista?
Sí es en Excel, puedes hacer un bucle que te recorra la lista, y usar un
contador que incrementes de uno en uno. Sí el número no coincide con el
contador, ese número falta y guardas una referencia de él.

Espero te sirva.
Salu2.
José Mª Fueyo
MS MVP Access.

Franco,

Yo utilizo una función personalizada "Falta", ayuda de Leo Heuser, a la que
he traducido algunos términos para español.

Con Excel abierto, ve a Herramientas | Macro | Editor de Visual Basic
Cerciórate que estés en la columna izquierda en el proyecto del libro en que
este trabajando

VBA Project (Nombredellibro)

Selecciona del menú Archivo Importar, e importa el archivo BAS que te
adjunto
Selecciona del menú Archivo | Cerrar y volver a Excel
Ubícate en la celda vacía donde quieres mostrar el resultado
Selecciona del menú Insertar | Función
En categorías, selecciona "Definidas por el usuario"
Selecciona Falta
En la ventana siguiente debes definir el rango de celdas en donde debe
chequear la serie, el´mínimo y el máximo de los números.

Sólo como cultura general, éste es el código de VBA:

Function Falta(rRango As Range, Min As Long, Max As Long) As String
', May 2000
Dim Result As String
Dim Counter As Long
Dim Dummy As String

For Counter = Min To Max
If Application.CountIf(rRango, Counter) = 0 Then
Result = Result & Counter & ", "
End If
Next Counter
If Result = "" Then
Dummy = "Ninguno"
Else
Dummy = Left(Result, Len(Result) - 2)
End If
Falta = "Falta: " & Dummy
End Function

Coméntanos,

Por cierto, existe un foro especializado de Excel en este mismo servidor,
donde puedes encontrar mejor ayuda.

menteAtenta,
Pilar Mueckay [GMT: -05:00]


"Franco" escribió en el mensaje
news:

Ok gracias
pero te agradeceria mucho mas si por favor me indicas paso a paso o con el
ejemplo que lo expongo lograrias hacer lo que me dices NO SE MUCHO

EXCEL

la lista la tengo en excel

gracias nuevamente

"José Mª Fueyo (Desde el curro)" escribió en el
mensaje news:
> ¿En que tienes esa lista?
> Sí es en Excel, puedes hacer un bucle que te recorra la lista, y usar un
> contador que incrementes de uno en uno. Sí el número no coincide con el
> contador, ese número falta y guardas una referencia de él.
>
> Espero te sirva.
> Salu2.
> José Mª Fueyo
> MS MVP Access.
>
>

begin 666 FuncFalta.bas
M071T<FEBqE(%9"7TYA;64@/2 B3?-D=6QO,2(-"D9U;F-T:6]N($9A;'1A
M*')286YG;R!!<R!($%S($QO;F<L($UA>"!!<R!,;VYG*2!!
M<R!3=')I;F<-"B=L96\N:&5U<V5R0&=E=#)N970N9&LL($UA>2 R,# P#0I$
M:=6QT($%S(%-T<FEN9PT*1&EM($-O=6YT97(@07,@3&]N9PT*1&EM
M($1U;6UY($%S(%-T<FEN9PT*#0H@(" @1F]R($-O=6YT97(@/2!-:&\@
M36%X#0H@(" @(" @($EF($%P<&QI8V%T:6]N+D-O=6YT268H<E)A;F=O+"!#
M;W5N=&5R*2 ](# @5&AE;@T*(" @(" @(" @(" @4F5S=6QT(#=6QT
M("]U;G1E<B F("(L("(-"B @(" @(" @16YD($EF#0H@(" @3F5X="!#
M;W5N=&5R#0H@(" @=6QT(#T@(B(@5&AE;@T*(" @(" @("!$=6UM
M>2 ](").:6YG=6YO(@T*(" @($5L<V4-"B @(" @(" @1'5M;7D@/2!,969T
M*%)E<W5L="&5N*%)E<W5L="D@+2 R*0T*(" @($5N9"!)*(" @($9A
G;'1A(#T@(D9A;'1A.B B("'5M;7D-"D5N9"!&=6YC=&EO;@T*
`
end