escoger numeros al azar

[robato]

Hola, hace tiempo estoy buscando una funcion en excel para escoger numeros ya establecidos como numeros de empleados, por ejemplo 8932, 01824, 78231, 56185, 3764, 7609, 7200......., hora de esos numeros escoger dos o tres al azar y que no se repitan, alguien sabe como?, gracias

[3pies]

Bienvenido a foros del web...

Esta es una adaptación de un ejemplo que puse hace poco, para acceder a un registro cualquiera de forma aleatoria.

En este ejemplo, he supuesto que la relación con los números de empleados, va desde la A1 hasta A7 (7 filas, y 1 columna).

Copia y pega este macro en un módulo VBA:

Código:

Sub empleado_al_azar()
'Iniciamos randomize para que funcione el Rnd
Randomize
'obtenemos un registro al azar, para lo cual,
'informamos primero de la fila inicial y final
'donde están los empleados
fila_inicial = 1
fila_final = 7
'lo mismo para las columnas
columna_inicial = 1
columna_final = 1
'generamos el número de la fila al azar
fila_elegida = Int((fila_final - fila_inicial + 1) * Rnd + fila_inicial)
'lo mismo para la columna
columna_elegida = Int((columna_final - columna_inicial + 1) * Rnd + columna_inicial)
'Nos situamos en la celda elegida
Cells(fila_elegida, columna_elegida).Select
'mostramos un msgbox con el número de empleado
empleado = MsgBox("Empleado seleccionado: " & ActiveCell.Value, vbInformation, "Empleado")
End Sub

Salu2