Belirlenen tarihler arasında makronun çalıştırılması

[numan şamil]

Merhabalar

Sub auto_open1()
If Date = Sheets("Sayfa1").Range("B5").Value Then
'*********************************************

' ***********************************************
MsgBox "işlem tamam"
Exit Sub
End If
MsgBox "tarih henüz gelmemiş"
End Sub

Forum dan aldığım Yukarıdaki kodlarda
"If Date = Sheets("Sayfa1").Range("B5").Value Then"
kodunu Sayfa1 de "B5" ile "B6" hücrelerine yazılan tarihler arasında işlev yapacak şekilde nasıl revize edebiliriz?

 

[İhsan Tank]

Merhabalar

Sub auto_open1()
If Date = Sheets("Sayfa1").Range("B5").Value Then
'*********************************************

' ***********************************************
MsgBox "işlem tamam"
Exit Sub
End If
MsgBox "tarih henüz gelmemiş"
End Sub

Forum dan aldığım Yukarıdaki kodlarda
"If Date = Sheets("Sayfa1").Range("B5").Value Then"
kodunu Sayfa1 de "B5" ile "B6" hücrelerine yazılan tarihler arasında işlev yapacak şekilde nasıl revize edebiliriz?

Merhaba

Option Explicit
Sub auto_open()
If CDate(Sheets("Sayfa1").Range("B5")) <= Date And _
CDate(Sheets("Sayfa1").Range("B6")) >= Date Then
MsgBox "Tarih Geldi"
Else
MsgBox "Olumsuz Tarih henüz Gelmedi"
End If
End Sub

Bunu dener misiniz_?

 

[numan şamil]

İhsan Hocam
Çok teşekkür ederim.
İyi çalışmalar

 

[İhsan Tank]

İhsan Hocam
Çok teşekkür ederim.
İyi çalışmalar

Rica ederim
:keyif: