Dolu hücreye tıklayınca tarih mesaj kutusu çıkmasın

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın ASLAN sayfasında aşağıdaki kod mevcut, bu kod B7:B56 arasında hatasız olarak gayet güzel çalışıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B7:B56")) Is Nothing Then
Cancel = True
takvim.Show
If tarih <> Empty Then
Target = CDate(tarih)
End If
End If
End Sub

Benim yapmak istediğim B7:B56 bu aralıkta tarih olan hücrede takvim mesaj kutusu ekrana gelmemesini istiyorum.

Yardımcı olur musunuz?

 

[Orion1]

Kırmızı yeri ekledim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B7:B56")) Is Nothing Then

Cancel = True

If IsDate(Target.Value) Then Exit Sub

takvim.Show

If tarih <> Empty Then

Target = CDate(tarih)

End If

End If

End Sub

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı geceler, şimdiden hayırlı bayramlar diliyorum.

 

[Orion1]

İyi bayramlar.

 

[ASLAN7410]

Sayın Evren Bey, küçük bir şey sormak istiyorum.

IsDate ile CDate arasında ne fark var?

Bilgi verebilir misiniz?

 

[Korhan Ayhan]

CDate veriyi tarihe çevirmek için kullanılır.

IsDate ise verinin tarih olup olmadığı sorgularında kullanılır.

 

[ASLAN7410]

Sayın Korhan Bey, bilgilendirdiğiniz için çok teşekkür ediyorum.

Hayırlı bayramlar diliyorum.

 

[Korhan Ayhan]

İyi bayramlar...