iki Tarih Arasını Sınırlama

[ormann]

İyi günler; iki tarih aralığını bir ay ile nasıl sınırlayabiliriz ?
örneğin: a1 hücresine 15.06.2012 yazdığım zaman a2 hücresi a1+31 günü geçmeyecek .Eğer ki a1+32 gibi bir tarih girersem işlem yapmayacak .Uyarı verecek.Bu işlemi makro ile nasıl yaparız.

 

[asi_kral]

İyi günler; iki tarih aralığını bir ay ile nasıl sınırlayabiliriz ?
örneğin: a1 hücresine 15.06.2012 yazdığım zaman a2 hücresi a1+31 günü geçmeyecek .Eğer ki a1+32 gibi bir tarih girersem işlem yapmayacak .Uyarı verecek.Bu işlemi makro ile nasıl yaparız.

Merhaba
Sayfanın Kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   31 Günden Fazla giriş Yasak
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If CDate(Range("A1")) + 31 < CDate(Target) Then
MsgBox CDate(Target) & " Fazla tarih Girdiniz"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End Sub

Not : 31 güne göre hareket eder.

 

[ormann]

Teşekkür ederim

 

[asi_kral]

Teşekkür ederim

Kolay Gelsin.