Takvim Problemi

[tiryakiahmed]

Private Sub Calendar1_Click()
txttarih.Text = Calendar1.Month & "/" & Calendar1.Day & "/" & Calendar1.Year
End Sub
Toolbox'ta takvim denetimini açtım Userform'a takvimi çizdim onuda txttarih isimli textbox'a attım onuda hücreye ilişkilendirdim.

Sorum şu, Userform'u her açtığımda hangi gündeysek onun işaretli olmasını istiyorum. ama olmuyor. ben formu 1 Aralıkta oluşturmuştum her açtığımda 1 Aralık işaretli geliyor 4 aralık olmasına rağmen.
İkinci problem, takvim pazar gününden başlıyor. pazartesinden başlayan takvim formatı yokmu acaba?

Teşekkürler.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu deneyiniz..

Private Sub UserForm_Initialize()
Calendar1.Value = Date
Calendar1.FirstDay = 1
End Sub

 

[tiryakiahmed]

Teşekkürler Ayhan Bey.

 

[Ayhan Ercan]

Teşekkürler Ayhan Bey.

Rica ederim.
İyi Çalışmalar... k::

 

[BirTürk1]

sayın tiryakiahmet benimde takvimle ilgili problemlerim var dosyanızı eklerseniz inceleyerek problemimi çözme fırsatım olacağını tahmin ediyorum

 

[tiryakiahmed]

Merhaba Sayın BirTürk,
Dosya ektedir. Lakin benim problemim tam çözülmedi. Şöyleki formu her açtığımda hangi tarihteysek o tarihin üzerinde olmasını istiyorum. her açtığımda formu hangi gün oluşturmuşsam o tarih sabit kalıyor. ancak takvimin üzerine tıkladığımda hangi gündeyse o günün üzerine gidiyor.
Kolay gelsin.

 

[ozgretmen]

Aşağıdaki kodları formunuzun Initialize olayına ekleyiniz.

Calendar1.FirstDay = 1
txttarih.Text = Calendar1.Month & "/" & Calendar1.Day & "/" & Calendar1.Year
Calendar1.Value = Date