Takvim

[eminuslu]

Sevgili dostlar ekte sunduğum dosyamda belirtilen resimde görüldüğü şekilde takvim yapmak istiyorum takvimin nasıl yapıldığını izah ederek yapılış şeklini anlatatma lütfunda bulunup, konu hakkında yardımcı olan herkese teşekkür eder sonsuz selamlar sunarım

 

[uzmanamele]

merhaba

bunu deneyiniz.

ekle / nesne / Calendar Control
bu şekilde sayfa üzerine takvim nesnesi eklemiş olursunuz.

sayfanın kod bölümüne bu kodları yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

D1 hücre seçildiğinde takvim görünecektir, başka hücre seçilirse gizlenir.

yine sayfanın kod bölümünde

Private Sub Calendar1_Click()
Range("D2") = Calendar1.Value
End Sub

takvim üzerinde seçtiğiniz tarih D2 hücresine yazılacaktır.

 

[eminuslu]

Uzman bey çok teşakkür ederim net cevap vermişsiniz

 

[Erhan Üstünel]

merhaba

bunu deneyiniz.

ekle / nesne / Calendar Control
bu şekilde sayfa üzerine takvim nesnesi eklemiş olursunuz.

sayfanın kod bölümüne bu kodları yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

D1 hücre seçildiğinde takvim görünecektir, başka hücre seçilirse gizlenir.

yine sayfanın kod bölümünde

Private Sub Calendar1_Click()
Range("D2") = Calendar1.Value
End Sub

takvim üzerinde seçtiğiniz tarih D2 hücresine yazılacaktır.

hocam ofice 2007 de bu olayı yapamadım ( Calendar Control nesnesini ekleyemedim) bilginiz varmı ?

 

[uzmanamele]

merhaba

bunu deneyiniz.

geliştirici / ekle / diğer denetimler / takvim denetimi

 

[uçurtma1]

teşekkür ederim arkadaşlar

tam da sorumun cevabını vermişsiniz. allah hepinizden razı olsun