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

 

[yusuf1284]

Elinize sağlık hocam çok kullanışlı olmuş

 

[GursoyC]

Elinize sağlık, çok güzel bir çalışma.

Belki de benim alışkanlığımla ilgilidir ama naçizane bir öneri: Mouse hareketlerini azaltmak adına, seçilen tarihe çift tıklamanın o tarihi seçmeyi sağlama kodları harika olur.

Yine de bu haliyle de gayet başarılı. Projeme ekledim bile . Tebrikler.

Edit: Tik kodlarını tüm düğmelerin DblClick olayına ekleyince bahsettiğim şekilde oluyor. Tekrar teşekkürler.

 

[volki_112]

Elinize sağlık, çok güzel bir çalışma.

Belki de benim alışkanlığımla ilgilidir ama naçizane bir öneri: Mouse hareketlerini azaltmak adına, seçilen tarihe çift tıklamanın o tarihi seçmeyi sağlama kodları harika olur.

Yine de bu haliyle de gayet başarılı. Projeme ekledim bile . Tebrikler.

Edit: Tik kodlarını tüm düğmelerin DblClick olayına ekleyince bahsettiğim şekilde oluyor. Tekrar teşekkürler.

Eklenti olarak Pc deki excelinizin içine attığınız zaman tüm excellerinizde kullanabileceğiniz Takvim Eklentisi. sağ tık mouse tuşuna basınca açılır. Kendi çalışmam değildir. Nette yabancı bir sitede buldum

 

[Biolightant]

Elinize sağlık hocam çok kullanışlı olmuş

Elinize sağlık, çok güzel bir çalışma.

İlginiz için teşekkür ederim, beğenmenize sevindim.

Belki de benim alışkanlığımla ilgilidir ama naçizane bir öneri: Mouse hareketlerini azaltmak adına, seçilen tarihe çift tıklamanın o tarihi seçmeyi sağlama kodları harika olur.

@GursoyC TakvimClass isimli Class Modules içine aşağıda ki kodları ekleyiniz

Private Sub GLabels_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' AD olustur SecilenTarih=Seçilen tarih
    ActiveWorkbook.Names.Add Name:="SecilenTarih", RefersTo:=TakvimForm.SecilenTarih.Value
    Unload TakvimForm ' Formu kapat
End Sub

@volki_112 kendi çalışmam olan TakvimButton.xlsm kodları bana ait ve açık kaynaktır.