como le puedo agregar a este  código   que las celdas que escoge  aleatoriamente en mi hoja estadística me las rellene de color amarillo

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
 

Hola @jhon fredy

Te dejo una propuesta para que evalues si es lo que necesitas.

Suerte!
 

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)
   Sheets("estadisticas").Cells(f, c).Interior.Color = RGB(255, 244, 34)
Next
End Sub

 

bien experto ,pero como  puedo agregarle que cada vez que  ejecute el proceso elimine los colores del anterior proceso

gracias

 

Hola @jhon fredy

Hace 11 minutos , jhon fredy dijo:

como  puedo agregarle que cada vez que  ejecute el proceso elimine los colores del anterior proceso

Empezando por solicitarlo en el primer post? jajaja

Ya es muy tarde en mi país. Mañana -si continúas sin respuesta- lo revisamos.

Que tengas un buen día! Suerte!

Pd: si deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario.

Hola @jhon fredy

Te dejo un archivo para que puedas evaluar si es lo que necesitas.

No aclaraste si las celdas tienen datos en ellas (se puede acaso seleccionar la hoja y acceder al color de todas las celdas juntas?). Por las dudas que no se pueda, la macro deja una huella de cada celda que colorea y cuando se ejecuta el segundo proceso, borra específicamente esas celdas.

Si deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario.
 

Qué tengas un buen día! Suerte!

ae20200730_post43829_colorea celdas.xlsm

Hace 5 horas, tierra_pampa dijo:

Hola @jhon fredy

Te dejo un archivo para que puedas evaluar si es lo que necesitas.

No aclaraste si las celdas tienen datos en ellas (se puede acaso seleccionar la hoja y acceder al color de todas las celdas juntas?). Por las dudas que no se pueda, la macro deja una huella de cada celda que colorea y cuando se ejecuta el segundo proceso, borra específicamente esas celdas.

Si deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario.
 

Qué tengas un buen día! Suerte!

ae20200730_post43829_colorea celdas.xlsm 20.11 kB · 0 descargas

Maestro  y  si el código aleatorio solo buscara las  celdas que solamente contiene datos ¡¿será  posible?

hola @jhon fredy

Por favor, acompaña un archivo y explica detalladamente lo que necesitas.

No tiene que ser el archivo con datos original, ponle cualquier dato. Puedes pasar un link y subirlo a la nube si supera el límite previsto en el foro.

Suerte!

este seria el  libro  a analizar       

prueba.xlsm

la   idea  es que el aleatorio  funcione solamente  para  las celdas que  esten con  datos

Editado el el 30 de julio5 años por jhon fredy

Hola @jhon fredy

Te dejo una nueva versión que controla que la celda escogida aleatoriamente debe tener datos para que la macro la coloree.

Prueba y comenta.

Si deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario.

Qué tengas un buen día! Suerte!

ae20200730_post43829_colorea celdas v2.xlsm

gracias    maestro

En 30/7/2020 at 15:14 , tierra_pampa dijo:

Hola @jhon fredy

Te dejo una nueva versión que controla que la celda escogida aleatoriamente debe tener datos para que la macro la coloree.

Prueba y comenta.

Si deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario.

Qué tengas un buen día! Suerte!

ae20200730_post43829_colorea celdas v2.xlsm 52.22 kB · 5 descargas

sera posible agregarle al codigo que escoja 20  numeros aleatorios por favor