agregar rellenar color a celda escogida aleatoriamente

jhon fredy · el 30 de julio

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

tierra_pampa · el 30 de julio

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

jhon fredy · el 30 de julio

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

gracias

tierra_pampa · el 30 de julio

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.

tierra_pampa · el 30 de julio

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

jhon fredy · el 30 de julio

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?

tierra_pampa · el 30 de julio

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!

jhon fredy · el 30 de julio

este seria el libro a analizar

prueba.xlsm

jhon fredy · el 30 de julio

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

tierra_pampa · el 30 de julio

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

jhon fredy · el 31 de julio

gracias maestro

jhon fredy · el 31 de julio

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