Tarih sorgusu

[kargec]

Arkadaşlar Selamlar..
Şöyle bir şey yapmak istiyorum.
Örneğin A:1 hücresine aktif tarih koydum ve herhangi bir sebepten dolayı tarih eski bir tarihe alınırsa program çalışmayı durdursun. Tekrardan güncel tarihe veya ileri tarihe alınırsa çalışmaya devam etsin.
Saygılar..

 

[honestgorkem]

merhaba, örneğin bir belgenin alındığı tarihten itibaren 3 yıl geçerliliği var A1 hücresinde tarihi yazdım, bu belgenin bitiş tarihine 15 gün kala kırmızı ile uyarmasını istiyorum, yardımlarınız için teşekkür ederim.

 

[kargec]

Arkadaşlar olayı söyle ile çözdüm. 2 adet makro ekledim biri başlangıç diğeri bitiş tarihini barındırıyor. alttaki kod ilgili tarihten eski tarihi engelliyor.

Sub auto_open()
If Date < CDate("04.04.2018") Then
ActiveSheet.Unprotect "1"
Selection.Locked = True
Range("AF1:AF5").ClearContents
ActiveSheet.Protect "1"
Application.DisplayAlerts = False
su = MsgBox("programın tarihi hatalı, lütfen tarihi düzeltiniz.")
ActiveWorkbook.Close True
End If
End Sub

Program belirttiğim tarih aralığında çalışıyor. Örneğin 01.01.2018 ile 30.01.2018 diğer tarih aralığında uyarı verdirdim kapanıyor. burda sorun yok


Ancak tam istediğim bu değil.
A:1 hücresine aktif tarih koydum.
A:2 hücresine A:1 kopyaladım (tarih değişince otomatik olarak A:1 tarihini alacak)
Sorguda A:2 hücresinin sorgulanıp 1 gün bile geri gidemeyecek. istediğim yukarıdaki tarih yerine hücreyi yazmak, böylece örneğin 28.01.2018 tarihinde bile 1 gün öncesine dönemeyecek.
Kısacası If Date < CDate("04.04.2018") Then burada tarih değilde hücre numarası olan A:2 yi koyamıyorum. Yardımcı olabilecek varmı.
saygılar..

 

[cimilli_kral]

Koşullu Biçimlendirme ---->Yeni Kural---->Biçimlendirilecek Hücreler için Formül Kullan,
tarihin A1 hücresinde olduğu varsayılırsa bu formül olduğunda biçimlendir kısmına
=((A1+1095)-BUGÜN())<=15

 

[cimilli_kral]

merhaba, örneğin bir belgenin alındığı tarihten itibaren 3 yıl geçerliliği var A1 hücresinde tarihi yazdım, bu belgenin bitiş tarihine 15 gün kala kırmızı ile uyarmasını istiyorum, yardımlarınız için teşekkür ederim.

Koşullu Biçimlendirme ---->Yeni Kural---->Biçimlendirilecek Hücreler için Formül Kullan,
tarihin A1 hücresinde olduğu varsayılırsa bu formül olduğunda biçimlendir kısmına
=((A1+1095)-BUGÜN())<=15