agregar rellenar color a celda escogida aleatoriamente
publicado
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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