Macroyla auto silme nasil yapilir?

[lapot]

Merhaba arkadaslar

excel sheet'inde datalari zamanli temizlenme nasil yapilr?
yani sayfadaki veriler 30 saniye sonra kendilinden nasli silinebilir ,benim hic bir sey yammama gerek kalmadan ? boyle bir macro olusturulabilirmi ?

saygilar

 

[uzmanamele]

merhaba
ek dosyayı inceleyiniz.

not:
kodlar sanıyorum syn Korhan Ayhan'dan alıntıdır.

 

[lapot]

cok tesekkurler arkadasim, harika bir macro tam istedigim gibi ama silme zaman suresini nasil uzatabilirim ?

saygilar

 

[uzmanamele]

merhaba
aşağıda kırmızı renkli yerleri kendinize göre uyarlayın

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR
Application.OnTime Now + TimeValue("00:00:05"), "TEST"
ERR:
End Sub


Sub TEST()
On Error GoTo ERR
Sheets("sayfa2").Select
Range("a1:b10").Clear
ERR:
End Sub

 

[lapot]

sagol arkadasim , bu sekle deigtirdim fakat hala 5 saniyede siliyor.neden ?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR
Application.OnTime Now + TimeValue("00:00:15"), "TEST"
ERR:
End Sub


Sub TEST()
On Error GoTo ERR
Sheets("sayfa1").Select
Range("a1:b10").Clear
ERR:
End Sub

saygilar