Ejecutar macro cada 60 Segundos
Tengo este código
Sub Actualizar()
f = 6
Sheets("DATOS SALIDAS").Select
Range("B6:E2000").ClearContents
Sheets("DATOS SALIDAS").Select
Range("A4").Select
valor = ActiveCell.Value
Set busca = Sheets("DATOS SALIDAS").Range("L6:O2000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
For C = 1 To 4
Cells(f, C).Value = busca.Offset(0, C - 3).Value
Next
f = f + 1
Set busca = Sheets("DATOS SALIDAS").Range("L6:O2000").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub
Lo que necesito hacer es que se ejecute automáticamente cada 60 segundos, ¿no se si se pueda hacer eso?
1 respuesta
Respuesta de Dante Amor
2