Tarih seçici ekleme hk

[dixus]

Bunun için:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A5")) Is Nothing Then Exit Sub
Takvim.Show
End Sub
şeklinde kullanabilirsiniz.
Örnek "A5" hücresine geldiğinizde Takvim çıkar ve seçilen tarih "A5"e yazılır.
Kendinize uygun şekilde "A5" yerinew istediğiniz tek bir hücreyi verebilirsiniz.

Tek hücrede değil de belli bir aralıkta olmasını isterseniz; o zaman;

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

yapabilirsiniz.
Buradaki örnek aralık "A5:A7" yi de istediğiniz şekilde uyarlayabilirsiniz.

İyi çalışmalar...

Hocam bu açıklamanız çok işime yaradı öncelikle teşekkür ediyorum. Benim takıldığım nokta ben bunu iki sütunda da aralıklara eklemek istiyorum ama yapamadım Şöyleki "A5:A7" sütunu ve "D5: D7" sütunundaki aralığa eklemek istiyorum. Bu arada : D bitişik yazınca gülen surata dönüşüyor o yüzden ayrı yazdım

 

[turist]

Hocam bu açıklamanız çok işime yaradı öncelikle teşekkür ediyorum. Benim takıldığım nokta ben bunu iki sütunda da aralıklara eklemek istiyorum ama yapamadım Şöyleki "A5:A7" sütunu ve "D5: D7" sütunundaki aralığa eklemek istiyorum. Bu arada : D bitişik yazınca gülen surata dönüşüyor o yüzden ayrı yazdım

If Intersect(Target, Range("A5:A7,D5: D7")) Is Nothing Then Exit Sub

 

[dixus]

Şaka gibi onu yazmama rağmen bir türlü olmuyordu. aradaki B ve C sütunlarında da görünüyordu siz yazınca oldu Elleriniz dert görmesin

 

[dixus]

Sayın hocam açılan tarih seçicisindeki hafta sonlarını kırmızı olarak değiştirmemiz mümkün müdür, Hangi kodu değiştirmemiz gerekecek?

 

[ceysuhan]

Sayın hocam açılan tarih seçicisini ekranda istediğimiz yerde açılmasını nasıl sağlayabiliriz.

 

[evuye2]

Merhaba,
Gerçekten çok yararlı bir içerik olmuş teşekkür ederim.
Ben kodu şu şekilde değiştirdim:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect.Cells.NumberFormat = "dd/mm/yyyy" Is Nothing Then Exit Sub
Takvim.Show
End Sub

Buradaki amacım hücrenin biçimine göre karar vermesi. Yani herhangi bir aralık belirtmeden çift tıklanan hücrenin biçimi "tarih" ise kodu çalıştırsın istiyorum. Ama yazmaya çalıştığım bu kod çalışmadı. Doğru yazılışı, yada hedefime ulaşma yolunu söylerseniz çok sevinirim.
Teşekkürler...

 

[Korhan Ayhan]

Deneyiniz.

If Target.NumberFormat = "dd/mm/yyyy" Is Nothing Then Exit Sub

 

[evuye2]

Deneyiniz.

If Target.NumberFormat = "dd/mm/yyyy" Is Nothing Then Exit Sub

Maalesef olmadı

 

[Korhan Ayhan]

Uyguladığınız örnek dosyanızı paylaşın inceleyelim.

 

[evuye2]

Bu konunun başında "turist" in gönderdiği dosya

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.NumberFormat <> "dd.mm.yyyy" And Target.NumberFormat <> "m/d/yyyy" Then Exit Sub
    Cancel = True
    Takvim.Show
End Sub

 

[evuye2]

Aynen.
Ayrıca bu tarih seçici konusu sanki bu şekilde amacına daha uygun ve daha kullanışlı oldu. Hedef hücresi belirlemektense(o hücreler değişecek, silinecek, vs.) biçimi tarih olana bakmak daha iyi sanki.
Çok teşekkür ederim Korhan Ayhan. Eline sağlık.

 

[zaruri]

Kullanışlı ve Başarılı bir çalışma olan Tarih Seçiciyi "Eklenti" olarak nasıl kullanabiliriz.
Bütün Excel dosyalarımızda kullanabilmek için.

 

[Korhan Ayhan]

İlgili dosyayı açtıktan sonra farklı kaydet diyerek dosya türünden "Excel Eklentisi (*.xlam)" biçiminde kaydetmelisiniz.

Sonra boş bir excel dosyası açıp "GELİŞTİRİCİ" sekmesinden "EKLENTİLER" menüsünü açarak ilgili eklentiyi listeden bulup aktif etmelisiniz. Sonra uyguladığınız bilgisayarda bütün excel dosyalarınızda kullanabilirsiniz.

 

[zaruri]

Hocam "Mini Calendar and Date Picker" isimli bir takvim eklendi.
Bu uygulama pek kullanışlı değil.
Örnekte kullandığımızdan Çok farklı.

 

[Korhan Ayhan]

Linkteki dosyayı deneyiniz.

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

 

[zaruri]

Hocam İnceledim; bir örnek dosyanız var A1 ve B1 de çift tık ile çalışan,
Bunun Bütün sayfada çalışanı işimizi görür.

Aslında kullanışlı bir takvim olarak, formda bir arkadaşın yönlendirmesiyle; Excel Tarih Seçici — Sam Radakovitz (samradapps.com) siteden indirdim.
Pazar başlangıç günü ve yazıyla günü yanlış gösteriyor.
Kullanamadık.

 

[Korhan Ayhan]

Siz önerdiğim linkteki dosyayı incelediniz mi?

 

[zaruri]

İnceledim Hocam., Hatta biraz renk ve boyut değişikliği uygulandı.
Bunun sağ tık ile seçilmesi yerine çift tık ile bütün sayfada kullanılmasının
ayarlanmasını talep etmiştim.

 

[zaruri]

En son İncelediğim çalışmanızı, Bütün dosyalarda nasıl çalıştırabilirim?