Obtener registros aleatoreos

hola, Gonzalo !

... macro... que me capture 50 codigos aleatorios de un archivo base
... dos archivos, uno... los codigos, que no son consecutivos
... otro donde tengo que sacar 50 de esos codigos aleatoriamente.

[me suena a que buscas como 'seleccionar voluntarios' -o algo similar-] :))
podrias comentar [algunos] 'detalles importantes' con relacion al 'arreglo' de los archivos ? [p.e.]
-> es una base de datos/codigos de/creciente ?
-> cual es el rango de la BD y cual la columna de los codigos ?
-> se deben pasar las filas 'completas' de datos ? [o solo la columna/dato de los codigos]
-> cuales son los nombres 'de donde' y 'a donde' ? [nombres de los archivos, hojas y rangos]
-> algun dato/detalle 'relevante' que se hubiera 'quedado en el tintero' ?

disculpa 'tantas' preguntas, pero... [a veces] las propuestas 'dependen' de... 'los detalles' :))
comentas?
saludos,
hector.

Se me ocurre que generes numeros aleatorios entre 1 y el numero de codigos
que tengas. Si el numero ya esta, seleccione otro

const NUMERO as integer 00 ' tu muestra
dim x(1 to NUMERO) as boolean ' false por defecto
dim sel(50) as integer
cnt=0
do
p=1+int(49*rnd())
if x(p)=false then
cnt=cnt+1
sel(cnt)=p
x(p)=true
end if
loop until cntP

solo mira el vector sel y estan las posiciones que debe cojer

"Gonzalo" escribió en el mensaje
news:

Hola a todos

Necesito hacer una macro en Excel que me capture 50 codigos aleatorios de
un
archivo base que tengo. Son dos archivos, uno donde tengo la base de
todos
los codigos, que no son consecutivos, y otro donde tengo que sacar 50 de
esos
codigos aleatoriamente.

Si me pueden ayudar se los agradeceria muchisimo.