DTpicker'da İstenmeyen Tarihlerin Seçilememesini Sağlamak

[Ergün Güler]

Selam,

Bir Userform üzerindeki DTpicker'a bir aralıktan tarih verileri alıyorum.
Aralığın ilk satırını DTpicker.MinDate , son satırını ise DTpicker.MaxDate yaptım.

DTpicker'i açtığımda minDate öncesi ve MaxDate sonrası tarihlere gidilmiyor ve tıklanmıyor. İsteğimin biri bu idi. Bunun gerçekleştirebildim.
Ancak aralık içinde olmayan tarihlere de tıklanmamasını istiyorum.

Bunu nasıl yapabilirim?

Örnek dosyam ektedir. ilk tarih A2 Hücresinde 06.10.2010, son tarih A12 hücresinde 21.10.2010'dur

Aralıkta olmayan ve tıklanamasını, seçilememesini istediğim tarihler;

10.10.2010
11.10.2010
12.10.2010
17.10.2010
18.10.2010' dir yardımcı olabilirseniz Sevinirim.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Örnek olması açısından DTPicker1'in Change olayında aşağıdaki kodları dener misiniz?

Private Sub DTPicker1_Change()
Dim c As Range
Set c = Sheets("veri-1").Range("a2:a12").Find(DTPicker1.Value, LookIn:=xlFormulas)
If c Is Nothing Then
MsgBox "Aralıkta olmayan tarih seçtiniz"
DTPicker1.SetFocus
End If
End Sub

 

[Ergün Güler]

Merhaba,

Örnek olması açısından DTPicker1'in Change olayında aşağıdaki kodları dener misiniz?

Private Sub DTPicker1_Change()
Dim c As Range
Set c = Sheets("veri-1").Range("a2:a12").Find(DTPicker1.Value, LookIn:=xlFormulas)
If c Is Nothing Then
MsgBox "Aralıkta olmayan tarih seçtiniz"
DTPicker1.SetFocus
End If
End Sub

Selam Sayın Necdet Yeşertener hocam,
Çok teşekkür ederim ellerinize sağlık. Müsaadenizle bir iki ufak şeyler sorabilir miyim?
1- Aralıkta olmayan tarih seçince mesaj ile uyarı geliyor. Fakat DTpicker içinde o tarih görünüyor. Bunu engelleyebilir miyiz? Yani aralıkta olmayan tarihi seçmeden önceki değer görünse.
2-

DTPicker1.SetFocus

görevi nedir? İptal ettim değişen birşey olmadı.

İyi çalışmalar.

 

[Necdet]

Merhaba,

DTPicker da belli tarihleri yok saymanın olacağını sanmıyorum, zaten kendisi min ve mak. tarihlere izin vermiş ama aradan bir ya da birden fazla tarihin kullanılmayacağına ilişkin bir kısıtlamayı ben görmedim.

SetFocus belli bir nesneye yönlendirmek için kullanılır benim yaptığım örnekte pek gerekli değildi.

Kodları aşağıdaki şekilde değiştirdim umarım yanlış girilen tarihten sonra bir önceki tarihi korumaya çalıştım.

Public EskiTarih As Date

Private Sub DTPicker1_Change()
    Dim c As Range
    Set c = Sheets("veri-1").Range("a2:a12").Find(DTPicker1.Value, LookIn:=xlFormulas)
    If c Is Nothing Then
        MsgBox "Aralıkta olmayan tarih seçtiniz"
        DTPicker1.Value = EskiTarih
    Else
        EskiTarih = DTPicker1.Value
    End If
End Sub
Private

Sub UserForm_Initialize()
Dim veri As Worksheet
Set veri = Sheets("veri-1")
son = veri.Cells(65536, "A").End(3).Row
DTPicker1.MinDate = veri.Range("A2")
DTPicker1.MaxDate = veri.Range("A" & son)
[B][COLOR=red]EskiTarih = DTPicker1.Value[/COLOR][/B]
End Sub

 

[Ergün Güler]

Merhaba,

DTPicker da belli tarihleri yok saymanın olacağını sanmıyorum, zaten kendisi min ve mak. tarihlere izin vermiş ama aradan bir ya da birden fazla tarihin kullanılmayacağına ilişkin bir kısıtlamayı ben görmedim.

SetFocus belli bir nesneye yönlendirmek için kullanılır benim yaptığım örnekte pek gerekli değildi.

Kodları aşağıdaki şekilde değiştirdim umarım yanlış girilen tarihten sonra bir önceki tarihi korumaya çalıştım.
QUOTE]

Sayın Necdet Yeşertener hocam,
Tam İstediğim gibi, Süper oldu ellerinize sağlık.
İyi çalışmalar.