Ayuda

puedes usar esta formula y copiarla en todas las celdas que quieras:

=ENTERO((ALEATORIO()*49)+1)

nota: cada vez que se recalcule la hoja van a cambiar los valores y pueden
haber repetidos

Saludos

Manolo
Cancun, México





"Adolfo Gerardo Guzman Sanchez" escribió en el
mensaje news:

Hola, otra vez molestandolos, quisiera saber como llenar una serie de

celdas

que estan seleccionadas con valores enteros aleatorios entre un rango de 1

a

50.

Gracias a todos

Sub FillCells()
Dim c As Range
Selection.Clear
Randomize
For Each c In Selection
c = Int((50 * Rnd) + 1)
Next c
End Sub


"Adolfo Gerardo Guzman Sanchez" wrote in message
news:

Hola, otra vez molestandolos, quisiera saber como llenar una serie de
celdas
que estan seleccionadas con valores enteros aleatorios entre un rango de 1
a
50.

Gracias a todos

Muchas gracias a ambos.