............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Excel: ¿Protector de Pantalla?

Ver el tema anterior Ver el tema siguiente Ir abajo

Excel: ¿Protector de Pantalla?

Mensaje por GalileoGali el Lun Feb 25, 2008 6:31 pm

Copia esto en un modulo y échalo a andar.....

Código:
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) ^ (Int(Rnd() * 4))) * Int(Rnd() * 2)), Int(Rnd() * 1)
ActiveCell.Interior.ColorIndex = Int(Rnd() * 18)
Loop
Exit Sub
2:
ir_a

End Sub



Cuando uno está de vacaciones.....cualquier cosa viene bien

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.