publicado el 19 de junio10 años 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
publicado el 19 de junio10 años Hola, intenta así: Sub Saca10alAzar()x = 43RandomizeFor i = 5 To 43o:num = Int((x * Rnd()) + 1)If Application.CountIf(Columns("B"), num) >= 1 Then GoTo oRange("B" & i) = numNextEnd Sub[/PHP] Salu2
publicado el 20 de junio10 años 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
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