saat 08:00 olunca otomatik olarak makro çalıştırmak

[gurkaneral80]

arkadaşlar biraz araştırma yaptım ama tam istediğim şeyi bulamadım. belirli bir saatte bir makronun otomatik olarak çalışmasını istiyorum. mesela saat 08:00'de userform1.show kodu çalışsın. nasıl yapabilirim.

 

[İhsan Tank]

arkadaşlar biraz araştırma yaptım ama tam istediğim şeyi bulamadım. belirli bir saatte bir makronun otomatik olarak çalışmasını istiyorum. mesela saat 08:00'de userform1.show kodu çalışsın. nasıl yapabilirim.

Merhaba
Bunu yaparken excel'in açık olması gerekir.
Boş bir module kopyalayın ve kitabı kaydedip kapatın. Sonra tekrardan açın ve saatin gelmesini bekleyin.

Option Explicit
Sub auto_open()
If Format(Now, "hh:mm") = "08:00" Then
UserForm1.Show
End If
End Sub

 

[o2l3m]

08:00 dan sonra dosya açılsa da makro çalışr mı?

Merhaba
Bunu yaparken excel'in açık olması gerekir.
Boş bir module kopyalayın ve kitabı kaydedip kapatın. Sonra tekrardan açın ve saatin gelmesini bekleyin.

Option Explicit
Sub auto_open()
If Format(Now, "hh:mm") = "08:00" Then
UserForm1.Show
End If
End Sub

 

[PLİNT]

08:00 dan sonra dosya açılsa da makro çalışr mı?

Merhaba
Eşitliği aşağıdaki gibi düzenlerseniz çalışacaktır.

Sub auto_open()
If Format(Now, "hh:mm") [COLOR="Red"]>=[/COLOR] "08:00" Then
UserForm1.Show
End If
End Sub

 

[o2l3m]

Sayın plint

Dosyayı kaydetip kapatıp tekrar açtığımda userform yine görünüyor.
Belirtilen saati geçtiyse günde sadece bir defa userform görünmesi gerekiyor.
Ve dosya salt okunur açıldıysa bu işlemi yapmasın.

Mümkün mü?

 

[PLİNT]

Merhaba

Aşağıdaki değişen şekilde dosya özellikleri/açıklama ya açılış tarihi yazmak daha uygun olacaktır, bunu kullanın.

[SIZE="2"]Sub auto_open()
Dim d As Date, s As String
s = ThisWorkbook.BuiltinDocumentProperties("Comments")
If IsDate(s) = True Then d = s
If ThisWorkbook.ReadOnly = True Then Exit Sub
If Day(d) = Day(Now) And Hour(d) >= 8 Then Exit Sub
If Format(Now, "hh:mm") >= "08:00" Then
With ThisWorkbook
.BuiltinDocumentProperties("Comments") = ""
.BuiltinDocumentProperties("Comments") = Format(Now, "dd.mm.yyyy hh:mm:ss")
.Save
End With
UserForm1.Show
End If
End Sub[/SIZE]

 

[o2l3m]

Çok teşekkür ediyorum. Çalışıyor.