excel hücresine tıkladığımda takvim gelsin ve tarih seçeyim

[puslukurt]

Merhaba arkadaslar,

Benim bir excel sayfasında b2 ve b11 hücrelerine tarih girilmesi gerekiyor. bende kolaylık olsun diye bu belirtiğim hücrelere tıkladığımda takvim gelsin istiyorum ve bu takvimden istediğim tarihi seçmek istiyorum.

Forumda benzer konular var ama altın üyelik istediğinden dosyaları açıp bakamadım. mümkünse kodları foruma yazabilirsek çok makbüle geçecek.

Şimdiden Tesekkürler.

 

[tukayf]

https://www.excel.web.tr/threads/tarih-secici-ekleme-hk.174544/#post-952914 harici link verilmiş konuda. işinize yarar belki.

 

[puslukurt]

https://www.excel.web.tr/threads/tarih-secici-ekleme-hk.174544/#post-952914 harici link verilmiş konuda. işinize yarar belki.

denedim aşağıdaki sarı renkli Takvim.Show hatası verdi.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A5")) Is Nothing Then Exit Sub
Takvim.Show
End Sub

 

[Mdemir63]

Selamlar

Ömer Baran ve Korhan Ayhan hocalarımın paylaşımından edinmiştim işinizi görebilir.
B1:B11 hücrelerine sağ tıklayıp Takvim aç diyorsunuz sonra tarih seçimi yapıyorsunuz.

Aşağıdaki link den indirebilirsiniz
https://www.dosyaupload.com/emhO

 

[puslukurt]

Selamlar

Ömer Baran ve Korhan Ayhan hocalarımın paylaşımından edinmiştim işinizi görebilir.
B1:B11 hücrelerine sağ tıklayıp Takvim aç diyorsunuz sonra tarih seçimi yapıyorsunuz.

Aşağıdaki link den indirebilirsiniz
https://www.dosyaupload.com/emhO

Sayın komutan63 teşekkür ederim takvim istediğim gibi oldu ancak sağ klik değilde hücreye tıklayıp da gelse daha güzel olacak böyle bir imkanımız varmı şimdiden teşekkürler

 

[recepkull]

https://www.excel.web.tr/threads/tarih-secici-ekleme-hk.174544/#post-952914 harici link verilmiş konuda. işinize yarar belki.

Hocam verdiğiniz linkteki konuyu da ben açmışım Önceden bilmediğim bir konuyu şimdi başka birine nasıl yapıldığını anlatacak olmam beni mutlu etti
1. Sayfanın kod bölümüne gelin.
2. Insert e ardından UserForm a tıklayın.

3. Toolbox a tıklayın
4. Toolbox üzerinde sağ tık yapıp Additional Control u seçin.

5. Açılan pencerede Microsoft MonthView Control 6.0 (SP6) seçili hale getirip OK yapın.

6. Ardından Toolbox üzerinde MontView adında bir eklenti göreceksiniz. Basılı tutup sürükleyerek UserForm un içine taşıyın.

7. Userform a çift tıklayarak kod bülümünü açın ve aşağıdaki kodları açılan sayfaya kopyalayın.

                        Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg
   Unload Me
End Sub

8. Tarihin görünmesi istediğiniz sayfanın kod bölümüne aşağıdaki kodları kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End Sub

9. Kod içerisinde A2:A10 yazan kısmı siz tarihin hangi hücrede görünmesini istiyorsanız o hücreyi yazın.

 

[Mdemir63]

Selamlar

Sayfa1 kod penceresini açın oradaki kodların yerine aşağıdaki kodları yapıştırın
ilgili hücrelere çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("Cell").Reset
If Intersect(Target, [B2:B11]) Is Nothing Then Exit Sub
Call ac

End Sub

 

[puslukurt]

Selamlar

Sayfa1 kod penceresini açın oradaki kodların yerine aşağıdaki kodları yapıştırın
ilgili hücrelere çift tıklayarak deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("Cell").Reset
If Intersect(Target, [B2:B11]) Is Nothing Then Exit Sub
Call ac

End Sub

Çok teşekkür ederim elinize emeğinize sağlık süpersiniz.

 

[Mdemir63]

Teşekkürler Ömer ve Korhan hocalarıma. Benim yaptığım çok ufak bir değişiklik.
işinize yaramasına sevindim. Kolay gelsin
iyi çalışmalar dilerim.

 

[devrimdaim]

Microsoft MonthView Control 6.0 (SP6) kutucuğu bende yok nasıl eklerim?