Generar historial de núm. aleatorios que aparecen con cada actualización (F9)

[telechobi]

Buenas tardes quisiera saber si existe forma de generar lo siguiente en una macro:

En una hoja de excel tengo números aleatorios, lo que necesito es que cada vez que le doy F9 se registre en otra hoja de excel el numero aleatorio que apareció antes de que yo presionara F9 y así ir creando un registro de todos los números que aparecen.

[Armando Montes]

Una opcion que funcionara al correr la macro, no al oprimir F9:

Sub RandCopy()

    Application.Calculation = xlCalculationManual

    Sheet1.Range("B1:B5").Copy

    Sheet2.Range("IV1").End(xlToLeft).Offset(, 1).PasteSpecial Paste:=xlPasteValues

    Range("B1").Select

    Application.CutCopyMode = False

    Application.Calculation = xlCalculationAutomatic

End Sub

[/CODE]

Para correr con F9, aunque no me gusta:

[CODE]Sub defineKey()
Application.OnKey "{F9}", "RandCopy"
End Sub[/CODE]

[exceloy]

Creo que para que la macro RandCopy, se ejecute a la pulsación de F9, la línea :

Application.OnKey "{F9}", "RandCopy"[/CODE]

debería colocarse en el evento Selection_Change del objeto WorkSheet correspondiente.

He realizado este cambio, junto a otros más que se adaptaban a un problema particular mío y me funciona muy bien.

[Armando Montes]

Ambos codigos pueden colocarse en un modulo normal.