SELEECIONAR DATOS DE UNA LISTA ALEATORIAMENTE

[mas_astuto]

SI TENGO UNA SERIE DE DATOS NUMERICOS ALMACENADOS POR COLUMNA POR DECIR
RANGE(A1: A56)

Y DESEO QUE EN B1SE ELIJA UN DATO DE RANGE(A1:A56) DE MANERA ALEATORIA.
CUAL SERIA EL CODIGO DE LA MACRO...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Sub ElegirAleatoriamente()
Dim Aleatorio As Integer, Rango As Range
Set Rango = Range("A1:A56")
Randomize
Aleatorio = Int((Rango.Count * Rnd) + 1)
MsgBox Rango(Aleatorio)
' O puede ser:
'MsgBox...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí