Hücreye,takvimden sayı atadığımızda sonraki hüc.formatı sayı iken tarih oluyor.
Değerli Hocalarım,
Hücreye tarih atamasını eklediğim takvim üzerinden yaptığımda hücreden (kod ile) sıçradığı ilk hücrenin formatını sayı dan tarihe çevirmekte.Ne yababilirim bilmiyorum.Yardımcı olursanız sevinirim.Dosyam ekte ve üzerinde açıklama yaptım.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [L14,V16,V18,BA16]) Is Nothing Then Exit Sub
Takvim.Show
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error GoTo hata
If CDate(Target.Value) > Date Then
MsgBox "Girdiğiniz Tarih Bu Günkü Tarihten Büyük.!", vbCritical, "UYARI.!"
Target.Select
End If
hata:
End Sub
Değerli Hocalarım,
Hücreye tarih atamasını eklediğim takvim üzerinden yaptığımda hücreden (kod ile) sıçradığı ilk hücrenin formatını sayı dan tarihe çevirmekte.Ne yababilirim bilmiyorum.Yardımcı olursanız sevinirim.Dosyam ekte ve üzerinde açıklama yaptım.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [L14,V16,V18,BA16]) Is Nothing Then Exit Sub
Takvim.Show
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error GoTo hata
If CDate(Target.Value) > Date Then
MsgBox "Girdiğiniz Tarih Bu Günkü Tarihten Büyük.!", vbCritical, "UYARI.!"
Target.Select
End If
hata:
End Sub
Son düzenleme: