• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Takvim Button

Biolightant

Biolightant

Katılım
6 Mart 2024
Mesajlar
351
Excel Vers. ve Dili
2010 TR & 2016 TR
📆 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:

thumbnail




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:
C++: 
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
 
Son düzenleme:
Elinize sağlık paylaşımınız için teşekkürler..
 
Hocam emeğinize sağlık. Çok güzel bir çalışma.
Paylaşım için teşekkürler.
 
muratgunay48' Alıntı:
Hocam direk Excel dosyasında takvim userformunu çağırmak için buton koyulabilir mi?
Genişletmek için tıkla ...

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()
    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
 
Son düzenleme:
Biolightant' Alıntı:
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
Genişletmek için tıkla ...

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

Ekli dosyalar

  • Ekran görüntüsü 2025-02-22 234106.png
    Ekran görüntüsü 2025-02-22 234106.png
    57.2 KB · Görüntüleme: 7
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.
 
Son düzenleme:
GursoyC' Alıntı:
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.
Genişletmek için tıkla ...
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
Screenshot_108.jpgScreenshot_109.jpg
 

Ekli dosyalar

yusuf1284' Alıntı:
Elinize sağlık hocam çok kullanışlı olmuş
Genişletmek için tıkla ...
GursoyC' Alıntı:
Elinize sağlık, çok güzel bir çalışma.
Genişletmek için tıkla ...

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

GursoyC' Alıntı:
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.
Genişletmek için tıkla ...

@GursoyC TakvimClass isimli Class Modules içine aşağıda ki kodları ekleyiniz ?
C++: 
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. ?
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst