Hücre Biçimine Göre Makro Çalıştırma

[evuye2]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba,
Belirli bir aralıkta hücrelerden birine çift tıklandığında takvim seçici (datepicker) açan bir kod var.

Burada her hangi bir hücreye veya belirli aralıkta hücrelere çift tıklandığında tarih seçme penceresini açtırıyor.
Bunu projeme uyarladım fakat benim ihtiyacım olan;
belirli aralıkta hücrelere değil de hücrenin biçimine göre bunu çalıştırmak. Yani çift tıklanan hücre biçimi "tarih" ise kodu çalıştırsın istiyorum.
Bu nedenle de böyle olan kodu:

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

şu şekilde değiştirdim:

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

ama olmadı.

Ve bu da olmadı:

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

Hücre biçimine göre kodu çalıştırmayı nasıl sağlayabilirim. Destek olursanız çok sevinirim.

 

[52779]

Selamlar,
İlk kod bloğundaki Takvim.Show yerine

If IsDate(Target) Then Takvim.Show

ya da
If IsDate(Target) Then
Takvim.Show
End If

şeklinde yazarak deneyin...

 

[evuye2]

Kodu görünce çok mantıklı geldi ama maalesef çalışmadı. Neden acaba?

 

[52779]

dosyanızdaki kodu aşağıdaki şekilde yazın...

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

mesajınızdaki kodu da aşağıdaki şekilde yazabilirsiniz...

Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap

 

[evuye2]

Mesajdaki kodun bir önemi yok artık.
Dosyadaki kodu dediğiniz şekilde yazdım zaten ama çalışmıyor.

Şöyle bir kod buldum,

Bu kodu görmek için giriş yapmanız gerekmektedir (5 satır). Giriş Yap

işe yaradı.

Sizinki daha basit, mantıklı ve bundan hızlı çalışacak bir koda benziyordu ama nedense olmadı.
Yine de teşekkür ederim. Elinize sağlık.

 

[52779]

Dosyanız ekte.
Tarih yazan hücreye çift tıklayın takvim açılıyor. (Açılan takvim Bugünü gösteriyor)
Boş olan hücreye çift tıklayın, takvim açılmaz.

Kod : bir önceki mesajımda yazan koddur.

 

[evuye2]

Yanlış anlaşılma olmuş sanırım. Hedef hücrenin biçiminin tarih olmasıydı önemli olan. Yani "boş hücre de olsa biçim tarih olursa istediğimizi yapsın" şeklindeydi kurgu. Bu kodda hücre içeriğine bakıyor anladığım kadarıyla biçimine değil.
Teşekkürler

 

[52779]

Demek ki ben yanlış anlamışım..
Hücre içeriğinde tarih olması şeklinde anlamışım..

 

[Ömer BARAN]

21 Ekim 2020 Çarşamba gibi BOŞLUK karakteri kullanılmadan biçimlendirme yapılıyorsa
(örneğin gg/aa/yyyy, g/a/yy, gg.aa.yyyy gibi biçimlendirme yapılıyorsa)
hücre boş da olsa; kodun başına aşağıdaki satırın eklenmesi yeterli olur ve sadece TARİH olarak biçimlendirilmiş hücrede
çift tıklama yapıldığında TAKVİM açılır.

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

.

 

[evuye2]

Bu kodu görmek için giriş yapmanız gerekmektedir (6 satır). Giriş Yap

Bu şekilde yaptım. Herhangi bir hata vermedi çalışıyor görünüyor. Umarım doğru yere eklemişimdir.

 

[Ömer BARAN]

Koddaki iki adet If.... satırı aşağı yukarı aynı anlama geliyor.
Bence sadece benim gönderdiğim kod satırı yeterlidir ( Cancel = True satırı kasın ) .

.