24/09/2009, 06:27
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes 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. |