Takvim Button

Biolightant · Perşembe saat 18:00'de

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:

C++:

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 · Perşembe saat 21:13'de

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

mustafa1205 · Dün 00:11 da

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

sertkan42 · Dün 17:36 da

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

Biolightant · Dün 21:13 da

Korhan Ayhan' Alıntı:
Elinize sağlık paylaşımınız için teşekkürler..

mustafa1205' Alıntı:
Paylaşımınız için çok teşekkürler

sertkan42' Alıntı:
Üstadım elinize sağlık. Teşekkürler.

İlginiz için ben teşekkür ederim, sağ olun.

muratgunay48 · Bugün 07:05

Hocam emeğinize sağlık. Çok güzel bir çalışma.
Paylaşım için teşekkürler.

Biolightant · Bugün 11:57

muratgunay48' Alıntı:
Hocam emeğinize sağlık. Çok güzel bir çalışma.
Paylaşım için teşekkürler.

Beğenmenize sevindim, ilginiz için ben teşekkür ederim.

muratgunay48 · Bugün 13:16

Biolightant' Alıntı:
Beğenmenize sevindim, ilginiz için ben teşekkür ederim.

Hocam direk Excel dosyasında takvim userformunu çağırmak için buton koyulabilir mi?

mehoaga · Bugün 13:53

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

Biolightant · Bugün 17:38

muratgunay48' Alıntı:
Hocam direk Excel dosyasında takvim userformunu çağırmak için buton koyulabilir mi?

Sayfada bir Buton yardımı ile bir hücreye tarih yazmaya yardımcı Takvim kullanmak istersen

Örnek : A1 hücresine tarih seçtirmek için

C++:

Sub RangeTarih()
    ' Takvim açılırken gelecek tarih ( hataylıysa bugün açar )
    TakvimForm.Tarih.Value = Range("A1").Value

    ' TakvimForm Aç
    TakvimForm.Show

    ' Seçilen tarihi Hücreye yaz
    Range("A1").Value = Evaluate(ActiveWorkbook.Names("SecilenTarih").RefersTo)

    ' İşlem bitti AD tanımlamasını sil
    ActiveWorkbook.Names("SecilenTarih").Delete
End Sub

Takvim Button

Administrator