buenas mi amigos del foro.. necesito saber como creo numero aleatorios de un rango dado pero que esos numero se creen en paquetes de seis. ejempo del
1-10 todas la combinaciones asi
ejemplo 5-8-9-0-4-2-----1-2-5-8-9-7 y asi sucesivamente
si alguien me puede ayudar se lo agradeceria
números aleatorios usa esto:
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp As Long
If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
Randomize: NumeroAleatorio = (MinNum - MaxNum + 1) * Rnd + MaxNum
End Function
Para los paquetes de seis, sencillamente has un For next quese repita 6 veces
Infierno Lunar!¡.