DTPicker sayfada kullanımı

[kelkitli]

Selamlar,
Sayfada DTPicker kullanmak istiyorum.
"B" sütununda çift tıkladığım bir hücreye tarih yazdırmak istiyorum.
Calendar kullandığım kodlarla hata veriyor.
Şu kodlara benzer bir uygulama yapabilirmiyiz.

Private Sub UserForm_Initialize()
Calendar1.Value = "01.04.2011"
Calendar1.Value = Date
End Sub

Private Sub Calendar1_Click()
Selection = CDate(Calendar1.Value)
Unload Me
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
'If Intersect(Target, [D]) Is Nothing Then Exit Sub
'Cancel = True
Calendar1.Show
End Sub

Eğer mümkünse "B" VE "E" sütunlarında kullanmak istiyorum.

Saygılar.

 

[hamitcan]

İlgili sayfanın kod kısmına;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [B:B,e:e]) Is Nothing Then Exit Sub
    UserForm1.Show 0
End Sub

UserForm içine;

Private Sub CommandButton1_Click()
ActiveCell = DTPicker1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub

 

[kelkitli]

Sayın hamitcan cevabınız için teşekkür ederim.
Kodların ikisi de aynı. Hata verdi. Dosyayı indiremedim.

 

[hamitcan]

Sayın hamitcan cevabınız için teşekkür ederim.
Kodların ikisi de aynı. Hata verdi. Dosyayı indiremedim.

Düzelttim.

 

[kelkitli]

Teşekkür ederim Sayın hamitcan.