Calendar da seçilen günü hücreye aktaramıyorum Lütfen kodunda yardı alabilir miyim?

[Xyakup]

Yazanlara şimdiden çok Teşekkür ederim. eMail Adresime gönderirseniz çok memnun kalacağım. Saygılarımla... (ykb55@hotmail.com)

 

[ÖmerBey]

Private Sub Calendar1_Click()
Range("A1") = Calendar1
End Sub