5 dakika ara ile çalışacak makro için yardım

[ataahmet]

Merhabalar..
5 dakika ara ile aşağıdaki makroyu nasıl çalıştırabilirim.. Şimdiden teşekkürler..

ActiveSheet.Range("$F$1:$F$1000").AutoFilter Field:=1, Criteria1:="1"
Rows("2:100").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$F$1:$F$1000").AutoFilter Field:=1
Range("F1").Select

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz.
Filtrenin bulunduğu sayfanın kod penceresine:

[SIZE="2"]Private Sub Worksheet_Activate()
Call tekrar
End Sub

Private Sub Worksheet_Deactivate()
Call dur
End Sub[/SIZE]

Bir "Modül" ekleyip sayfasına:

[SIZE="2"]Private g
Sub tekrar()
Dim s As Worksheet
If Application.ActiveWorkbook.Name <> ThisWorkbook.Name And ActiveSheet.Name <> "[COLOR="Red"]Sayfa4[/COLOR]" Then
g = Empty
End If
Sheets("[COLOR="Red"]Sayfa4[/COLOR]").Range("$F$1:$F$1000").AutoFilter Field:=1, Criteria1:="1"
Rows("2:100").Select
Selection.Delete Shift:=xlUp
Sheets("[COLOR="Red"]Sayfa4[/COLOR]").Range("$F$1:$F$1000").AutoFilter Field:=1
Range("F1").Select
g = Now + TimeSerial(0, 5, 0)
Application.OnTime g, "tekrar", , True
End Sub
Sub dur()
If g <> Empty Then
Application.OnTime g, "tekrar", , False
g = Empty
End If
End Sub

[COLOR="Blue"]sub auto_open()
Call tekrar
end sub[/COLOR]
[/SIZE]

 

[ataahmet]

makro

çok teşekkürler hemen deneyeceğim. sağolun.

 

[ataahmet]

makro

teşekkürler. çalışıyor. sağ olun.