iki tarih kontrol eden makro?

[mars2]

İyi Günler;

sayfa1'de B sutunda tarihleri kayıt etmekteyim. Ancak, en son kayıt edilen tarih ile kayıt edilecek tarihleri kontrol edecek ve farklı bir yıl olursa uyaracak makro nedir?
teşekkürler.

Örnek:
B250 31/12/2006
B251 01/01/2007

B500 31/12/2007
B501 01/01/2008

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBE bölümüne kopyalayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
veri = Target.Offset(-1, 0).Value
If veri <> "" Then
    If Year(veri) <> Year(Target) Then
    MsgBox "Farkl&#305; Y&#305;l"
    Target.Select
    Exit Sub
    End If
End If
End Sub

 

[mars2]

Sayın ripek;

cevabınız teşekkür. Ancak sizden bu makroyu butona göre tekrardan yazmanız isteyeceğim.
tEŞEKKÜRLER.

 

[Recep İpek]

Verilerinizi tasarladığınız Userform üzerinde mi giriyorsunuz?

 

[mars2]

Sayın ripek;

cevabınız teşekkür. Ancak sizden bu makroyu butona göre tekrardan yazmanız isteyeceğim.
Teşekkürler.

 

[Recep İpek]

......:dusun:.......

Eğer bu şekilde ise aşağıdaki kodlar işinize yarayabilir.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
[b2].Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If TextBox1.Value <> "" Then
If Year(TextBox1.Value) <> Year(ActiveCell.Offset(-1, 0).Value) Then
MsgBox "Farklı Yıl"
End If
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub