calendar1.NewMonth Olayı

[bistroboy]

yardım için cok sağolun. inceleyecem ve size geri dönüş yapacağım.

userform üzerinde 2 tane takvim var.Additional Controls'dan ekledim.
1.takvimin ayını değiştirince 2.takvim bir sonraki ayı göstersin
Örneğin 1.takvim Ocakta iken Şubat yapınca 2.takvimin ayı otomatik Marta gelsin. (Günlere hiç tıklamadan olsun istiyorum)


Private Sub Calendar1_NewMonth()
Month(UserForm1.Calendar2.Value) = Month(UserForm1.Calendar1.Value) + 1
End Sub
BUrada hata verdi object required dedi


Private Sub Calendar1_NewMonth()
UserForm1.Calendar2.NextMonth
End Sub

Buradada 1.takvimin her ay değişiminde 2.takvim bir sonraki ayı gösteriyor.Ocak dedim Şubatı Gösterdi..
Temmuz dedim Ağustosu göstereceğine bağımsız olarak Şubattan sonra Mart geldiği için Martı gösterdi...umarım anlatabilmişimdir.
Cok basit aslındada kod aklıma gelmedi hocam yaaa

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Dim deg

Private Sub Calendar1_NewMonth()
Calendar1.Day = 1
deg = Calendar1.Value
Calendar1 = deg
Calendar2 = DateSerial(Calendar1.Year, Calendar1.Month + 1, 1)
End Sub