Hücrelere Açılır Takvim Ekleme

[sulos]

Merhaba,

H9:I208 hücrelerine takvim eklemeye çalışıyorum. Eklentiler aracılığı ile çözmeye çalıştım ama yapamadım.

Hücreye tıklandığında takvim açılması ve tarih seçimi yapabilmek amacım. Yardımcı olabilir misiniz?

Teşekkürler.

 

[sulos]

Hocam merhaba,

Başlıkla ilgisi yok ama forumda bulamadım. Bu dosyadaki sayfayı aylara sair aynı yapıda çoklayacağım (12 adet sayfa). Yeni bir sayfada ise pivot alacağım. Fakat 12 sayfadaki verileri tek pivota nasıl taşıyabilirim?

Teşekkürler.

 

[muratti60]

Çek vade için daha önceden hazırlanmış bir dosyam var, sanırım böyle birşey istiyosunuz tarihlerin yazılacağı hücrelere tıklandığında takvim açılıyor. Kodlarına bakıp kendinize uyarlayabilirsiniz.

 

[muratti60]

https://www.excel.web.tr/threads/sayfada-sag-klik-menuesuende-takvim-uygulamasi.132079/

yada Korhan hocamızın yapmış olduğu bu uygulamada işinize yarayabilir

 

[sulos]

Merhaba Hocam, teşekkürler desteğiniz için. Kod yazmayı/eklemeyi bilmiyorum. Korhan Hocam ile dün yazıştık o başlık atında. Yeni başlık açmamı önderdi. Kod işlemlerini bilmediğim için dosyayı doğrudan yükledim, yüklediğim dosya üzerinden destek verebilecek arkadaşlar olursa çok makbule geçer. Sizin dosyanızdaki gibi benim ihtiyacım da. Teşekkürler.

 

[Korhan Ayhan]

Dosyanıza takvim uygulamasını ekledim. İlgili hücre aralığında hücre seçtiğinizde takvim otomatik açılacaktır.

 

[sulos]

@korhanayhan Hocam ellerinize sağlık, çok teşekkür ederim.

@muratti60 hocam ilginiz için size de teşekkür ederim.

 

[sulos]

Korhan Hocam böyle bir hata alıyorum. Öncesinde problem yoktu fakat mail attım dosyayı, sonrasında bendeki orijinali de mail deki kopyada aynı vermeye başladı. Yardımcı olmanız mümkün mü?

Teşekkürler.

 

[Korhan Ayhan]

İlgili satır tarih yazılan hücrenin sütun genişliğini otomatik ayarlamaktadır. Standart excel komutudur. Hata vermesini gerektirecek bir durum yoktur.

Siz nasıl bir işlem yaptınız da bu hataya oluştu?

 

[sulos]

Hocam sayfayı koru yapıyorum sanırım ondan dolayı hata veriyor. Korumayı çözünce hata vermedi. Fakat sayfayı koru yapmam gerekiyor. Hata veren kodu silip kaydet yapsam çözüm olur mu sizce? Teşekkürler.

Not: Belirli alanlarda kilitle/koru yapıyorum, sayfa genelinde değil.

 

[sulos]

Hocam son satırı silip denedim, çözüldü sanırım. Çok teşekkür ederim. En kısa sürede kod yazma çalışmalarına başlayacağım. Saygılar.

 

[Korhan Ayhan]

Tamam o satırı silebilirsiniz.

 

[sulos]

Tamam o satırı silebilirsiniz.

Teşekkürler Hocam.

 

[spacebar]

Dosyanıza takvim uygulamasını ekledim. İlgili hücre aralığında hücre seçtiğinizde takvim otomatik açılacaktır.

Korhan Bey üstadım bu çalışmada bugünden önce bir tarih seçilmesi halinde msgbox uyarısı verilmesi için kodlara nasıl bir ekleme yapmak gerekir. teşekkürler...

 

[Korhan Ayhan]

Class1 kodlarını aşağıdaki gibi değiştirip deneyiniz.

Public WithEvents CMDB As MSForms.CommandButton

Private Sub CMDB_Click()
    Dim Tarih As Date
    
    If Form_Takvim.ComboBox1 = "" Then
        MsgBox "Yıl değeri hatalı girilmiş!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
        Form_Takvim.ComboBox1.SetFocus
        Exit Sub
    End If

    If Form_Takvim.ComboBox2 = "" Then
        MsgBox "Ay değeri hatalı girilmiş!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
        Form_Takvim.ComboBox2.SetFocus
        Exit Sub
    End If

    Tarih = DateSerial(Form_Takvim.ComboBox1, Form_Takvim.ComboBox2.ListIndex + 1, CMDB.Caption)
    
    If Tarih < Date Then
        MsgBox "Bugünden önceki bir tarihi seçemezsiniz!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
        Form_Takvim.ComboBox2.SetFocus
        Exit Sub
    End If
    
    Unload Form_Takvim
    
    ActiveCell = Format(CDate(Tarih), "dd.mm.yyyy")
    ActiveCell.EntireColumn.AutoFit
End Sub

 

[spacebar]

Korhan Bey mükemmel çalışıyor. ellerinize sağlık. çok teşekkür ederim.

 

[spacebar]

@Korhan Ayhan Bey üstadım takvim uygulamasında tarihi metin şeklinde atıyor. başka bir hücrede tarihle ilgili işlem yapılamıyor. bunu nasıl düzeltebiliriz. teşekkür ederim.

 

[Korhan Ayhan]

Paylaştığınız dosyayı denediğimde bende sorun oluşmadı.

 

[spacebar]

üstad tarih şeklinde görünsede toplama çıkarma vs gibi işlem yapılamıyor.

 

[spacebar]

üstad class1 modulünde kodları şu şekilde değiştirince düzeldi. ilginize teşekkür ederim.

Public WithEvents CMDB As MSForms.CommandButton


Private Sub CMDB_Click()
Dim Tarih As Date
    If Form_Takvim.ComboBox1 = "" Then
        MsgBox "Yıl değeri hatalı girilmiş!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
        Form_Takvim.ComboBox1.SetFocus
        Exit Sub
        End If
            If Form_Takvim.ComboBox2 = "" Then
                MsgBox "Ay değeri hatalı girilmiş!" & Chr(10) & "Lütfen kontrol ediniz!", vbCritical
                Form_Takvim.ComboBox2.SetFocus
                Exit Sub
                End If
    Tarih = DateSerial(Form_Takvim.ComboBox1, Form_Takvim.ComboBox2.ListIndex + 1, CMDB.Caption)
    Unload Form_Takvim
    If Selection.Cells.Count = 1 Then
        ActiveCell = CDate(Format(Tarih, "dd.mm.yyyy"))
        ActiveCell.EntireColumn.AutoFit
    Else
        Selection.NumberFormat = "dd.mm.yyyy"
        Selection = CDate(Tarih) + 0
        Selection.EntireColumn.AutoFit
    End If
End Sub