Saltar al contenido

Números aleatorios sin repetición

publicado

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

Featured Replies

publicado

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

publicado

[uSER=204513]@GustavoH[/uSER]

Sube ejemplo en una hoja Excel

Saludos

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.