Hücreye Açılır Takvim Ekleme

[ormann]

[TR][TD]
İyi günler;
Ekli dosyada veri sayfasında B1:B hücrelerini çift tıklayınca ekranın tam ortasında tarih açılıyor. Benim İstediğim Veri Sayfasında D22 hücresine, sonuç sayfasında ise G15 hücresini çift tıklayınca tarih açılmasını nasıl sağlayabiliriz .Tıklayınca tarih sayfanın açılan hücrenin yanında çıkabilir mi?


https://dosyam.org/Vmv/Hücreye_takvimm.xlsm
[/TD][/TR]

 

[Korhan Ayhan]

Veri sayfasındaki kod bloğunu aşağıdaki gibi değiştiriniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Application.Intersect(Target, Range("D22")) Is Nothing Then
        Exit Sub
    Else
        Cancel = True
        takvim.Show
        If tarih <> Empty Then
            Target = Format(tarih, "dd.mm.yyyy")
        End If
    End If
End Sub

Sonuç sayfasının kod bölümüne aşağıdaki kodu ekleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Application.Intersect(Target, Range("G15")) Is Nothing Then
        Exit Sub
    Else
        Cancel = True
        takvim.Show
        If tarih <> Empty Then
            Target = Format(tarih, "dd.mm.yyyy")
        End If
    End If
End Sub

 

[orcunkurtar]

Merhaba

Kodları kullandım

Takvim show kısmında hata alıyorum daha önce yapılması gereken bir işlem var mıdır.

 

[Korhan Ayhan]

İlk mesajda paylaşılan dosyadaki UserForm'u dosyanıza taşımanız gerekir.

 

[orcunkurtar]

Merhaba

Kendim userformu oluşturmak istedim ama hata alıyorum . Yardımcı olabilir misiniz . oluşturduğum takvim ilk sayfadaki E7 ve E8 hucrelerinde çıksın istiyorum .

dosya linki

 

[ormann]

Orcun bey dosyanız ekte;
https://dosyam.org/Vys/İŞ_İZNİ.xlsm

 

[orcunkurtar]

Merhaba

yer = Format(Controls("CommandButton" & son3).Caption & "." & ComboBox2.Text & "." & ComboBox1.Text, "dd.mm.yyyy")

bu satırda hata run time hatası veriyor

 

[orcunkurtar]

Merhaba

yer = Format(Controls("CommandButton" & son3).Caption & "." & ComboBox2.Text & "." & ComboBox1.Text, "dd.mm.yyyy")

bu satırda hata run time hatası veriyor

Hatayı düzelttim teşekkür ederim