çalışma sayfası açılırken istediğim tarih gelince mesaj yazsın

[olymposss]

sn hocalarım iyi akşamlar
bir userform üstünde (userform_initialize);
Label2 = Format(Now, "dd mm yyyy") şeklinde bir kod ile label2 ye "15 12 2006" yazdırıyorum. yine aynı yere şu şekilde kodladım;
sub userform1_initialize ()
if label2 = "01" & "01" & year(date) then
msgbox = "Yeni yıl açılışı yapmayı unutmayınız!"
else
exit sub
end if
end sub
denemek için bilgisyarın tarihini 01 01 2007 yaptım ancak mesajı alamadım. bu konuda yardımcı olabilirmisiniz. şimdiden çok teşekkürler.

saygılar:yardim:
-------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub userform_initialize()
Label2 = Format(Now, "dd mm yyyy")
If Label2 = "01 01 " & Year(Date) Then MsgBox "Yeni yıl açılışı yapmayı unutmayınız!"
End Sub

 

[olymposss]

Sn Leventm Hocam

herzamanki gibi harikasınız çok ama çok teşekkür ederim emeğinize sağlık
saygılar