galileogali
New member
- Registrado
- 7 Ene 2005
- Mensajes
- 5.207
Sub ir_a()
On Error GoTo 2:
Randomize
Hoja2.Cells.Clear
Do While ActiveCell.Address <> "$IV$65534"
Application.Goto ActiveCell.Offset(((-1) ^ (Int(Rnd() * 4))) * Int(Rnd() * 2), ((-1) ^...
On Error GoTo 2:
Randomize
Hoja2.Cells.Clear
Do While ActiveCell.Address <> "$IV$65534"
Application.Goto ActiveCell.Offset(((-1) ^ (Int(Rnd() * 4))) * Int(Rnd() * 2), ((-1) ^...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí