24/09/2009, 06:27
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
 Macro para copiar celdas a otra hoja
Hola! kraquem. Intenta con:
Código PHP: Public Hora As Date
Sub CopiaCadaTreintaSeg()
Sheets("Hoja2").[b65536].End(xlUp).Offset(1) = Sheets("Hoja1").[c4].Value
Hora = Now + TimeValue("00:00:30")
Application.OnTime Hora, "CopiaCadaTreintaSeg"
End Sub
Sub DetieneCopiaCada30seg()
Application.OnTime Hora, "CopiaCadaTreintaSeg", , False
End Sub
El primer procedimiento realiza la copia que requieres y termina "auto-ejecutándose" 30 segundos después.
El segundo procedimiento anula el ciclo de copias.
Espero te sea de utilidad.
Saludos, Cacho.  |