USERFORM da Zamanlama Sorunu

[northcyprus]

Sayın hocalarım ve arkadaşlarım.

Açık olan Userformun herhangi bir butona basmadan her 15 saniyede bir kapanıp tekrar açılması münkün mü?

Ben bu işlemi Aşşağıdaki yenile makrosunu bir butona atayarak yapıyorum buton kullanmadan yapabilmek münkün mü aceba..



Private Sub YENİLE_Click()
Sheets("EKLENENLER").Select
Range("A1").Select
ChDir "\\Sahne\mutfak takİp"
Workbooks.Open Filename:="\\Sahne\mutfak takİp\MUTFAK.xls"
Range("A150").Select

Selection.Cut
Windows("MUTFAK1.xls").Activate
son = Sheets("EKLENENLER").[A65536].End(3).Row + 1
Range("A" & son).Select

ActiveSheet.Paste
Range("A1").Select
Windows("MUTFAK.xls").Activate
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
Windows("MUTFAK1.xls").Activate
Sheets("EKLENENLER").Select
Range("A1").Select
Unload MUTFAKTAKİPEKRANI
MUTFAKTAKİPEKRANI.Show

End Sub

 

[Emsdmr]

Merhaba;

Kodu this workbook içinde yazarak denedinizmi ?

 

[northcyprus]

cevap için teşekür ediyorum
Denedim olmadı buton kullanmadan yani zamanlama ile işlem yapmak istiyorum.. münkün mü aceba??