Belirlenen Tarih de Makro Çalıştırma

[EKREM1661]

saygıdeğer arkadaşlar..! selamlar..

forumdan elde ettiğim aşğıdaki makro kalıbını

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Month(Now) >= 13 Then
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
Application.Quit
End If
End Sub

şu şekilde uyarlamak istedim,

If Month(Now) >= 13 Then yerine,
If Now() >= "01.09.2007" Then 'diye değiştirmek istedim
fakat olmadı her halükarda da makro çalışıyor..Yani,

Eğer; günün tarihi, .../.../20.. bu tarihden büyükse (herhangi) makro çalışsın, değilse makroyu çalıştırmadan sonlandırsın..şeklinde yazılması..

 

[Seyit Tiken]

Aşağıdaki örnek kodu Open'e bağlayarak deneyiniz.

Sub Düğme1_Tıklat()
If Date < CDate("24.08.2007") Then
MsgBox "Evet, ne yapılmak isteniyor"
Else
Exit Sub
End If
End Sub

 

[EKREM1661]

say&#305;n Seyit_Tiken hocam..
&#231;ok te&#351;ekk&#252;r ediyorum, elinize sa&#287;l&#305;k,
hay&#305;rl&#305; &#231;al&#305;&#351;malar diliyorum, ho&#351;&#231;a kal&#305;n..

 

[Aktolgali]

Peki hocam "hat&#305;rlatmay&#305; &#351;u tarihe ekle" diye bir inputbox la hem hat&#305;rlatmay&#305; hemde tarihini d&#305;&#351;ar&#305;dan verebilir miyiz?

 

[ferdinand]

merhabalar,

2007 de acilmis bir konu ancak buradan devam etmenin uygun oldugunu dusunuyorum.

Sorum ise; her ayin 1 inde makroyu otomatik çalıştıran kod nasil yazilir?

 

[htsumer]

Excel açılmadanmı çalışacak yoksa excel açıldığındamı çalışacak..

 

[ferdinand]

excel açıldıktan sonra ama diğer gunlerde de açılabilir o zaman makro çalışmayacak. sadece ayın 1 inde dosya açıldığında çalışsın.
ayrıca ayın 1 inde açıldığında sadece ilk açılışta makro çalışsın istiyorum

 

[ferdinand]

Private Sub Workbook_Open()
If Day(Date) = 1 Then

yazılımı ile sadece ayın 1 inde makronun çalışmasını sağladım. ama sadece 1 kez makronun çalışması nasıl yapilir bir fikrim yok.

 

[rabbace]

Merhaba,

Excel kapalı haldeyken her pazartesi makroyu otomatik nasıl çalıştırabiliriz?