Excel - Repartir aleatoriamente

   
Vista:

Repartir aleatoriamente

Publicado por DAVID DALAVE27@GMAIL.COM (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 juanc2942@gmail.com (1227 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
Revisar política de publicidad