خواندن تاریخ از سلول

[aliooali]

سلام دوستان عزیز

من یه کد دارم و میخوام از sheet 1 سلول A5 یک تاریخ رو بخونه
اگر امکانش هست بررسی کنید

با تشکر

Dim time As Date

time = DateSerial(2016, 05, 14)
If Now() >= time Then
MsgBox (date is ok )
ThisWorkbook.Close savechanges:=False
End If

[iranweld]

با سلام

کدهای ذیل را تست کنید

Sub TEST()

Dim time As Date
time = DateSerial(2016, 5, 14)
If Now() >= time Then
MsgBox (Date Is ok)
ThisWorkbook.Close savechanges:=False

End If

End Sub 

[aliooali]

دوست عزیز اینکه همون کدی هستش که خودم قرار داده بودم برای بررسی !!!!!!!!!!!!!!!!!!!

[iranweld]

ببخشید اشتباه کپی شد.

Sub test()

Dim time As Date
time = DateSerial(2016, 5, 14)
If Range("a5") >= time Then
MsgBox "Date Is ok"
ThisWorkbook.Close savechanges:=False

End If


End Sub