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

macro para ingresar numeros

Ver el tema anterior Ver el tema siguiente Ir abajo

macro para ingresar numeros

Mensaje por solindro el Jue Jul 29, 2010 11:12 am

Buen dia para todos
Quisiera saber como se puede hacer una macro que inserte numeros aleatorios en 2 celdas en forma simultanea y que cambien en un lapso de tiempo determinado 5 seg por ejemplo
Gracias

solindro

Masculino Cantidad de envíos : 17
Edad : 56
Ciudad - Pais : Chile
Version de Excel : 2000 a2007
Fecha de inscripción : 17/06/2009

Volver arriba Ir abajo

Re: macro para ingresar numeros

Mensaje por GalileoGali el Jue Jul 29, 2010 9:01 pm

En A1= ALEATORIO()*100
EN B2 = ALEATORIO()*100

Dar Nombre al Rango A1:B1 (Elegí RANGOaleat")
ver

En Módulo de Hoja1
Código:
Option Explicit
Dim bParar As Boolean

Sub calcular()
Range("RANGOaleat").Calculate
If bParar Then
bParar = False
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:05"), "Hoja1.calcular"

End Sub

Sub detener()
bParar = True
End Sub


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

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

Re: macro para ingresar numeros

Mensaje por solindro el Vie Jul 30, 2010 4:25 pm

Mil gracias galileogali me es de mucha utilidad tu apotte y tu generocidad de compartir tus conocimientos

solindro

Masculino Cantidad de envíos : 17
Edad : 56
Ciudad - Pais : Chile
Version de Excel : 2000 a2007
Fecha de inscripción : 17/06/2009

Volver arriba Ir abajo

Re: macro para ingresar numeros

Mensaje por GalileoGali el Vie Jul 30, 2010 6:01 pm

Me gusta más este código


Código:
Option Explicit
Dim bParar As Date

Sub calcular()
Range("RANGOaleat").Calculate
bParar = Now + TimeValue("00:00:05")
Application.OnTime bParar, "Hoja1.calcular"
'DoEvents
End Sub

Sub detener()
Application.OnTime bParar, procedure:="Hoja1.calcular", schedule:=False
End Sub

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

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

Re: macro para ingresar numeros

Mensaje por Contenido patrocinado Hoy a las 1:35 pm


Contenido patrocinado


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.