Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Repartir aleatoriamente

Excel - Repartir aleatoriamente

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Repartir aleatoriamente

Publicado por DAVID (1 intervención) el 07/12/2017 19:38:57
Hola,
Tengo un listado de 50 ciudades cada una de las cuales tiene cierto número de Oficinas a las cuales se les debe asignar varios proyectos.

Se necesita que aleatoriamente sean repartidos los proyectos correspondientes a cada ciudad excluyendo cada vez la oficina que haya sido favorecida hasta terminar el ciclo.

Adjunto el archivo completo de lo que se ha trabajado donde solo falta que cuando se haya asignado proyecto a las oficinas, queden disponibles sólo las que no han recibido proyecto

Agradezco la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Repartir aleatoriamente

Publicado por JuanC (1237 intervenciones) el 07/12/2017 20:31:13
te paso algo que puede servirte (no sin antes pensar un poco!)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Option Base 1
 
'//By JuanC - Dic. 2017

 
Sub test()
Dim lista() As Long
Dim i&, n&, j&, elem&, lCount&
 
'//Inicia generador de aleatorios

Randomize
 
'//Crea una lista con valores

lCount = 6
ReDim lista(lCount) As Long
For i = 1 To lCount
    lista(i) = i
Next
 
'//Saca aleatoriamente todos y cada uno de los elementos de la lista sin repetir

For i = 1 To lCount
    n = Int(((lCount - j) * Rnd) + 1)
    elem = lista(n)
    lista(n) = lista(lCount - j)
    j = j + 1
Next
 
Erase lista
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar