Takvim Button

[Biolightant]

TAKVİM KULLANIMI
Takvim formunu projenize entegre etmek için aşağıdaki adımları izleyin:

1. Adım: Gerekli Dosyaları Yükleyin
Projenize aşağıdaki bileşenleri ekleyin:

• TakvimForm
• TakvimClass

Örnek Dosya:
TakvimButton.xlsm İndir

2. Adım: Takvim Açma Kodunu Butona Ekleyin
Herhangi bir UserForm üzerindeki bir butona veya butonlara aşağıdaki kodu ekleyin:

Private Sub CommandButton1_Click()
    Dim ctrl As Control
    Set ctrl = ActiveControl
    If TypeName(ctrl) = "MultiPage" Then Set ctrl = ctrl.Pages(ctrl.Value).ActiveControl
    If TypeName(ctrl) = "Frame" Then Set ctrl = ctrl.ActiveControl
    TakvimForm.Tarih.Value = ctrl.Caption
    TakvimForm.Show
    ctrl.Caption = Evaluate(ActiveWorkbook.Names("SecilenTarih").RefersTo)
    ActiveWorkbook.Names("SecilenTarih").Delete
End Sub

Takvim Görseli:

 

[Korhan Ayhan]

Elinize sağlık paylaşımınız için teşekkürler..

 

[mustafa1205]

Paylaşımınız için çok teşekkürler

 

[sertkan42]

Üstadım elinize sağlık. Teşekkürler.