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:

Takvim Formu Kullanarak Hücreye Tarih Yazdırma
Aşağıdaki VBA kodu, herhangi bir hücreye takvim ile tarih seçerek yazdırmanıza olanak tanır.

Örnek: A1 hücresine tarih yazdırmak için kodu bir modüle ekleyerek çalıştırabilirsiniz.
İhtiyaca göre Range("A1") kısmını değiştirebilir, farklı hücreler için uygulayabilirsiniz.

VBA Kodu:

Sub RangeTarih()
    Dim RngDate As Range
   
    ' Tarihin yazılacağı hücreyi belirleyin.⚠️
    Set RngDate = Range("A1")
   
    TakvimForm.Tarih.Value = RngDate.Value
    TakvimForm.Show
    On Error GoTo HataKontrol
    RngDate.Value = Evaluate(ActiveWorkbook.Names("SecilenTarih").RefersTo)
    ActiveWorkbook.Names("SecilenTarih").Delete
    Exit Sub
HataKontrol:
    RngDate.Value = Date
End Sub

 

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

 

[Biolightant]

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

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

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

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

 

[muratgunay48]

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

 

[Biolightant]

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]

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]

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

 

[Biolightant]

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

Sub RangeTarih()
    Dim RngDate As Range
    Set RngDate = Range("A1") ' Tarihin yazılacağı hücre
    
    ' Takvim açılırken gelecek tarih ( hataylıysa bugün açar )
    TakvimForm.Tarih.Value = RngDate.Value

    ' TakvimForm Aç
    TakvimForm.Show

    On Error GoTo HataKontrol

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

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

    Exit Sub

HataKontrol:
    ' Hata durumunda bugünün tarihini yaz
    RngDate.Value = Date

End Sub

 

[muratgunay48]

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

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

Hocam öncelikle teşekkür ederim. Şöyle hata aldım.

 

[Biolightant]

@muratgunay48 Altın üye olmadığım için eklediğiniz resmi göremiyorum.

 

[muratgunay48]

@muratgunay48 Altın üye olmadığım için eklediğiniz resmi göremiyorum.

Pardon hocam dikkat etmemişim.
TIKLA

 

[Biolightant]

Şöyle hata aldım.

Sanırım A1 hücresi boş ve takvimi açıp tarih seçmeden kapattığınızda hatayı aldınız.

Kodları güncelledim.

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

 

[muratgunay48]

Sanırım A1 hücresi boş ve takvimi açıp tarih seçmeden kapattığınızda hatayı aldınız.

Kodları güncelledim.

Çok teşekkür ederim hocam. Emeğinize sağlık.

 

[Biolightant]

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

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