• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

agregar a codigo relleno de celda aleatoriamente

jhon6666

Member
como puedo agregarle a este código que al escoger las celdas en la hoja estadística realice el relleno de celdas

Sub Aleatorios()
For x = 1 To 22
f = Int((42 * Rnd) + 1)
c = Int((256 * Rnd) + 1)
Sheets("analisis").Range("C" & x) = _
Sheets("estadisticas").Cells(f, c)
Next
End Sub
 

_Tato_

Active member
como puedo agregarle a este código que al escoger las celdas en la hoja estadística realice el relleno de celdas

Sub Aleatorios()
For x = 1 To 22
f = Int((42 * Rnd) + 1)
c = Int((256 * Rnd) + 1)
Sheets("analisis").Range("C" & x) = _
Sheets("estadisticas").Cells(f, c)
Next
End Sub
¿Puedes subir un ejemplo y poner de forma manual el resultado que debería conseguir la macro?
 
Arriba