end ve debug hatası yerine yanlış yazdın desin

[alihan43]

Merhaba;
arkadaşlar makro ile yaptığım bir proğrama bir hücreye 01.01.2012 - 31.12.2012 tarihleri arasında bir tarih giriyorum buraya kadar güzel ancak bazen unutuyorum 2012 yazacam yerde 19.01.2011 yazıyorum end ve debug hatası veriyor. acaba end ve debug yerine tarihi yanlış girdin mesajı gelebilirmi ?

 

[Husgvarna]

Merhaba;
arkadaşlar makro ile yaptığım bir proğrama bir hücreye 01.01.2012 - 31.12.2012 tarihleri arasında bir tarih giriyorum buraya kadar güzel ancak bazen unutuyorum 2012 yazacam yerde 19.01.2011 yazıyorum end ve debug hatası veriyor. acaba end ve debug yerine tarihi yanlış girdin mesajı gelebilirmi ?

Örneğin şöyle olabilir.

 Private Sub CommandButton2_Click()
On Error Resume Next
[a999999] = 1
If Err > 0 Then
MsgBox "Yanlış oldu sayfadaki satır sayısı=65536"
Exit Sub
End If
End Sub

 

[alihan43]

yok bu kod işe yaramıyor. tarihi yanlış yazsamda doğru yassmda mesaj geliyor.
Benim tam istediğim şu bir excel sayfasında örneğin a1 hücresine bir tarih yazdığımda 01/01/2012 ile 31/12/2012 tarihleri arasındaki tarihlerin haricinde tarih yazdığımda mesaj gelsin istiyorum

 

[Husgvarna]

Benim tam istediğim şu bir excel sayfasında örneğin a1 hücresine bir tarih yazdığımda 01/01/2012 ile 31/12/2012 tarihleri arasındaki tarihlerin haricinde tarih yazdığımda mesaj gelsin istiyorum

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65000")) Is Nothing Then 
s = CDbl(CDate(Cells(Target.row, 1)))
Select Case s
Case 40909 To 41274

'Varsa uygulanacak kodlarınız.
'.......

Case Else
MsgBox "yanlış oldu"
End Select
End If
End Sub

 

[alihan43]

Teşekkürler husgvarna şimdi oldu.