belirli tarihte makro calısması hk

[mosmos2009]

Merhabalar,

Asağıdaki vb code ile istenilen tarih geldiği zaman formül calısmıyor fakat codu icerisine girince f5 ile calıstırırsam code calısıyor bunu f5 basmadan dosyayı acar acmaz calıstırabilirmiyim ?

Sub Autpen()
If Date >= CDate("28.06.2012") Then

 

[asi_kral]

Merhabalar,

Asağıdaki vb code ile istenilen tarih geldiği zaman formül calısmıyor fakat codu icerisine girince f5 ile calıstırırsam code calısıyor bunu f5 basmadan dosyayı acar acmaz calıstırabilirmiyim ?

Sub Autpen()
If Date >= CDate("28.06.2012") Then

Merhaba
Bu kodu dosyanızda boş bir module kopyalayın ve kitabı kaydedip kaptın sonra tekrardan açın.

Option Explicit
Sub auto_open()
'Konu       :   Kitap Açıldığında Belirli Tarihte kod çalıştırma
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
If Date >= CDate("27.06.2012") Then
MsgBox "Dolu"
End If
End Sub

 

[Ergün Güler]

Merhabalar,

Asağıdaki vb code ile istenilen tarih geldiği zaman formül calısmıyor fakat codu icerisine girince f5 ile calıstırırsam code calısıyor bunu f5 basmadan dosyayı acar acmaz calıstırabilirmiyim ?

Sub Autpen()
If Date >= CDate("28.06.2012") Then

Selam,
ThisWorkbook altına

Sub Auto_Open()

yerine

Private Sub Workbook_Open()

kullanınız.

 

[mosmos2009]

tesekkür ederim arkadaslar asi kral arkadasım dediği gibi yaptım makro calısmadı fakat sadece ekrana dolu mesajı geldi fakat, Erkan arkadasımın dediği gibi sub outo_oper yerine Private sub workbook_open yazınca istediğim gibi calıstı herkese teskürlerimi sunarım,

 

[Ergün Güler]

tesekkür ederim arkadaslar asi kral arkadasım dediği gibi yaptım makro calısmadı fakat sadece ekrana dolu mesajı geldi fakat, Erkan arkadasımın dediği gibi sub outo_oper yerine Private sub workbook_open yazınca istediğim gibi calıstı herkese teskürlerimi sunarım,

Biz teşekkür ederiz.