Macro para copiar celdas a otra hoja

[kraquem]

Hola por favor necesito de su ayuda para una macro que permita copiar datos de una celda que autogenera valores automaticamente cada 30 segundos a la segunda hoja en forma de historial.

Es decir cada 30 segundos la macro copiael valor de la celda C4 a la segunda hoja en la celda B1, los siguientes 30 copia el valor de la celda C4 a la celda B2 y asi susesivamente.


Desde ya gracias por la ayuda.

Un saludo

[mrocf]

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.