Números aleatorios sin repetición

[GustavoH]

Hola :

Encontré esta macro en internet que funciona bien pero deseo modificarla para que no me repita los números cada 6 celdas. Alguien me puede ayudar ? Gracias

Sub Saca10alAzar()

x = 6

Randomize

For i = 5 To 43

Range("B" + Trim(Str(i))).Value = Int((x * Rnd()) + 1)

Next

End Sub

[AlexanderS]

Hola, intenta así:

Sub Saca10alAzar()
x = 43
Randomize
For i = 5 To 43
o:
num = Int((x * Rnd()) + 1)
If Application.CountIf(Columns("B"), num) >= 1 Then GoTo o
Range("B" & i) = num
Next
End Sub
[/PHP]

Salu2

[Fleming]

[uSER=204513]@GustavoH[/uSER]

Sube ejemplo en una hoja Excel

Saludos

[GustavoH]

Gracias Fleming; va el archivo "Ejemplo"

Ejemplo.xls

[GustavoH]

Gracias Riddle :

La idea es que no se repitan pero cada determinado número de celdas; en el ejemplo que subí, cada 6 celdas.

Saludos