SAYFADA TARİH DENETİMİ AÇMAK

[a_self_lion]

SAYFADA TARÝH DENETÝMÝ AÇMAK

Selam Arkadaşlar

Bir çalışma sayfasında H sununda herhangi bir hücreye tıklandığında
tarih denetimi açılsın ve ordandan seçeceğimiz değer o hücreye yazdırılması yapılabilirmi (tarih denetimi açılınca günün tarihi seçili olsa iyi olur)

 

[a_self_lion]

Açıklama Tarih denetimi normalde gözükmesin fakat h sunundaki hücreye tıklanca yada o H sutunun hücrelerinden biri aktif olursa tarih denetimi açılsın ve her hangi bir tarihe tıklama yapılıncada tarih denetimi kapansın....

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[a_self_lion]

Sayın Leventm çok güzel olmuş ama bir iki ilave gerekiyor sanırım
takvim denetiminden Enter e basınca değerin hücreye yazılması ve takvim denetimin kaybolması tabi mouse ilede tıklama yapıncada tarih denetimin kaybolması gerekiyor gibi duruyor.

 

[Levent Menteşoğlu]

Calendara yazılan kodu aşağıdaki ile değiştirin. Takvim denetimine sadece mouse ile tıklayabilirsiniz.

[vb:1:de80e095f2]Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub
[/vb:1:de80e095f2]

 

[inowjoin]

yanliş bir şey mi yaptım office 2003 var bende ve şöyle bir hata veriyor

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [h:h]) Is Nothing Then Exit Sub
Cancel = True
Calendar1.Visible = True
Calendar1 = Date
End Sub
"(Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
If Calendar1.Visible = False Then Exit Sub
Calendar1.Visible = False
End Sub

(tırnak içinde olan yer sarı )

 

[Levent Menteşoğlu]

"(Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

Eğer yukarıdaki gibi yazdıysanız, zaten sarı olmadan daha yazarken hata vermesi gerekir (kırmızıya dönüşür). En baştaki "(" parantez olmamalıdır.

 

[inowjoin]

devamı... kütüphane bulunamadı diyor

 

[Levent Menteşoğlu]

Bu durumda takvim denetimi yüklü değil demektir. Ekle-nesne-takvim denetimi varmı bir bakarmısınız.

 

[inowjoin]

tırnak içine ben aldım) şimdi evde açıyorum sorunsuz açılıyor ve ayların olduğu çubuk geliyor yarın syn leventm bahsettiği olayı deniyecem
teşekkürler