Ver originales (Francés)

Selección aleatoria de celda

Resuelto
DeepGap Mensajes publicados 2 Estado Miembro -  
DeepGap Mensajes publicados 2 Estado Miembro -
Hola,

en un rango de 9 celdas del tipo range("a1:c3") deseo mediante un procedimiento de VBA seleccionar una celda de forma aleatoria.
Mis búsquedas en los foros han permanecido infructuosas.

Gracias de antemano por tu ayuda

1 respuesta

  1.
    Polux31 Mensajes publicados 7219 Estado Miembro 1 204
     
    Hola, 

    Sub CellAlea() Dim AleaRow As Integer Dim AleaCol As Integer Randomize Timer AleaRow = Int(Rnd() * 3) + 1 AleaCol = Int(Rnd() * 3) + 1 Cells(AleaRow, AleaCol).Select End Sub


    --
    «Lo que se diseña bien se expresa claramente, y las palabras para decirlo llegan fácilmente.»
    Nicolás Boileau
    1
    1. DeepGap Mensajes publicados 2 Estado Miembro
       
      Gracias Polux31 por esta respuesta rápida que funciona
      Finalmente encontré una solución por mi cuenta, sin que a nadie le moleste, porque incluso si pido ayuda, no abandono el asunto.
      Así que aquí está
      Cells(Int(Rnd * 3) + 8, Int(Rnd * 3) + 8).Select
      Permite seleccionar dentro del rango h8:j10 que era mi objetivo al principio
      Por supuesto habría adaptado tu respuesta Pollux31
      Partí de la siguiente escritura que encontré en la red
      Cells(Int(Rnd * 10) + 1, 1).Select
      La probé para entender cómo funcionaba y luego encontré la solución anterior.
      Muchas gracias de nuevo
      Saludos cordiales
      0