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
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